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
|
;; (setq-local evil-lookup-func
|
||||||
;; #'my/describe-symbol-at-point))
|
;; #'my/describe-symbol-at-point))
|
||||||
(defun 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)
|
(interactive)
|
||||||
(let ((form (form-at-point)))
|
(let ((form (symbol-at-point)))
|
||||||
(if (consp form)
|
(if (consp form)
|
||||||
(describe-symbol (cadr form))
|
(describe-symbol (cadr form))
|
||||||
(describe-symbol form))))
|
(describe-symbol form))))
|
||||||
|
Loading…
Reference in New Issue
Block a user