Fix my/describe-symbol-at-point
This commit is contained in:
parent
a3791c4048
commit
1e13252624
4
init.el
4
init.el
@ -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))))
|
||||
|
Loading…
Reference in New Issue
Block a user