Fix my/describe-symbol-at-point

This commit is contained in:
Alexander Rosenberg 2024-09-13 01:36:02 -07:00
parent a3791c4048
commit 1e13252624
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -56,9 +56,9 @@
;; (setq-local evil-lookup-func
;; #'my/describe-symbol-at-point))
(defun my/describe-symbol-at-point ()
"Calls `describe-symbol' on the return value of `form-at-point'."
"Calls `describe-symbol' on the return value of `symbol-at-point'."
(interactive)
(let ((form (form-at-point)))
(let ((form (symbol-at-point)))
(if (consp form)
(describe-symbol (cadr form))
(describe-symbol form))))