procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(select-safe-coding-system): Make

Browse source 
the message text about selecting a safe coding system more clear.
This commit is contained in:
Eli Zaretskii 2000-08-03 11:38:08 +00:00
parent abb2db1cf3
commit 2f1fa038c8
2 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2000-08-03 Eli Zaretskii <eliz@is.elta.co.il>
* international/mule-cmds.el (select-safe-coding-system): Make
the message text about selecting a safe coding system more clear.
2000-08-02 Gerd Moellmann <gerd@gnu.org>
* hi-lock.el: New file.

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

@ -587,21 +587,24 @@ and TO is ignored."
(with-output-to-temp-buffer "*Warning*"
(save-excursion
(set-buffer standard-output)
(insert "The following default coding systems were tried,\n"
(if (consp coding-system)
(format "and %s safely encodes the target text:\n"
(car coding-system))
"but none of them safely encode the target text:\n"))
(insert "The following default coding systems were tried:\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)
"Select it or "
"Select ")
"one from the following safe coding systems:\n")
"\nSelect the above, or "
"\nSelect ")
"one of the following safe coding systems:\n")
(let ((pos (point))
(fill-prefix " "))
(mapcar (function (lambda (x) (princ " ") (princ x)))