diff options
| -rw-r--r-- | generic/proof-menu.el | 2 | ||||
| -rw-r--r-- | generic/proof-shell.el | 3 | ||||
| -rw-r--r-- | generic/proof-syntax.el | 11 |
3 files changed, 2 insertions, 14 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) diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 71099176..4a6f0bcf 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -236,8 +236,7 @@ process command." (append (split-string proof-rsh-command) prog-name-list1) prog-name-list1)) - (prog-command-line - (proof-splice-separator " " prog-name-list)) + (prog-command-line (mapconcat 'identity prog-name-list " ")) (process-connection-type proof-shell-process-connection-type) diff --git a/generic/proof-syntax.el b/generic/proof-syntax.el index 6c04e111..1c86e6f5 100644 --- a/generic/proof-syntax.el +++ b/generic/proof-syntax.el @@ -269,17 +269,6 @@ Any other %-prefixed character inserts itself." (if acc (insert acc)) (if pos (goto-char pos)))) -;;;###autoload -(defun proof-splice-separator (sep strings) - "Splice SEP into list of STRINGS, ignoring nil entries." - (let (stringsep nextsep) - (while strings - (when (car strings) ; suppress nils - (setq stringsep (concat stringsep nextsep (car strings))) - (setq nextsep sep)) - (setq strings (cdr strings))) - stringsep)) - (provide 'proof-syntax) ;;; proof-syntax.el ends here |