; exwm-mode: Make sure that variables are set locally

This commit is contained in:
Daniel Mendler 2025-03-19 19:57:06 +01:00
parent da034e6778
commit 8ff1884044
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43

View file

@ -398,20 +398,19 @@ One of `line-mode' or `char-mode'.")
;; Redirect events when executing keyboard macros. ;; Redirect events when executing keyboard macros.
(push `(executing-kbd-macro . ,exwm--kmacro-map) (push `(executing-kbd-macro . ,exwm--kmacro-map)
minor-mode-overriding-map-alist) minor-mode-overriding-map-alist)
(make-local-variable 'mode-line-position) (setq-local mode-name '(:eval (exwm--mode-name))
(setq mode-name '(:eval (exwm--mode-name)) buffer-read-only t
buffer-read-only t cursor-type nil
cursor-type nil left-margin-width nil
left-margin-width nil right-margin-width nil
right-margin-width nil left-fringe-width 0
left-fringe-width 0 right-fringe-width 0
right-fringe-width 0 vertical-scroll-bar nil
vertical-scroll-bar nil eldoc-documentation-functions nil
eldoc-documentation-functions nil mode-line-position nil
mode-line-position nil mode-line-modified nil
mode-line-modified nil mode-line-mule-info nil
mode-line-mule-info nil mode-line-remote nil))
mode-line-remote nil))
(defmacro exwm--global-minor-mode-body (name &optional init exit) (defmacro exwm--global-minor-mode-body (name &optional init exit)
"Global minor mode body for mode with NAME. "Global minor mode body for mode with NAME.