core-popups: recenter after following help links
This commit is contained in:
parent
4910531457
commit
dad9c8d98b
1 changed files with 9 additions and 3 deletions
|
@ -260,7 +260,9 @@ the command buffer."
|
|||
(doom/popup-close)
|
||||
(switch-to-buffer (car location) nil t)
|
||||
(if (cdr location)
|
||||
(goto-char (cdr location))
|
||||
(progn
|
||||
(goto-char (cdr location))
|
||||
(recenter))
|
||||
(message "Unable to find location in file")))))
|
||||
|
||||
(define-button-type 'help-variable-def
|
||||
|
@ -272,7 +274,9 @@ the command buffer."
|
|||
(doom/popup-close)
|
||||
(switch-to-buffer (car location) nil t)
|
||||
(if (cdr location)
|
||||
(goto-char (cdr location))
|
||||
(progn
|
||||
(goto-char (cdr location))
|
||||
(recenter))
|
||||
(message "Unable to find location in file")))))
|
||||
|
||||
(define-button-type 'help-face-def
|
||||
|
@ -284,7 +288,9 @@ the command buffer."
|
|||
(doom/popup-close)
|
||||
(switch-to-buffer (car location) nil t)
|
||||
(if (cdr location)
|
||||
(goto-char (cdr location))
|
||||
(progn
|
||||
(goto-char (cdr location))
|
||||
(recenter))
|
||||
(message "Unable to find location in file"))))))
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue