[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/backquote.el, v [EMACS_22_BASE]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        07/08/21 19:09:25

Index: emacs-lisp/backquote.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/backquote.el,v
retrieving revision 1.39.2.2
retrieving revision 1.39.2.3
diff -u -b -r1.39.2.2 -r1.39.2.3
--- emacs-lisp/backquote.el     10 Aug 2007 06:52:30 -0000      1.39.2.2
+++ emacs-lisp/backquote.el     21 Aug 2007 19:09:25 -0000      1.39.2.3
@@ -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))))