diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2009-12-01 10:02:10 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2009-12-01 10:02:10 +0000 |
| commit | ba2f03865ef50975d5ac2b0261d93fbe4b4eb837 (patch) | |
| tree | c099156d386dc87a7d0d7923c5f3ab4959559a62 /generic/proof-menu.el | |
| parent | aea8b40199426cc6e9be5b56853b7e824be5807f (diff) | |
proof-splice-separator -> mapconcat builtin
Diffstat (limited to 'generic/proof-menu.el')
| -rw-r--r-- | generic/proof-menu.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/proof-menu.el b/generic/proof-menu.el index 10a70204..9b7271f5 100644 --- a/generic/proof-menu.el +++ b/generic/proof-menu.el @@ -641,7 +641,7 @@ that function defined is not already bound. This function defines a function and returns a menu entry suitable for adding to the proof assistant menu." (let* ((menunames (split-string (downcase menuname))) - (menuname-sym (proof-sym (proof-splice-separator "-" menunames))) + (menuname-sym (proof-sym (mapconcat 'identity menunames "-"))) (menu-fn menuname-sym) (i 1)) (while (and new (fboundp menu-fn)) (setq menu-fn (intern (concat (symbol-name menuname-sym) |