summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-02-14 18:01:06 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2021-02-14 18:01:06 +0100
commitc3396917725a537e9060f2144b6907ab870b22dd (patch)
treede2cfcb0ed2b3491a063e4a0fc9904d07a63ccea /lisp/emacs-lisp
parentaa3a48510b9f3397af6afdcde899ec85c6cb27fe (diff)
downloademacs-c3396917725a537e9060f2144b6907ab870b22dd.tar.gz
emacs-c3396917725a537e9060f2144b6907ab870b22dd.tar.bz2
emacs-c3396917725a537e9060f2144b6907ab870b22dd.zip
Fix byte-run--set-modes call signature
* lisp/emacs-lisp/byte-run.el (byte-run--set-modes): We take a list of modes, not a single one (and fix the quoting).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/byte-run.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 30fcbf2b9cc..48a7fe80615 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -149,10 +149,10 @@ The return value of this function is not used."
''completion-predicate val)))
(defalias 'byte-run--set-modes
- #'(lambda (f _args val)
+ #'(lambda (f _args &rest val)
(list 'function-put (list 'quote f)
''completion-predicate `(lambda (_ b)
- (completion-with-modes-p ,val b)))))
+ (completion-with-modes-p ',val b)))))
;; Add any new entries to info node `(elisp)Declare Form'.
(defvar defun-declarations-alist