Appease byte-compiler
This commit is contained in:
parent
932a8128ec
commit
64aa0fef4d
3 changed files with 11 additions and 9 deletions
|
@ -125,7 +125,7 @@ buffers. If there's nothing left, switch to `doom-fallback-buffer'. See
|
||||||
;; `switch-to-prev-buffer' properly update buffer list order.
|
;; `switch-to-prev-buffer' properly update buffer list order.
|
||||||
(cl-loop with move-func =
|
(cl-loop with move-func =
|
||||||
(if (> n 0) #'switch-to-next-buffer #'switch-to-prev-buffer)
|
(if (> n 0) #'switch-to-next-buffer #'switch-to-prev-buffer)
|
||||||
for _i to 20
|
for i to 20
|
||||||
while (not (memq (current-buffer) buffers))
|
while (not (memq (current-buffer) buffers))
|
||||||
do
|
do
|
||||||
(dotimes (_i (abs n))
|
(dotimes (_i (abs n))
|
||||||
|
|
|
@ -1,5 +1,7 @@
|
||||||
;;; core/autoload/popups.el -*- lexical-binding: t; -*-
|
;;; core/autoload/popups.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
(defvar doom-popup-remember-history)
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun doom-popup-p (&optional target)
|
(defun doom-popup-p (&optional target)
|
||||||
"Return TARGET (a window) if TARGET (a window or buffer) is a popup. Uses
|
"Return TARGET (a window) if TARGET (a window or buffer) is a popup. Uses
|
||||||
|
|
|
@ -412,12 +412,7 @@ the command buffer."
|
||||||
(advice-add #'helm-ag--edit :around #'doom*helm-ag-edit)))
|
(advice-add #'helm-ag--edit :around #'doom*helm-ag-edit)))
|
||||||
|
|
||||||
|
|
||||||
(after! help-mode
|
(defsubst doom--switch-from-popup (location)
|
||||||
;; Help buffers use `other-window' to decide where to open followed links,
|
|
||||||
;; which can be unpredictable. It should *only* replace the original buffer we
|
|
||||||
;; opened the popup from. To fix this these three button types need to be
|
|
||||||
;; redefined to set aside the popup before following a link.
|
|
||||||
(defsubst doom--switch-from-popup (location)
|
|
||||||
(doom/popup-close)
|
(doom/popup-close)
|
||||||
(switch-to-buffer (car location) nil t)
|
(switch-to-buffer (car location) nil t)
|
||||||
(if (not (cdr location))
|
(if (not (cdr location))
|
||||||
|
@ -425,6 +420,11 @@ the command buffer."
|
||||||
(goto-char (cdr location))
|
(goto-char (cdr location))
|
||||||
(recenter)))
|
(recenter)))
|
||||||
|
|
||||||
|
(after! help-mode
|
||||||
|
;; Help buffers use `other-window' to decide where to open followed links,
|
||||||
|
;; which can be unpredictable. It should *only* replace the original buffer we
|
||||||
|
;; opened the popup from. To fix this these three button types need to be
|
||||||
|
;; redefined to set aside the popup before following a link.
|
||||||
(define-button-type 'help-function-def
|
(define-button-type 'help-function-def
|
||||||
:supertype 'help-xref
|
:supertype 'help-xref
|
||||||
'help-function
|
'help-function
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue