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)) |
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)) |