diff options
| author | Eli Zaretskii | 2024-10-16 09:04:02 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2024-10-16 09:04:02 +0300 |
| commit | 78e6328fafddd4f39ed06d6ac4cecfb2f88d2fa4 (patch) | |
| tree | b4189cd4867e832b639c8479fdb7e3fb433382e8 | |
| parent | c5eba443ae72b94024574d56a0dfdf11f339c1aa (diff) | |
| download | emacs-78e6328fafddd4f39ed06d6ac4cecfb2f88d2fa4.tar.gz emacs-78e6328fafddd4f39ed06d6ac4cecfb2f88d2fa4.zip | |
; (select-safe-coding-system-interactively): Say "safely encode".
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 7d784ef3b1b..42b4f0034f1 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -737,7 +737,7 @@ DEFAULT is the coding system to use by default in the query." | |||
| 737 | (format "string \"%s\"." from) | 737 | (format "string \"%s\"." from) |
| 738 | (format-message "buffer `%s'." bufname))) | 738 | (format-message "buffer `%s'." bufname))) |
| 739 | (insert | 739 | (insert |
| 740 | "These default coding systems were tried to encode" | 740 | "These default coding systems were tried to safely encode" |
| 741 | (if (stringp from) | 741 | (if (stringp from) |
| 742 | (concat " \"" (if (> (length from) 10) | 742 | (concat " \"" (if (> (length from) 10) |
| 743 | (concat (substring from 0 10) "...\"") | 743 | (concat (substring from 0 10) "...\"") |
| @@ -758,9 +758,9 @@ e.g., for sending an email message.\n ") | |||
| 758 | (insert (if rejected "The other coding systems" | 758 | (insert (if rejected "The other coding systems" |
| 759 | "However, each of them") | 759 | "However, each of them") |
| 760 | (substitute-command-keys | 760 | (substitute-command-keys |
| 761 | " encountered characters it couldn't encode:\n")) | 761 | " encountered characters it couldn't encode safely:\n")) |
| 762 | (dolist (coding unsafe) | 762 | (dolist (coding unsafe) |
| 763 | (insert (format " %s cannot encode these:" (car coding))) | 763 | (insert (format " %s cannot safely encode these:" (car coding))) |
| 764 | (let ((i 0) | 764 | (let ((i 0) |
| 765 | (func1 | 765 | (func1 |
| 766 | (lambda (bufname pos) | 766 | (lambda (bufname pos) |