Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2f1fa038
Commit
2f1fa038
authored
Aug 03, 2000
by
Eli Zaretskii
Browse files
(select-safe-coding-system): Make
the message text about selecting a safe coding system more clear.
parent
abb2db1c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
8 deletions
+16
-8
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+11
-8
No files found.
lisp/ChangeLog
View file @
2f1fa038
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.
...
...
lisp/international/mule-cmds.el
View file @
2f1fa038
...
...
@@ -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
i
t or "
"Select ")
"one f
rom
the following safe coding systems:\n")
"
\n
Select t
he above,
or "
"
\n
Select ")
"one
o
f the following safe coding systems:\n")
(let ((pos (point))
(fill-prefix " "))
(mapcar (function (lambda (x) (princ " ") (princ x)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment