149 |
,(propertize |
,(propertize |
150 |
"%Z" |
"%Z" |
151 |
'help-echo |
'help-echo |
152 |
(purecopy (lambda (window object point) |
#'(lambda (window object point) |
153 |
(save-window-excursion |
(with-current-buffer (window-buffer window) |
154 |
(select-window window) |
;; Don't show this tip if the coding system is nil, |
155 |
;; Don't show this tip if the coding system is nil, |
;; it reads like a bug, and is not useful anyway. |
156 |
;; it reads like a bug, and is not useful anyway. |
(when buffer-file-coding-system |
157 |
(when buffer-file-coding-system |
(if enable-multibyte-characters |
158 |
(if enable-multibyte-characters |
(concat (symbol-name buffer-file-coding-system) |
159 |
(concat (symbol-name buffer-file-coding-system) |
" buffer; mouse-3: describe coding system") |
160 |
" buffer; mouse-3: describe coding system") |
(concat "Unibyte " (symbol-name buffer-file-coding-system) |
161 |
(concat "Unibyte " |
" buffer"))))) |
|
(symbol-name buffer-file-coding-system) |
|
|
" buffer")))))) |
|
162 |
'local-map mode-line-coding-system-map)) |
'local-map mode-line-coding-system-map)) |
163 |
"Mode-line control for displaying information of multilingual environment. |
"Mode-line control for displaying information of multilingual environment. |
164 |
Normally it displays current input method (if any activated) and |
Normally it displays current input method (if any activated) and |