[elpa] externals/nano-modeline 0f4567049d 2/5: Fix eat char/line mode

[ELPA Syncer]

branch: externals/nano-modeline
commit 0f4567049d3983256a7056ccb6fa97f85c37ea71
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Fix eat char/line mode
---
 nano-modeline.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index 1a51d99fa1..4b96cde69b 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -720,9 +720,10 @@ delay needs to be set to 0."
 (defun nano-modeline-eat-shell-mode ()
   "Eat shell mode"
   
-  (propertize (if eat--char-mode
-                  "(char mode)"
-                "(line mode)")
+  (propertize (cond (eat--semi-char-mode "(semi-char mode)")
+                    (eat--char-mode "(char mode)")
+                    (eat--line-mode "(line mode)")
+                    (t "(unknown mode)"))
                'face (nano-modeline-face 'primary)))
 
 (defun nano-modeline-default-directory (&optional max-length)