# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016261483 0
# Node ID fc8561532c8141e3cccba1b3fe3f6e2fe8eaf300
# Parent  a53b3f3f025eb251a687f0d693b68f448a1ed5e8
(mode-line-mule-info): In computing help-echo prop,
avoid using save-window-excursion.  And compile the function.

diff -r a53b3f3f025e -r fc8561532c81 lisp/bindings.el
--- a/lisp/bindings.el	Sat Mar 16 02:25:56 2002 +0000
+++ b/lisp/bindings.el	Sat Mar 16 06:51:23 2002 +0000
@@ -149,18 +149,16 @@
     ,(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