mirror of
https://github.com/emacs-exwm/exwm.git
synced 2025-03-22 19:57:15 +01:00
; exwm-mode: Make sure that variables are set locally
This commit is contained in:
parent
da034e6778
commit
8ff1884044
1 changed files with 13 additions and 14 deletions
27
exwm-core.el
27
exwm-core.el
|
@ -398,20 +398,19 @@ One of `line-mode' or `char-mode'.")
|
|||
;; Redirect events when executing keyboard macros.
|
||||
(push `(executing-kbd-macro . ,exwm--kmacro-map)
|
||||
minor-mode-overriding-map-alist)
|
||||
(make-local-variable 'mode-line-position)
|
||||
(setq mode-name '(:eval (exwm--mode-name))
|
||||
buffer-read-only t
|
||||
cursor-type nil
|
||||
left-margin-width nil
|
||||
right-margin-width nil
|
||||
left-fringe-width 0
|
||||
right-fringe-width 0
|
||||
vertical-scroll-bar nil
|
||||
eldoc-documentation-functions nil
|
||||
mode-line-position nil
|
||||
mode-line-modified nil
|
||||
mode-line-mule-info nil
|
||||
mode-line-remote nil))
|
||||
(setq-local mode-name '(:eval (exwm--mode-name))
|
||||
buffer-read-only t
|
||||
cursor-type nil
|
||||
left-margin-width nil
|
||||
right-margin-width nil
|
||||
left-fringe-width 0
|
||||
right-fringe-width 0
|
||||
vertical-scroll-bar nil
|
||||
eldoc-documentation-functions nil
|
||||
mode-line-position nil
|
||||
mode-line-modified nil
|
||||
mode-line-mule-info nil
|
||||
mode-line-remote nil))
|
||||
|
||||
(defmacro exwm--global-minor-mode-body (name &optional init exit)
|
||||
"Global minor mode body for mode with NAME.
|
||||
|
|
Loading…
Add table
Reference in a new issue