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

feature/popup: move timer clearing into +popup-buffer-mode

Browse Source
This commit is contained in:
Henrik Lissner
2018-01-07 05:44:43 -05:00
parent 1c6d39db7f
commit a76de01f4f
1 changed files with 6 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
modules/feature/popup/autoload.el
View File

@ -1,14 +1,5 @@
;;; feature/popup/autoload.el -*- lexical-binding: t; -*- ;;; feature/popup/autoload.el -*- lexical-binding: t; -*-
(defun +popup--cancel-buffer-timer ()
"Cancel the current buffer's transient timer."
(when (timerp +popup--timer)
(let ((inhibit-message (not doom-debug-mode)))
(message "Cancelled timer in %s" (current-buffer)))
(cancel-timer +popup--timer)
(setq +popup--timer nil))
t)
(defun +popup--remember (windows) (defun +popup--remember (windows)
"Remember WINDOWS (a list of windows) for later restoration." "Remember WINDOWS (a list of windows) for later restoration."
(cl-assert (cl-every #'windowp windows) t) (cl-assert (cl-every #'windowp windows) t)
@ -179,7 +170,12 @@ with ARGS to get its return value."
(define-minor-mode +popup-buffer-mode (define-minor-mode +popup-buffer-mode
"Minor mode for popup windows." "Minor mode for popup windows."
:init-value nil :init-value nil
:keymap +popup-buffer-mode-map) :keymap +popup-buffer-mode-map
(when (and +popup-buffer-mode (timerp +popup--timer))
(let ((inhibit-message (not doom-debug-mode)))
(message "Cancelled timer in %s" (current-buffer)))
(cancel-timer +popup--timer)
(setq +popup--timer nil)))
(put '+popup-buffer-mode 'permanent-local t) (put '+popup-buffer-mode 'permanent-local t)
(put '+popup-buffer-mode 'permanent-local-hook t) (put '+popup-buffer-mode 'permanent-local-hook t)