diff options
author | Miha Rihtaršič <miha@kamnitnik.top> | 2022-07-23 08:02:48 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-23 08:02:48 +0200 |
commit | 825f4fdb5159c0957d9749b69d3ec9d73ef9fe95 (patch) | |
tree | 33f86fbe722766b1ba4c68c73262dad3e75872d7 | |
parent | e00f882905db2ac6ffd1ae58b04fa335b38f489c (diff) | |
download | emacs-825f4fdb5159c0957d9749b69d3ec9d73ef9fe95.tar.gz |
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).
-rw-r--r-- | lisp/bindings.el | 36 |
1 files changed, 18 insertions, 18 deletions
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 |