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

(select-safe-coding-system): If FROM is string, show it in *Warning*

Browse source 
buffer.
This commit is contained in:
Kenichi Handa 2000-10-13 00:43:30 +00:00
parent 11a7f34126
commit 038f27a72e
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -598,7 +598,14 @@ 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")
(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))))