Error in nested backquoting

[Diego Sevilla Ruiz <dsevilla@ditec.um.es>]

[-- Attachment #1: Type: text/plain, Size: 956 bytes --]

Dear all:

	I think I spotted an error in backquote.el answering this question in 
stackoverflow:

http://stackoverflow.com/questions/17394638/nesting-backquote-and-in-emacs-lisp

	In backquote expansion, the symbol for backquote (`) is treated specially 
for nested backquoting, but its alias, backquote (if it is intended for it 
to be used from elisp programs) is not correctly evaluated in nesting. The 
patch (I think) is straightforward, and I include it as an attachment, but 
you experts out there have to judge.

	I would like to contribute it myself, but at the moment I'm not sure of 
the steps I have to follow to do so (sign agreement? obtain write access to 
repo?).

	Best regards,
	diego.

-- 
Diego Sevilla Ruiz -- http://ditec.um.es/~dsevilla/ -- dsevilla@um.es _.___
Dep. Ingeniería y Tecnología de Computadores, Facultad de Informática D|TEC
Univ.de Murcia,Campus Espinardo,30080 Murcia (SPAIN),Tel.+34868887571

[-- Attachment #2: patch --]
[-- Type: text/plain, Size: 901 bytes --]

--- backquote-old.el	2013-07-01 00:36:28.319352290 +0200
+++ backquote.el	2013-07-01 00:37:51.550816668 +0200
@@ -161,6 +161,8 @@
       (backquote-delay-process s (1- level))))
    ((eq (car s) backquote-backquote-symbol)
       (backquote-delay-process s (1+ level)))
+   ((eq (car s) 'backquote)
+      (backquote-delay-process s (1+ level)))
    (t
     (let ((rest s)
 	  item firstlist list lists expression)
@@ -177,7 +179,8 @@
                   ;; unquote since this needs to go recursively through
                   ;; backquote-process.
                   (not (or (eq (car rest) backquote-unquote-symbol)
-                           (eq (car rest) backquote-backquote-symbol))))
+                           (eq (car rest) backquote-backquote-symbol)
+                           (eq (car rest) 'backquote))))
 	(setq item (backquote-process (car rest) level))
 	(cond
 	 ((= (car item) 2)