diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-21 19:09:25 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-21 19:09:25 +0000 |
| commit | 5d3440f4b66db7730f74633de13b0c66f1b4cde2 (patch) | |
| tree | 761c560c72e384dce460e4c2694860f63624036c /lisp/emacs-lisp | |
| parent | 97c4ef2a204f2be3db8de5c900046abe09d0582a (diff) | |
| download | emacs-5d3440f4b66db7730f74633de13b0c66f1b4cde2.tar.gz emacs-5d3440f4b66db7730f74633de13b0c66f1b4cde2.tar.bz2 emacs-5d3440f4b66db7730f74633de13b0c66f1b4cde2.zip | |
(backquote-delay-process): Fix last change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/backquote.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 6daaf001433..8b966f51626 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -121,9 +121,8 @@ Vectors work just like lists. Nested backquotes are permitted." (defun backquote-delay-process (s level) "Process a (un|back|splice)quote inside a backquote. This simply recurses through the body." - (let ((exp (backquote-listify (list (backquote-process (nth 1 s) level) - (cons 0 (list 'quote (car s)))) - '(0)))) + (let ((exp (backquote-listify (list (cons 0 (list 'quote (car s)))) + (backquote-process (cdr s) level)))) (if (eq (car-safe exp) 'quote) (cons 0 (list 'quote s)) (cons 1 exp)))) |