diff options
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index aa7cdf96337..d0668bbe54b 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -1869,8 +1869,13 @@ expressions; a `progn' form will be returned enclosing these forms." | |||
| 1869 | ;; Like body but body is wrapped in edebug-enter form. | 1869 | ;; Like body but body is wrapped in edebug-enter form. |
| 1870 | ;; The body is assumed to be executing inside of the function context. | 1870 | ;; The body is assumed to be executing inside of the function context. |
| 1871 | ;; Not to be used otherwise. | 1871 | ;; Not to be used otherwise. |
| 1872 | (let ((edebug-inside-func t)) | 1872 | (let* ((edebug-inside-func t) |
| 1873 | (list (edebug-wrap-def-body (edebug-forms cursor))))) | 1873 | (forms (edebug-forms cursor))) |
| 1874 | ;; If there's no form, there's nothing to wrap! | ||
| 1875 | ;; This happens to handle bug#20281, tho maybe a better fix would be to | ||
| 1876 | ;; improve the `defun' spec. | ||
| 1877 | (when forms | ||
| 1878 | (list (edebug-wrap-def-body forms))))) | ||
| 1874 | 1879 | ||
| 1875 | 1880 | ||
| 1876 | ;;;; Edebug Form Specs | 1881 | ;;;; Edebug Form Specs |