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