/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.181 by rms, Mon Jan 14 01:32:32 2002 UTC revision 1.182 by rms, Sun Feb 3 10:32:13 2002 UTC
# Line 1137  and enable that one.  The default is the Line 1137  and enable that one.  The default is the
1137            "Describe input method (default, current choice): ")))            "Describe input method (default, current choice): ")))
1138    (if (and input-method (symbolp input-method))    (if (and input-method (symbolp input-method))
1139        (setq input-method (symbol-name input-method)))        (setq input-method (symbol-name input-method)))
1140      (help-setup-xref (list #'describe-input-method (or input-method current-input-method))
1141                       (interactive-p))
1142    
1143    (if (null input-method)    (if (null input-method)
1144        (describe-current-input-method)        (describe-current-input-method)
1145      (let ((current current-input-method))      (let ((current current-input-method))
# Line 1157  and enable that one.  The default is the Line 1160  and enable that one.  The default is the
1160                       input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))                       input-method (nth 3 elt) (nth 1 elt) (nth 4 elt))))))))))
1161    
1162  (defun describe-current-input-method ()  (defun describe-current-input-method ()
1163    "Describe the input method currently in use."    "Describe the input method currently in use.
1164    This is a subroutine for `describe-input-method'."
1165    (if current-input-method    (if current-input-method
1166        (if (and (symbolp describe-current-input-method-function)        (if (and (symbolp describe-current-input-method-function)
1167                 (fboundp describe-current-input-method-function))                 (fboundp describe-current-input-method-function))

Legend:
Removed from v.1.181  
changed lines
  Added in v.1.182

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26