diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2022-08-09 03:55:14 +0200 |
|---|---|---|
| committer | Michael Heerdegen <michael_heerdegen@web.de> | 2022-08-09 04:01:29 +0200 |
| commit | fe4fd160a20e2935b9a6aba4dc5dfbb5e26fdfe1 (patch) | |
| tree | 7a95d77c1762f95905ce3aaec040f79d79c5af15 /lisp/emacs-lisp/lisp-mode.el | |
| parent | d2080e4183e462331bdb90476395d1ad003de7bb (diff) | |
| download | emacs-fe4fd160a20e2935b9a6aba4dc5dfbb5e26fdfe1.tar.gz | |
Another lisp-current-defun-name tweak
* lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Avoid error
when edebug spec is the symbol t.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 82afa31ef12..1bc2c0ece6d 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -762,7 +762,7 @@ decided heuristically.)" (when symbol (let ((spec (get symbol 'edebug-form-spec))) (save-excursion - (when (and (eq (car spec) '&define) + (when (and (eq (car-safe spec) '&define) (memq 'name spec)) (pop spec) (while (and spec (not name)) |