procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats 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
(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))