[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bindings.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bindings.el |
Date: |
Sat, 16 Mar 2002 01:51:23 -0500 |
Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.97 emacs/lisp/bindings.el:1.98
*** emacs/lisp/bindings.el:1.97 Wed Feb 13 10:57:15 2002
--- emacs/lisp/bindings.el Sat Mar 16 01:51:23 2002
***************
*** 149,166 ****
,(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"))))))
'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
--- 149,164 ----
,(propertize
"%Z"
'help-echo
! #'(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
- [Emacs-diffs] Changes to emacs/lisp/bindings.el,
Richard M. Stallman <=