[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fe4fd160a2: Another lisp-current-defun-name tweak
From: |
Michael Heerdegen |
Subject: |
master fe4fd160a2: Another lisp-current-defun-name tweak |
Date: |
Mon, 8 Aug 2022 22:04:23 -0400 (EDT) |
branch: master
commit fe4fd160a20e2935b9a6aba4dc5dfbb5e26fdfe1
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
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.
---
lisp/emacs-lisp/lisp-mode.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 82afa31ef1..1bc2c0ece6 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master fe4fd160a2: Another lisp-current-defun-name tweak,
Michael Heerdegen <=