Appease byte-compiler

This commit is contained in:
Henrik Lissner 2017-07-12 23:54:56 +02:00
parent 932a8128ec
commit 64aa0fef4d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 11 additions and 9 deletions

View file

@ -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))

View file

@ -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

View file

@ -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