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.
(cl-loop with move-func =
(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))
do
(dotimes (_i (abs n))

View file

@ -1,5 +1,7 @@
;;; core/autoload/popups.el -*- lexical-binding: t; -*-
(defvar doom-popup-remember-history)
;;;###autoload
(defun doom-popup-p (&optional target)
"Return TARGET (a window) if TARGET (a window or buffer) is a popup. Uses

View file

@ -412,11 +412,6 @@ the command buffer."
(advice-add #'helm-ag--edit :around #'doom*helm-ag-edit)))
(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.
(defsubst doom--switch-from-popup (location)
(doom/popup-close)
(switch-to-buffer (car location) nil t)
@ -425,6 +420,11 @@ the command buffer."
(goto-char (cdr location))
(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
:supertype 'help-xref
'help-function