]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/inline.el: Fix apply-conversion (bug#25280)
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 27 Dec 2016 17:44:32 +0000 (12:44 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 27 Dec 2016 17:44:32 +0000 (12:44 -0500)
(inline--dont-quote): Quote the function with #' when passing it to `apply'.

lisp/emacs-lisp/inline.el

index 058c56c3b49a1c8d09cc8e92c5a38b6a84ca4724..5ceb0d9ed29d197cda6cb77f8ec086b99b682d2c 100644 (file)
@@ -191,9 +191,9 @@ After VARS is handled, BODY is evaluated in the new environment."
        (while (and (consp exp) (not (eq '\, (car exp))))
          (push (inline--dont-quote (pop exp)) args))
        (setq args (nreverse args))
-       (if exp
-           `(apply ,@args ,(inline--dont-quote exp))
-         args)))
+       (if (null exp)
+           args
+         `(apply #',(car args) ,@(cdr args) ,(inline--dont-quote exp)))))
     (_ exp)))
 
 (defun inline--do-leteval (var-exp &rest body)