From: Kenichi Handa <handa@m17n.org>
Date: Sat, 27 Feb 1999 04:28:31 +0000 (+0000)
Subject: (select-safe-coding-system): Be sure
X-Git-Tag: emacs-20.4~532
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcdc4d6764666148f9e6e4fcf37c8fac5d709be4;p=emacs.git

(select-safe-coding-system): Be sure
to show a buffer being decoded.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 5362e581586..1cc43e8b640 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -482,7 +482,7 @@ and TO is ignored."
 			     (and default-coding-system
 				  (coding-system-get default-coding-system
 						     'safe-charsets))))
-	    overlays)
+	    show-position overlays)
 	(save-excursion
 	  ;; Highlight characters that default-coding-system can't encode.
 	  (when (integerp from)
@@ -492,8 +492,8 @@ and TO is ignored."
 			  (re-search-forward "[^\000-\177]" to t))
 		(setq found (assq (char-charset (preceding-char))
 				  non-safe-chars))))
-	    (beginning-of-line)
-	    (set-window-start (selected-window) (point))
+	    (forward-line -1)
+	    (setq show-position (point))
 	    (save-excursion
 	      (while (and (< (length overlays) 256)
 			  (re-search-forward "[^\000-\177]" to t))
@@ -507,7 +507,11 @@ and TO is ignored."
 	  ;; At last, ask a user to select a proper coding system.  
 	  (unwind-protect
 	      (save-window-excursion
-		;; At first, show a helpful message.
+		(when show-position
+		  ;; At first, be sure to show the current buffer.
+		  (set-window-buffer (selected-window) (current-buffer))
+		  (set-window-start (selected-window) show-position))
+		;; Then, show a helpful message.
 		(with-output-to-temp-buffer "*Warning*"
 		  (save-excursion
 		    (set-buffer standard-output)