diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2009-12-01 01:31:31 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2009-12-01 01:31:31 +0000 |
| commit | 7b198e9f1d345d6b3ce547ee3138b6d247c5675e (patch) | |
| tree | aacd0021017e90ad1f09a98c39518d540ce826df /generic/proof-syntax.el | |
| parent | 004d55a207eab8974b2969b1bfba753c04fc3315 (diff) | |
fix proof-splice-separator
Diffstat (limited to 'generic/proof-syntax.el')
| -rw-r--r-- | generic/proof-syntax.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/generic/proof-syntax.el b/generic/proof-syntax.el index 35904ad0..a261af2f 100644 --- a/generic/proof-syntax.el +++ b/generic/proof-syntax.el @@ -269,13 +269,11 @@ Any other %-prefixed character inserts itself." ;;;###autoload (defun proof-splice-separator (sep strings) "Splice SEP into list of STRINGS, ignoring nil entries." - (let (stringsep) + (let (stringsep nextsep) (while strings (when (car strings) ; suppress nils - (setq stringsep (concat stringsep (car strings))) - (if (and (cdr strings) (cadr strings)) - (setq stringsep - (concat stringsep sep)))) + (setq stringsep (concat stringsep nextsep (car strings))) + (setq nextsep sep)) (setq strings (cdr strings))) stringsep)) |