emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/eat 31f93da3fd 06/15: * eat.el (eat-mode): Fix char mode '


From: ELPA Syncer
Subject: [nongnu] elpa/eat 31f93da3fd 06/15: * eat.el (eat-mode): Fix char mode 'help-echo'
Date: Tue, 29 Nov 2022 05:58:38 -0500 (EST)

branch: elpa/eat
commit 31f93da3fd7467476cc153e414ac5adcb502a952
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    * eat.el (eat-mode): Fix char mode 'help-echo'
---
 eat.el | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/eat.el b/eat.el
index 3c91ded0d1..db4db4b039 100644
--- a/eat.el
+++ b/eat.el
@@ -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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]