From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Feb 2021 17:01:06 +0000 (+0100)
Subject: Fix byte-run--set-modes call signature
X-Git-Tag: emacs-28.0.90~3735
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3396917725a537e9060f2144b6907ab870b22dd;p=emacs.git

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).
---

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