From 5d3440f4b66db7730f74633de13b0c66f1b4cde2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 21 Aug 2007 19:09:25 +0000 Subject: (backquote-delay-process): Fix last change. --- lisp/emacs-lisp/backquote.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp/backquote.el') 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)))) -- cgit v1.2.3 From 727fb8cc41be87934552338dda6afa23aecb1bc0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 23 Aug 2007 18:39:20 +0000 Subject: (backquote-unquote-symbol, backquote-splice-symbol): Backslash the , and ,@ which are not new-style unquotes. --- lisp/emacs-lisp/backquote.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/backquote.el') diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 8b966f51626..a2a929d9601 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -85,10 +85,10 @@ For example (backquote-list* 'a 'b 'c) => (a b . c)" (defconst backquote-backquote-symbol '\` "Symbol used to represent a backquote or nested backquote.") -(defconst backquote-unquote-symbol ', +(defconst backquote-unquote-symbol '\, "Symbol used to represent an unquote inside a backquote.") -(defconst backquote-splice-symbol ',@ +(defconst backquote-splice-symbol '\,@ "Symbol used to represent a splice inside a backquote.") ;;;###autoload -- cgit v1.2.3