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

core-popups: recenter after following help links

Browse source
This commit is contained in:
Henrik Lissner 2017-02-21 00:52:45 -05:00
parent 4910531457
commit dad9c8d98b
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/core-popups.el
View file

@ -260,7 +260,9 @@ the command buffer."
(doom/popup-close) (doom/popup-close)
(switch-to-buffer (car location) nil t) (switch-to-buffer (car location) nil t)
(if (cdr location) (if (cdr location)
(goto-char (cdr location)) (progn
(goto-char (cdr location))
(recenter))
(message "Unable to find location in file"))))) (message "Unable to find location in file")))))
(define-button-type 'help-variable-def (define-button-type 'help-variable-def
@ -272,7 +274,9 @@ the command buffer."
(doom/popup-close) (doom/popup-close)
(switch-to-buffer (car location) nil t) (switch-to-buffer (car location) nil t)
(if (cdr location) (if (cdr location)
(goto-char (cdr location)) (progn
(goto-char (cdr location))
(recenter))
(message "Unable to find location in file"))))) (message "Unable to find location in file")))))
(define-button-type 'help-face-def (define-button-type 'help-face-def
@ -284,7 +288,9 @@ the command buffer."
(doom/popup-close) (doom/popup-close)
(switch-to-buffer (car location) nil t) (switch-to-buffer (car location) nil t)
(if (cdr location) (if (cdr location)
(goto-char (cdr location)) (progn
(goto-char (cdr location))
(recenter))
(message "Unable to find location in file")))))) (message "Unable to find location in file"))))))