emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Change prefix arg behavior for +lookup/documentation

Browse source 
Would formerly open documentation in "other window", but this doesn't
make sense for this function (as it should always do this). Instead, it
will be passed on to documentation handlers to do as they like with.
This commit is contained in:
Henrik Lissner 2019-03-04 19:50:39 -05:00
parent b054190820
commit 27822ef006
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/feature/lookup/autoload/lookup.el
View file

@ -100,7 +100,8 @@ Otherwise, these properties are available to be set:
provider))))
(defun +lookup--symbol-or-region (&optional initial)
(cond (initial)
(cond ((stringp initial)
initial)
((use-region-p)
(buffer-substring-no-properties (region-beginning)
(region-end)))
@ -117,12 +118,15 @@ Otherwise, these properties are available to be set:
;; reliably, so we set up the new window ahead of time.
(switch-to-buffer-other-window (current-buffer))
(goto-char (marker-position origin)))
(call-interactively hook)
(if (commandp hook)
(call-interactively hook)
(funcall hook identifier))
t)
(save-window-excursion
(when (or (if (commandp hook)
(call-interactively hook)
(funcall hook identifier))
(null origin)
(/= (point-marker) origin))
(point-marker))))
((error user-error)
@ -137,7 +141,9 @@ Otherwise, these properties are available to be set:
:file '+lookup-file-functions)
prop)
'+lookup--run-hooks
identifier (point-marker) other-window)))
identifier
(point-marker)
other-window)))
(cond ((null ret)
(message "Could not find '%s'" identifier)
nil)
@ -263,7 +269,7 @@ search otherwise."
((error "Couldn't find references of '%s'" identifier))))
;;;###autoload
(defun +lookup/documentation (identifier &optional other-window)
(defun +lookup/documentation (identifier &optional arg)
"Show documentation for IDENTIFIER (defaults to symbol at point or selection.
First attempts the :documentation handler specified with `set-lookup-handlers!'
@ -272,9 +278,7 @@ for the current mode/buffer (if any), then falls back to the backends in
(interactive
(list (+lookup--symbol-or-region)
current-prefix-arg))
(cond ((null identifier) (user-error "Nothing under point"))
((+lookup--jump-to :documentation identifier other-window))
(cond ((+lookup--jump-to :documentation identifier t))
((user-error "Couldn't find documentation for '%s'" identifier))))