* eat.el (eat-mode): Fix char mode 'help-echo'
This commit is contained in:
parent
9a9d9165f2
commit
31f93da3fd
1 changed files with 8 additions and 11 deletions
19
eat.el
19
eat.el
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue