procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/inline.el: Fix apply-conversion (bug#25280)

Browse source 
(inline--dont-quote): Quote the function with #' when passing it to `apply'.
Cherry picked from commit e6161f6489.
This commit is contained in:
Stefan Monnier 2016-12-27 12:44:32 -05:00
parent 697167b543
commit af1b1026dd
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/inline.el
View file

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