*** bindings-orig.el 2017-09-29 11:55:31.000000000 -0400--- bindings.el 2017-09-29 11:55:31.000000000 -0400
***************
*** 350,355 ****
--- 350,363 ----
map) "\
Keymap to display on column and line numbers.")
+ (defvar mode-line-column-line-number-formats
+ '((line-and-column . " L%l,C%c")
+ (line . " L%l")
+ (column . " C%c"))
+ "Alist of (symbol . format-string) pairs for mode-line numbering display.
+ SYMBOL may be one of: line-and-column, line or column.
+ FORMAT-STRING may contain %l for the line number and %c for the column number.")
+
(defvar mode-line-position
`((-3 ,(propertize
"%p"
***************
*** 368,392 ****
mouse-1: Display Line and Column Mode Menu")))
(line-number-mode
((column-number-mode
! (10 ,(propertize
! " (%l,%c)"
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Line number and Column number\n\
! mouse-1: Display Line and Column Mode Menu"))
! (6 ,(propertize
! " L%l"
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Line Number\n\
! mouse-1: Display Line and Column Mode Menu"))))
((column-number-mode
! (5 ,(propertize
! " C%c"
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Column number\n\
! mouse-1: Display Line and Column Mode Menu"))))))
"Mode line construct for displaying the position in the buffer.
Normally displays the buffer percentage and, optionally, the
buffer size, the line number and the column number.")
--- 376,400 ----
mouse-1: Display Line and Column Mode Menu")))
(line-number-mode
((column-number-mode
! (10 (:eval (propertize
! (or (cdr (assq 'line-and-column mode-line-column-line-number-formats)) " ")
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Line number and Column number\n\
! mouse-1: Display Line and Column Mode Menu")))
! (6 (:eval (propertize
! (or (cdr (assq 'line mode-line-column-line-number-formats)) " ")
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Line Number\n\
! mouse-1: Display Line and Column Mode Menu")))))
((column-number-mode
! (5 (:eval (propertize
! (or (cdr (assq 'column mode-line-column-line-number-formats)) " ")
! 'local-map mode-line-column-line-number-mode-map
! 'mouse-face 'mode-line-highlight
! 'help-echo "Column number\n\
! mouse-1: Display Line and Column Mode Menu")))))))
"Mode line construct for displaying the position in the buffer.
Normally displays the buffer percentage and, optionally, the
buffer size, the line number and the column number.")