diff options
| author | Richard M. Stallman | 2001-06-13 15:30:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-06-13 15:30:35 +0000 |
| commit | ea4a56de11657fd72e16dc27cf50c557c0715bc9 (patch) | |
| tree | f53f4f5518844125a7d163aaba08e008dbe05c5e | |
| parent | fd344fb75f1e0bca5b208d01b9a04c2ba0ad09b8 (diff) | |
| download | emacs-ea4a56de11657fd72e16dc27cf50c557c0715bc9.tar.gz emacs-ea4a56de11657fd72e16dc27cf50c557c0715bc9.zip | |
(backquote-process): Handle `[,@SYMBOL].
| -rw-r--r-- | lisp/emacs-lisp/backquote.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 9b7e7a95fb3..ea5fd54094c 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el | |||
| @@ -114,6 +114,8 @@ Vectors work just like lists. Nested backquotes are permitted." | |||
| 114 | (if (= (car n) 0) | 114 | (if (= (car n) 0) |
| 115 | (cons 0 s) | 115 | (cons 0 s) |
| 116 | (cons 1 (cond | 116 | (cons 1 (cond |
| 117 | ((not (listp (cdr n))) | ||
| 118 | (list 'vconcat (cdr n))) | ||
| 117 | ((eq (nth 1 n) 'list) | 119 | ((eq (nth 1 n) 'list) |
| 118 | (cons 'vector (nthcdr 2 n))) | 120 | (cons 'vector (nthcdr 2 n))) |
| 119 | ((eq (nth 1 n) 'append) | 121 | ((eq (nth 1 n) 'append) |