Mercurial > emacs

changeset 78603:eb7052b9d8b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(backquote-delay-process): Fix last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 21 Aug 2007 19:09:25 +0000
parents b86e73d7c635
children 614e3fc32bdf
files lisp/ChangeLog lisp/emacs-lisp/backquote.el
diffstat 2 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Aug 21 18:22:03 2007 +0000
+++ b/lisp/ChangeLog	Tue Aug 21 19:09:25 2007 +0000
@@ -1,5 +1,7 @@
 2007-08-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/backquote.el (backquote-delay-process): Fix last change.
+
 	* progmodes/ada-mode.el: Fix up comment style in header.
 	(ada-check-emacs-version): Remove.
 	(ada-mode): Set parse-sexp-* even if they don't exist: can't hurt.
--- a/lisp/emacs-lisp/backquote.el	Tue Aug 21 18:22:03 2007 +0000
+++ b/lisp/emacs-lisp/backquote.el	Tue Aug 21 19:09:25 2007 +0000
@@ -121,9 +121,8 @@
 (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))))