From: Kenichi Handa <handa@m17n.org>
Date: Thu, 21 Dec 2000 06:46:52 +0000 (+0000)
Subject: (select-safe-coding-system):  Improve help message.
X-Git-Tag: emacs-pretest-21.0.95~354
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a672b7cd13cd4204d7c75c7439684eba059ea280;p=emacs.git

(select-safe-coding-system):  Improve help message.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 42d4eebe2b3..980019fbc9c 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -603,27 +603,30 @@ and TO is ignored."
 	    (with-output-to-temp-buffer "*Warning*"
 	      (save-excursion
 		(set-buffer standard-output)
-		(insert "These default coding systems were tried")
-		(if (stringp from)
-		    (insert " to encode \""
-			    (if (> (length from) 10)
-				(substring from 0 10)
-			      from)
-			    "...\""))
-		(insert ":\n")
-		(let ((pos (point))
-		      (fill-prefix "  "))
-		  (mapcar (function (lambda (x) (princ "  ") (princ (car x))))
-			  default-coding-system)
-		  (insert "\n")
-		  (fill-region-as-paragraph pos (point)))
-		(insert
-		 (if (consp coding-system)
-		     (concat (format "%s safely encodes the target text,\n"
-				     (car coding-system))
-			     "but it is not recommended for encoding text in this context,\n"
-			     "e.g., for sending an email message.\n")
-		   "However, none of them safely encodes the target text.\n"))
+		(if (not default-coding-system)
+		    (insert "No default coding systems to try.")
+		  (insert "These default coding systems were tried")
+		  (if (stringp from)
+		      (insert " to encode \""
+			      (if (> (length from) 10)
+				  (substring from 0 10)
+				from)
+			      "...\""))
+		  (insert ":\n")
+		  (let ((pos (point))
+			(fill-prefix "  "))
+		    (mapcar (function (lambda (x)
+					(princ "  ") (princ (car x))))
+			    default-coding-system)
+		    (insert "\n")
+		    (fill-region-as-paragraph pos (point)))
+		  (insert
+		   (if (consp coding-system)
+		       (concat (format "%s safely encodes the target text,\n"
+				       (car coding-system))
+			       "but it is not recommended for encoding text in this context,\n"
+			       "e.g., for sending an email message.\n")
+		     "However, none of them safely encodes the target text.\n")))
 		(insert (if (consp coding-system)
 			    "\nSelect the above, or "
 			  "\nSelect ")