mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(select-safe-coding-system-interactively):

Browse Source 
Use face `link' for problematic chars.
This commit is contained in:
Kenichi Handa 2006-12-27 05:11:42 +00:00
parent 3d37467b44
commit 4e21e5aa1a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/international/mule-cmds.el
View File

@ -772,6 +772,7 @@ e.g., for sending an email message.\n ")
(insert-text-button (insert-text-button
(cdr elt) (cdr elt)
:type 'help-xref :type 'help-xref
'face 'link
'help-echo 'help-echo
"mouse-2, RET: jump to this character" "mouse-2, RET: jump to this character"
'help-function func1 'help-function func1
@ -779,6 +780,7 @@ e.g., for sending an email message.\n ")
(insert-text-button (insert-text-button
"..." "..."
:type 'help-xref :type 'help-xref
'face 'link
'help-echo 'help-echo
"mouse-2, RET: next unencodable character" "mouse-2, RET: next unencodable character"
'help-function func2 'help-function func2
@ -790,7 +792,7 @@ e.g., for sending an email message.\n ")
Click those characters to jump to the place they appear,\n" Click those characters to jump to the place they appear,\n"
(substitute-command-keys "\ (substitute-command-keys "\
and \\[universal-argument] \\[what-cursor-position] will give information about it.\n")))) and there \\[universal-argument] \\[what-cursor-position] will give information about it.\n"))))
(insert (substitute-command-keys "\nSelect \ (insert (substitute-command-keys "\nSelect \
one of the following safe coding systems,\n\ one of the following safe coding systems,\n\
or cancel the writing by \\[keyboard-quit] and edit the buffer,\n\ or cancel the writing by \\[keyboard-quit] and edit the buffer,\n\