[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: |
Sun, 03 Feb 2002 05:32:13 -0500 |
Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.181
emacs/lisp/international/mule-cmds.el:1.182
*** emacs/lisp/international/mule-cmds.el:1.181 Sun Jan 13 20:32:32 2002
--- emacs/lisp/international/mule-cmds.el Sun Feb 3 05:32:13 2002
***************
*** 1137,1142 ****
--- 1137,1145 ----
"Describe input method (default, current choice): ")))
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
+ (help-setup-xref (list #'describe-input-method (or input-method
current-input-method))
+ (interactive-p))
+
(if (null input-method)
(describe-current-input-method)
(let ((current current-input-method))
***************
*** 1157,1163 ****
input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))
(defun describe-current-input-method ()
! "Describe the input method currently in use."
(if current-input-method
(if (and (symbolp describe-current-input-method-function)
(fboundp describe-current-input-method-function))
--- 1160,1167 ----
input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))
(defun describe-current-input-method ()
! "Describe the input method currently in use.
! This is a subroutine for `describe-input-method'."
(if current-input-method
(if (and (symbolp describe-current-input-method-function)
(fboundp describe-current-input-method-function))
- [Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,
Richard M. Stallman <=