[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el |
Date: |
Wed, 19 Dec 2001 11:33:07 -0500 |
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))