awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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

6
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)
(progn
(goto-char (cdr location)) (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)
(progn
(goto-char (cdr location)) (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)
(progn
(goto-char (cdr location)) (goto-char (cdr location))
(recenter))
(message "Unable to find location in file")))))) (message "Unable to find location in file"))))))