diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-20 14:29:41 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-20 14:29:41 +0100 |
| commit | 12578d6aca2cc7182afdd070aa31c7aff6a3add8 (patch) | |
| tree | 06c14e37892aa30913fdd0601c946839d3486a2a /lisp/emacs-lisp/byte-run.el | |
| parent | 825aed11d267f7879ca8915eb2b0d154e0beb2d4 (diff) | |
| download | emacs-12578d6aca2cc7182afdd070aa31c7aff6a3add8.tar.gz emacs-12578d6aca2cc7182afdd070aa31c7aff6a3add8.tar.bz2 emacs-12578d6aca2cc7182afdd070aa31c7aff6a3add8.zip | |
Change how (declare (modes store the data
* 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.
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 76e7f01ace6..afe94bb0352 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -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 |