diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-12-27 12:44:32 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-12-27 12:44:32 -0500 |
| commit | e6161f648903d821865b9610b3b6aa0f82a5dcb7 (patch) | |
| tree | df5ffe590ef2db389d2cd61248c531b4dd344b5d /lisp/emacs-lisp | |
| parent | ee264827f3684e211951b493fffb2193e4cba776 (diff) | |
| download | emacs-e6161f648903d821865b9610b3b6aa0f82a5dcb7.tar.gz emacs-e6161f648903d821865b9610b3b6aa0f82a5dcb7.tar.bz2 emacs-e6161f648903d821865b9610b3b6aa0f82a5dcb7.zip | |
* lisp/emacs-lisp/inline.el: Fix apply-conversion (bug#25280)
(inline--dont-quote): Quote the function with #' when passing it to `apply'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/inline.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/inline.el b/lisp/emacs-lisp/inline.el index 058c56c3b49..5ceb0d9ed29 100644 --- a/lisp/emacs-lisp/inline.el +++ b/lisp/emacs-lisp/inline.el @@ -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) |