From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Tue, 9 Aug 2022 01:55:14 +0000 (+0200)
Subject: Another lisp-current-defun-name tweak
X-Git-Tag: emacs-29.0.90~1447^2~294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe4fd160a20e2935b9a6aba4dc5dfbb5e26fdfe1;p=emacs.git

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.
---

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))