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

[Richard M. Stallman]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.179 
emacs/lisp/international/mule-cmds.el:1.180
*** emacs/lisp/international/mule-cmds.el:1.179 Sat Dec 15 12:42:33 2001
--- emacs/lisp/international/mule-cmds.el       Wed Dec 19 11:33:06 2001
***************
*** 1606,1613 ****
            (when (string= language-name (nth 1 (car l)))
              (insert "  " (car (car l)))
              (search-backward (car (car l)))
!             (help-xref-button 0 #'describe-input-method (car (car l))
!                               "mouse-2, RET: describe this input method")
              (goto-char (point-max))
              (insert " (\""
                      (if (stringp (nth 3 (car l)))
--- 1606,1612 ----
            (when (string= language-name (nth 1 (car l)))
              (insert "  " (car (car l)))
              (search-backward (car (car l)))
!             (help-xref-button 0 'help-input-method (car (car l)))
              (goto-char (point-max))
              (insert " (\""
                      (if (stringp (nth 3 (car l)))
***************
*** 1623,1630 ****
            (while l
              (insert "  " (symbol-name (car l)))
              (search-backward (symbol-name (car l)))
!             (help-xref-button 0 #'describe-character-set (car l)
!                               "mouse-2, RET: describe this character set")
              (goto-char (point-max))
              (insert ": " (charset-description (car l)) "\n")
              (setq l (cdr l)))))
--- 1622,1628 ----
            (while l
              (insert "  " (symbol-name (car l)))
              (search-backward (symbol-name (car l)))
!             (help-xref-button 0 'help-character-set (car l))
              (goto-char (point-max))
              (insert ": " (charset-description (car l)) "\n")
              (setq l (cdr l)))))
***************
*** 1636,1643 ****
            (while l
              (insert "  " (symbol-name (car l)))
              (search-backward (symbol-name (car l)))
!             (help-xref-button 0 #'describe-coding-system (car l)
!                               "mouse-2, RET: describe this coding system")
              (goto-char (point-max))
              (insert " (`"
                      (coding-system-mnemonic (car l))
--- 1634,1640 ----
            (while l
              (insert "  " (symbol-name (car l)))
              (search-backward (symbol-name (car l)))
!             (help-xref-button 0 'help-coding-system (car l))
              (goto-char (point-max))
              (insert " (`"
                      (coding-system-mnemonic (car l))