mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Another lisp-current-defun-name tweak

Browse source 
* lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Avoid error
when edebug spec is the symbol t.
This commit is contained in:
Michael Heerdegen 2022-08-09 03:55:14 +02:00
parent d2080e4183
commit fe4fd160a2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/lisp-mode.el
View file

@ -762,7 +762,7 @@ decided heuristically.)"
(when symbol (when symbol
(let ((spec (get symbol 'edebug-form-spec))) (let ((spec (get symbol 'edebug-form-spec)))
(save-excursion (save-excursion
(when (and (eq (car spec) '&define) (when (and (eq (car-safe spec) '&define)
(memq 'name spec)) (memq 'name spec))
(pop spec) (pop spec)
(while (and spec (not name)) (while (and spec (not name))