From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Mon, 15 Feb 2021 21:50:38 +0000 (+0000)
Subject: ; Fix last change in simple.el.
X-Git-Tag: emacs-28.0.90~3712
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2106b12fa751094d1b754b50e6dcad2a19e8f02a;p=emacs.git

; Fix last change in simple.el.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 8a9f46cef6c..215f4399f4a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1906,14 +1906,14 @@ to get different commands to edit and resubmit."
 
 (defcustom read-extended-command-predicate #'completion-default-include-p
   "Predicate to use to determine which commands to include when completing.
-The predicate function is called with two parameter: The
+The predicate function is called with two parameters: The
 symbol (i.e., command) in question that should be included or
 not, and the current buffer.  The predicate should return non-nil
 if the command should be present when doing `M-x TAB'."
   :version "28.1"
-  :type '(choice (const :tag "Exclude commands not relevant to the current mode"
-                        #'completion-default-include-p)
-                 (const :tag "All commands" (lambda (_ _) t))
+  :type `(choice (const :tag "Exclude commands not relevant to the current mode"
+                        completion-default-include-p)
+                 (const :tag "All commands" ,(lambda (_s _b) t))
                  (function :tag "Other function")))
 
 (defun read-extended-command ()