Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Kenichi Handa 2000-12-21 06:46:52 +00:00
parent 4d513a5723
commit a672b7cd13
1 changed files with 24 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
lisp/international/mule-cmds.el
View file

@ -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 ")