procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add new 'declare' forms for command completion predicates

Browse source 
* doc/lispref/functions.texi (Declare Form): Document the new
`completion' and `modes' declarations.
* lisp/simple.el (completion-with-modes-p): New helper functions.

* lisp/emacs-lisp/byte-run.el (byte-run--set-completion)
(byte-run--set-modes):
(defun-declarations-alist): New declarations for `completion' and
`modes'.
This commit is contained in:
Lars Ingebrigtsen 2021-02-14 13:29:35 +01:00
parent 58e0c8ee86
commit 9291e7316f
4 changed files with 38 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -143,6 +143,17 @@ The return value of this function is not used."
(list 'function-put (list 'quote f)
''lisp-indent-function (list 'quote val))))
(defalias 'byte-run--set-completion
#'(lambda (f _args val)
(list 'function-put (list 'quote f)
''completion-predicate val)))
(defalias 'byte-run--set-modes
#'(lambda (f _args val)
(list 'function-put (list 'quote f)
''completion-predicate `(lambda (_ b)
(completion-with-modes-p ,val b)))))
;; Add any new entries to info node `(elisp)Declare Form'.
(defvar defun-declarations-alist
(list
@ -159,7 +170,9 @@ This may shift errors from run-time to compile-time.")
If `error-free', drop calls even if `byte-compile-delete-errors' is nil.")
(list 'compiler-macro #'byte-run--set-compiler-macro)
(list 'doc-string #'byte-run--set-doc-string)
(list 'indent #'byte-run--set-indent))
(list 'indent #'byte-run--set-indent)
(list 'completion #'byte-run--set-completion)
(list 'modes #'byte-run--set-modes))
"List associating function properties to their macro expansion.
Each element of the list takes the form (PROP FUN) where FUN is
a function. For each (PROP . VALUES) in a function's declaration,