summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/backquote.el
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1991-07-19 20:39:25 +0000
committerJim Blandy <jimb@redhat.com>1991-07-19 20:39:25 +0000
commitfcb764df08fdcc0793c4a5e9e038452183721cbe (patch)
tree7a368b5c97bc46d72cefde82f7662cae3ed936ed /lisp/emacs-lisp/backquote.el
parent2e146aa4c35f809e8e8dfc18dfd270c2660535b4 (diff)
downloademacs-fcb764df08fdcc0793c4a5e9e038452183721cbe.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp/emacs-lisp/backquote.el')
-rw-r--r--lisp/emacs-lisp/backquote.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el
index 3b9a071d378..82cd99a114a 100644
--- a/lisp/emacs-lisp/backquote.el
+++ b/lisp/emacs-lisp/backquote.el
@@ -151,7 +151,7 @@ See backquote.el for details"
(mapcar 'bq-iterative-list-builder (reverse form))
(and state
(cond ((eq state 'quote)
- (list state tailmaker))
+ (list state (if (equal form tailmaker) form tailmaker)))
((= (length tailmaker) 1)
(funcall (bq-cadr (assq state bq-singles)) tailmaker))
(t (cons state tailmaker))))))