mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

Change how (declare (modes store the data

Browse source 
* lisp/emacs-lisp/byte-run.el (byte-run--set-modes): Change from
being a predicate to storing the modes.  This allows using the
modes for positive command discovery, too.
* src/data.c (Fcommand_modes): Look at the `command-modes' symbol
property, too.
This commit is contained in:
Lars Ingebrigtsen 2021-02-20 14:29:41 +01:00
parent 825aed11d2
commit 12578d6aca
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/byte-run.el
View file

@ -154,9 +154,7 @@ The return value of this function is not used."
(defalias 'byte-run--set-modes
#'(lambda (f _args &rest val)
(list 'function-put (list 'quote f)
''completion-predicate
`(lambda (_ b)
(command-completion-with-modes-p ',val b)))))
''command-modes (list 'quote val))))
;; Add any new entries to info node `(elisp)Declare Form'.
(defvar defun-declarations-alist