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).
This commit is contained in:
Lars Ingebrigtsen 2021-02-14 18:01:06 +01:00
parent aa3a48510b
commit c339691772

View file

@ -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