[Emacs-diffs] Changes to emacs/lisp/bindings.el

[Richard M. Stallman]

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