diff options
| author | Michael Heerdegen | 2019-10-16 13:07:05 +0200 |
|---|---|---|
| committer | Michael Heerdegen | 2019-10-17 20:13:40 +0200 |
| commit | 2d13a3f68d4724af52e47675bedf60709c7b5171 (patch) | |
| tree | 3e124a30c080a066a3370fa7b34dcae5a421ced1 | |
| parent | 0a70727c4024ac6a66c378df52e37808ee2d7993 (diff) | |
| download | emacs-2d13a3f68d4724af52e47675bedf60709c7b5171.tar.gz emacs-2d13a3f68d4724af52e47675bedf60709c7b5171.zip | |
Extend debug spec of cl-flet (Bug#34481)
* lisp/emacs-lisp/cl-macs.el (cl-flet): Extend debug spec to cover
definitions of the form (FUNC EXP).
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 92154855f3b..80e218884a0 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2047,7 +2047,9 @@ recursive function definitions. Use `cl-labels' for that. See | |||
| 2047 | info node `(cl) Function Bindings' for details. | 2047 | info node `(cl) Function Bindings' for details. |
| 2048 | 2048 | ||
| 2049 | \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" | 2049 | \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" |
| 2050 | (declare (indent 1) (debug ((&rest (cl-defun)) cl-declarations body))) | 2050 | (declare (indent 1) |
| 2051 | (debug ((&rest [&or (&define name function-form) (cl-defun)]) | ||
| 2052 | cl-declarations body))) | ||
| 2051 | (let ((binds ()) (newenv macroexpand-all-environment)) | 2053 | (let ((binds ()) (newenv macroexpand-all-environment)) |
| 2052 | (dolist (binding bindings) | 2054 | (dolist (binding bindings) |
| 2053 | (let ((var (make-symbol (format "--cl-%s--" (car binding)))) | 2055 | (let ((var (make-symbol (format "--cl-%s--" (car binding)))) |