From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Aug 2022 13:52:53 +0000 (+0200)
Subject: Further lisp-current-defun-name tweaks
X-Git-Tag: emacs-29.0.90~1447^2~315
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=909931cb9ad7251393a81076e9020225fe82845e;p=emacs.git

Further lisp-current-defun-name tweaks

* lisp/emacs-lisp/lisp-mode.el (lisp-current-defun-name): Further
tweaks to finding the symbol being defined (defalias).
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 2e7f019aa9e..82afa31ef12 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -776,8 +776,12 @@ decided heuristically.)"
           (when (and (not name)
                      (string-match-p "\\`def" (symbol-name symbol)))
             (when-let ((candidate (ignore-errors (read (current-buffer)))))
-              (when (symbolp candidate)
-                (setq name candidate))))
+              (cond
+               ((symbolp candidate)
+                (setq name candidate))
+               ((and (consp candidate)
+                     (symbolp (car (delete 'quote candidate))))
+                (setq name (car (delete 'quote candidate)))))))
           (when-let ((result (or name symbol)))
             (symbol-name result)))))))