From b8ded2e11fe76a9b46b46400a311547e1c10fd0f Mon Sep 17 00:00:00 2001 From: JenChieh Date: Wed, 29 May 2024 18:00:19 -0700 Subject: [PATCH] Fix spacing --- jcs-modeline.el | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/jcs-modeline.el b/jcs-modeline.el index 2edeecc..1647caa 100644 --- 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