From: Miha Rihtaršič <miha@kamnitnik.top>
Date: Sat, 23 Jul 2022 06:02:48 +0000 (+0200)
Subject: Fix mode line mouse-1 binding when showing only column numbers
X-Git-Tag: emacs-29.0.90~1447^2~795
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=825f4fdb5159c0957d9749b69d3ec9d73ef9fe95;p=emacs.git

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).
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 1d795c7a308..2e321282742 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