diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 173173305b4..c7f0c48f85c 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el | |||
| @@ -345,6 +345,9 @@ the specializer used will be the one returned by BODY." | |||
| 345 | . ,(lambda () spec-args)) | 345 | . ,(lambda () spec-args)) |
| 346 | macroexpand-all-environment))) | 346 | macroexpand-all-environment))) |
| 347 | (require 'cl-lib) ;Needed to expand `cl-flet' and `cl-function'. | 347 | (require 'cl-lib) ;Needed to expand `cl-flet' and `cl-function'. |
| 348 | (when (interactive-form (cadr fun)) | ||
| 349 | (message "Interactive forms unsupported in generic functions: %S" | ||
| 350 | (interactive-form (cadr fun)))) | ||
| 348 | ;; First macroexpand away the cl-function stuff (e.g. &key and | 351 | ;; First macroexpand away the cl-function stuff (e.g. &key and |
| 349 | ;; destructuring args, `declare' and whatnot). | 352 | ;; destructuring args, `declare' and whatnot). |
| 350 | (pcase (macroexpand fun macroenv) | 353 | (pcase (macroexpand fun macroenv) |