Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* eat.el (eat-mode): Fix char mode 'help-echo'

Browse source
This commit is contained in:
Akib Azmain Turja 2022-11-29 00:28:03 +06:00
parent 9a9d9165f2
commit 31f93da3fd
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
eat.el
View file

@ -5524,12 +5524,11 @@ END if it's safe to do so."
(when eat--process (when eat--process
(cond (cond
(eat--semi-char-mode (eat--semi-char-mode
`("[" '("["
(:propertize (:propertize
"semi-char" "semi-char"
help-echo help-echo "mouse-1: Switch to char mode, \
,(concat "mouse-1: Switch to char mode, " mouse-3: Switch to emacs mode"
"mouse-3: Switch to emacs mode")
mouse-face mode-line-highlight mouse-face mode-line-highlight
local-map local-map
(keymap (keymap
@ -5542,9 +5541,8 @@ END if it's safe to do so."
'("[" '("["
(:propertize (:propertize
"char" "char"
help-echo help-echo "mouse-1: Switch to semi-char mode, \
,(concat "mouse-1: Switch to semi-char mode, " mouse-3: Switch to emacs mode"
"mouse-3: Switch to emacs mode")
mouse-face mode-line-highlight mouse-face mode-line-highlight
local-map local-map
(keymap (keymap
@ -5554,12 +5552,11 @@ END if it's safe to do so."
(down-mouse-3 . eat-emacs-mode))))) (down-mouse-3 . eat-emacs-mode)))))
"]")) "]"))
(t (t
`("[" '("["
(:propertize (:propertize
"emacs" "emacs"
help-echo help-echo "mouse-1: Switch to semi char mode, \
,(concat "mouse-1: Switch to semi char mode, " mouse-3: Switch to char mode"
"mouse-3: Switch to char mode")
mouse-face mode-line-highlight mouse-face mode-line-highlight
local-map local-map
(keymap (keymap