Fix spacing

jcs-emacs · May 30, 2024 · b8ded2e · b8ded2e
1 parent f42b594
commit b8ded2e
Showing 1 changed file with 12 additions and 11 deletions.
diff --git a/jcs-modeline.el b/jcs-modeline.el
@@ -323,18 +323,19 @@ Position argument ARG0."
                                                  mode-line-modes))))
          (lst (cl-remove-if #'null (list icon line-modes)))
          (ind (mapconcat #'identity lst " ")))
-    (propertize ind
-                'mouse-face 'mode-line-highlight
-                'help-echo "Major and minor modes
+    (concat (propertize ind
+                        'mouse-face 'mode-line-highlight
+                        'help-echo "Major and minor modes
 mouse-1: Toggle display of major mode name"
-                'local-map (let ((map (make-sparse-keymap)))
-                             (define-key map (vector 'mode-line 'mouse-1)
-                                         (lambda (&rest _)
-                                           (interactive)
-                                           (setq jcs-modeline-show-mode-name
-                                                 (not jcs-modeline-show-mode-name))
-                                           (force-mode-line-update t)))
-                             map))))
+                        'local-map (let ((map (make-sparse-keymap)))
+                                     (define-key map (vector 'mode-line 'mouse-1)
+                                                 (lambda (&rest _)
+                                                   (interactive)
+                                                   (setq jcs-modeline-show-mode-name
+                                                         (not jcs-modeline-show-mode-name))
+                                                   (force-mode-line-update t)))
+                                     map))
+            " ")))
 
 ;;
 ;;; Line and Columns