[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   06/12/27 01:24:40

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.303
retrieving revision 1.304
diff -u -b -r1.303 -r1.304
--- mule-cmds.el        13 Dec 2006 07:04:19 -0000      1.303
+++ mule-cmds.el        27 Dec 2006 01:24:40 -0000      1.304
@@ -787,19 +787,21 @@
                    (setq i (1+ i))))
                (insert "\n"))
              (insert "\
-The first problematic character is at point in the displayed buffer,\n"
+
+Click those characters to jump to the place they appear,\n"
                      (substitute-command-keys "\
 and \\[universal-argument] \\[what-cursor-position] will give information 
about it.\n"))))
-         (insert "\nSelect \
-one of the following safe coding systems, or edit the buffer:\n")
+         (insert (substitute-command-keys "\nSelect \
+one of the following safe coding systems,\n\
+or cancel the writing by \\[keyboard-quit] and edit the buffer,\n\
+or specify any other coding system at the risk of
+losing the problematic characters.\n"))
          (let ((pos (point))
                (fill-prefix "  "))
            (dolist (x codings)
              (princ "  ") (princ x))
            (insert "\n")
-           (fill-region-as-paragraph pos (point)))
-         (insert "Or specify any other coding system
-at the risk of losing the problematic characters.\n")))
+           (fill-region-as-paragraph pos (point)))))
 
       ;; Read a coding system.
       (setq coding-system