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

Remove some dubious uses of interactive-form

Browse source 
* lisp/emacs-lisp/cl-generic.el (cl--generic-lambda): `commandp` and
`interactive-form` are for function values, not for source code.
* lisp/cedet/semantic/db-el.el (semanticdb-elisp-sym->tag):
Prefer `commandp` over `interactive-form`.
This commit is contained in:
Stefan Monnier 2022-01-24 21:31:53 -05:00
parent ea953db0a0
commit 96929e5d01
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/cl-generic.el
View file

@ -381,9 +381,9 @@ the specializer used will be the one returned by BODY."
. ,(lambda () spec-args))
macroexpand-all-environment)))
(require 'cl-lib) ;Needed to expand `cl-flet' and `cl-function'.
(when (interactive-form (cadr fun))
(message "Interactive forms unsupported in generic functions: %S"
(interactive-form (cadr fun))))
(when (assq 'interactive (cadr fun))
(message "Interactive forms not supported in generic functions: %S"
(assq 'interactive (cadr fun))))
;; First macroexpand away the cl-function stuff (e.g. &key and
;; destructuring args, `declare' and whatnot).
(pcase (macroexpand fun macroenv)