Replace doom/describe-symbol w/ helpful-symbol
And helpful-at-point.
This commit is contained in:
parent
52b69ec7eb
commit
29250133e8
3 changed files with 3 additions and 18 deletions
|
@ -105,21 +105,6 @@ selection of all minor-modes, active or not."
|
|||
(helpful-function symbol)
|
||||
(helpful-variable symbol))))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom/describe-symbol (symbol)
|
||||
"Show help for SYMBOL, a variable, function or macro."
|
||||
(interactive
|
||||
(list (helpful--read-symbol "Symbol: " #'helpful--bound-p)))
|
||||
(let* ((sym (intern-soft symbol))
|
||||
(bound (boundp sym))
|
||||
(fbound (fboundp sym)))
|
||||
(cond ((and sym bound (not fbound))
|
||||
(helpful-variable sym))
|
||||
((and sym fbound (not bound))
|
||||
(helpful-callable sym))
|
||||
((apropos (format "^%s\$" symbol)))
|
||||
((apropos (format "%s" symbol))))))
|
||||
|
||||
|
||||
;;
|
||||
;;; Documentation commands
|
||||
|
|
|
@ -389,7 +389,7 @@ files, so we replace calls to `pp' with the much faster `prin1'."
|
|||
(global-set-key [remap describe-command] #'helpful-command)
|
||||
(global-set-key [remap describe-variable] #'helpful-variable)
|
||||
(global-set-key [remap describe-key] #'helpful-key)
|
||||
(global-set-key [remap describe-symbol] #'doom/describe-symbol)
|
||||
(global-set-key [remap describe-symbol] #'helpful-symbol)
|
||||
|
||||
(defun doom-use-helpful-a (orig-fn &rest args)
|
||||
"Force ORIG-FN to use helpful instead of the old describe-* commands."
|
||||
|
|
|
@ -123,8 +123,8 @@ if it's callable, `apropos' otherwise."
|
|||
(when (invisible-p (point))
|
||||
(org-show-hidden-entry))))
|
||||
t))
|
||||
(thing (doom/describe-symbol thing))
|
||||
((call-interactively #'doom/describe-symbol))))
|
||||
(thing (helpful-symbol (intern thing)))
|
||||
((call-interactively #'helpful-at-point))))
|
||||
|
||||
;; FIXME
|
||||
;; (defun +emacs-lisp-lookup-file (thing)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue