awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-07 12:47:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

feature/lookup: fix some windows not grabbing focus after lookups

Browse Source
This commit is contained in:
Henrik Lissner
2018-03-26 02:52:50 -04:00
parent b848527f0c
commit d06d4c4dde
1 changed files with 12 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/feature/lookup/autoload/lookup.el
View File

@ -24,13 +24,10 @@
(region-end))) (region-end)))
((xref-backend-identifier-at-point (xref-find-backend))))) ((xref-backend-identifier-at-point (xref-find-backend)))))
(defun +lookup--jump-to (prop identifier &optional other-window) (defun +lookup--jump-to (prop identifier)
(with-selected-window
(if other-window
(save-excursion (other-window 1) (selected-window))
(selected-window))
(let ((fn (plist-get +lookup-current-functions prop)) (let ((fn (plist-get +lookup-current-functions prop))
(origin (point-marker))) (origin (point-marker)))
(setq fn (or (command-remapping fn) fn))
(condition-case e (condition-case e
(or (if (commandp fn) (or (if (commandp fn)
(call-interactively fn) (call-interactively fn)
@ -38,7 +35,7 @@
(/= (point-marker) origin)) (/= (point-marker) origin))
('error ('error
(message "%s" e) (message "%s" e)
nil))))) nil))))
;; ;;