mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(mode-line-mule-info): In computing help-echo prop,

Browse Source 
avoid using save-window-excursion.  And compile the function.
This commit is contained in:
Richard M. Stallman 2002-03-16 06:51:23 +00:00
parent 2c3d8820e2
commit 7e98f74cdf
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/bindings.el
View File

@ -149,18 +149,16 @@ corresponding to the mode line clicked."
,(propertize
"%Z"
'help-echo
(purecopy (lambda (window object point)
(save-window-excursion
(select-window window)
;; Don't show this tip if the coding system is nil,
;; it reads like a bug, and is not useful anyway.
(when buffer-file-coding-system
(if enable-multibyte-characters
(concat (symbol-name buffer-file-coding-system)
" buffer; mouse-3: describe coding system")
(concat "Unibyte "
(symbol-name buffer-file-coding-system)
" buffer"))))))
#'(lambda (window object point)
(with-current-buffer (window-buffer window)
;; Don't show this tip if the coding system is nil,
;; it reads like a bug, and is not useful anyway.
(when buffer-file-coding-system
(if enable-multibyte-characters
(concat (symbol-name buffer-file-coding-system)
" buffer; mouse-3: describe coding system")
(concat "Unibyte " (symbol-name buffer-file-coding-system)
" buffer")))))
'local-map mode-line-coding-system-map))
"Mode-line control for displaying information of multilingual environment.
Normally it displays current input method (if any activated) and