awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix void variable doom-popup-mode-map error #284

Browse Source
This commit is contained in:
Henrik Lissner
2017-12-04 13:48:19 -05:00
parent b885164ce6
commit 85645b386c
1 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
core/core-popups.el
View File

@ -46,6 +46,9 @@ that was/were open in `doom-popup-history'.")
when their associated popup windows are closed, despite their :autokill when their associated popup windows are closed, despite their :autokill
property.") property.")
(defvar doom-popup-mode-map (make-sparse-keymap)
"Active keymap in popup windows.")
(def-setting! :popup (&rest rules) (def-setting! :popup (&rest rules)
"Prepend a new popup rule to `shackle-rules' (see for format details). "Prepend a new popup rule to `shackle-rules' (see for format details).
@ -133,20 +136,17 @@ recognized by DOOM's popup system. They are:
(dolist (param `(popup ,@doom-popup-window-parameters)) (dolist (param `(popup ,@doom-popup-window-parameters))
(push (cons param 'writable) window-persistent-parameters)) (push (cons param 'writable) window-persistent-parameters))
(defvar doom-popup-mode-map (let ((map doom-popup-mode-map))
(let ((map (make-sparse-keymap))) (define-key map [escape] #'doom/popup-close-maybe)
(define-key map [escape] #'doom/popup-close-maybe) (define-key map (kbd "ESC") #'doom/popup-close-maybe)
(define-key map (kbd "ESC") #'doom/popup-close-maybe) (define-key map [remap quit-window] #'doom/popup-close-maybe)
(define-key map [remap quit-window] #'doom/popup-close-maybe) (define-key map [remap doom/kill-this-buffer] #'delete-window)
(define-key map [remap doom/kill-this-buffer] #'delete-window) (define-key map [remap split-window-right] #'ignore)
(define-key map [remap split-window-right] #'ignore) (define-key map [remap split-window-below] #'ignore)
(define-key map [remap split-window-below] #'ignore) (define-key map [remap split-window-horizontally] #'ignore)
(define-key map [remap split-window-horizontally] #'ignore) (define-key map [remap split-window-vertically] #'ignore)
(define-key map [remap split-window-vertically] #'ignore) (define-key map [remap mouse-split-window-horizontally] #'ignore)
(define-key map [remap mouse-split-window-horizontally] #'ignore) (define-key map [remap mouse-split-window-vertically] #'ignore)))
(define-key map [remap mouse-split-window-vertically] #'ignore)
map)
"Active keymap in popup windows."))
;; ;;