From: Miha Rihtarsic <miha@kamnitnik.top>
Date: Sat, 23 Jul 2022 07:32:50 +0000 (+0300)
Subject: Fix mode line mouse-1 binding when showing only column numbers
X-Git-Tag: emacs-28.1.91~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba7a75e052bfd24e99b79bbb161b2b0a99e7cce2;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).  Do not merge to
master.
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 56f742a2704..5eb8e629124 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -516,7 +516,7 @@ 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-mode
        (column-number-indicator-zero-based
         (10
          (:propertize
@@ -530,13 +530,13 @@ mouse-1: Display Line and Column Mode Menu")))
        (6
         (:propertize
 	 mode-line-position-line-format
-         ,@mode-line-position--column-line-properties))))
+         ,@mode-line-position--column-line-properties)))
      (column-number-mode
       (column-number-indicator-zero-based
        (6
         (:propertize
          mode-line-position-column-format
-         (,@mode-line-position--column-line-properties)))
+         ,@mode-line-position--column-line-properties))
        (6
         (:propertize
          (:eval (string-replace