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 56f742a27049bea38ca4f7aac1c4b462e7fe9fea..5eb8e62912442f4da89b18dc41500f2c1bb33774 100644 (file)
--- 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