emacs-diffs
[Top][All Lists]
Advanced

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

master 825f4fdb51: Fix mode line mouse-1 binding when showing only colum


From: Lars Ingebrigtsen
Subject: master 825f4fdb51: Fix mode line mouse-1 binding when showing only column numbers
Date: Sat, 23 Jul 2022 02:03:03 -0400 (EDT)

branch: master
commit 825f4fdb5159c0957d9749b69d3ec9d73ef9fe95
Author: Miha Rihtaršič <miha@kamnitnik.top>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix mode line mouse-1 binding when showing only column numbers
    
    * lisp/bindings.el (mode-line-position): Fix the mouse-1 binding
    when showing only column numbers (bug#56694).
---
 lisp/bindings.el | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 1d795c7a30..2e32128274 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -517,31 +517,31 @@ mouse-1: Display Line and Column Mode Menu")
          'help-echo "Size indication mode\n\
 mouse-1: Display Line and Column Mode Menu")))
     (line-number-mode
-     ((column-number-mode
-       (column-number-indicator-zero-based
-        (10
-         (:propertize
-          mode-line-position-column-line-format
-          display (min-width (10.0))
-          ,@mode-line-position--column-line-properties))
-        (10
-         (:propertize
-          (:eval (string-replace
-                  "%c" "%C" (car mode-line-position-column-line-format)))
-          display (min-width (10.0))
-          ,@mode-line-position--column-line-properties)))
-       (6
+     (column-number-mode
+      (column-number-indicator-zero-based
+       (10
         (:propertize
-        mode-line-position-line-format
-         display (min-width (6.0))
-         ,@mode-line-position--column-line-properties))))
+         mode-line-position-column-line-format
+         display (min-width (10.0))
+         ,@mode-line-position--column-line-properties))
+       (10
+        (:propertize
+         (:eval (string-replace
+                 "%c" "%C" (car mode-line-position-column-line-format)))
+         display (min-width (10.0))
+         ,@mode-line-position--column-line-properties)))
+      (6
+       (:propertize
+       mode-line-position-line-format
+        display (min-width (6.0))
+        ,@mode-line-position--column-line-properties)))
      (column-number-mode
       (column-number-indicator-zero-based
        (6
         (:propertize
          mode-line-position-column-format
          display (min-width (6.0))
-         (,@mode-line-position--column-line-properties)))
+         ,@mode-line-position--column-line-properties))
        (6
         (:propertize
          (:eval (string-replace



reply via email to

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