|
|
|
@@ -595,13 +595,7 @@ oomph with all the crap it did. |
|
|
|
(if (eq (point) (region-beginning)) |
|
|
|
(format "%%l … %d" (line-number-at-pos (region-end))) |
|
|
|
(format "%d … %%l" (line-number-at-pos (region-beginning)))) |
|
|
|
":%l")) |
|
|
|
(:eval |
|
|
|
;; TODO: on click `set-buffer-file-coding-system' |
|
|
|
(if (not (member buffer-file-coding-system |
|
|
|
'(utf-8 utf-8-unix))) |
|
|
|
(symbol-name buffer-file-coding-system)) |
|
|
|
mode-line-misc-info))) |
|
|
|
":%l")))) |
|
|
|
) |
|
|
|
#+END_SRC |
|
|
|
|
|
|
|
|