mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(describe-input-method): Fix previous

Browse Source 
change.
(read-multilingual-string): Likewise.
(describe-language-environment): Prompt modified.
This commit is contained in:
Kenichi Handa 1997-09-01 10:44:31 +00:00
parent 3c48e39a2a
commit 787549348d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/international/mule-cmds.el
View File

@ -532,7 +532,7 @@ When there's no input method to turn on, turn on what read from minibuffer."
(interactive
(list (read-input-method-name
"Describe input method (default, current choice): ")))
(if (symbolp input-method)
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
(if (null input-method)
(describe-current-input-method)
@ -565,12 +565,9 @@ or a string."
(or input-method
default-input-method
(read-input-method-name "Input method: " nil t)))
(if (symbolp input-method)
(if (and input-method (symbolp input-method)
(setq input-method (symbol-name input-method)))
(let ((current-input-method
(or input-method
default-input-method
(read-input-method-name "Input method: " nil t))))
(let ((current-input-method input-method))
(read-string prompt initial-input nil nil t)))
;; Variables to control behavior of input methods. All input methods
@ -667,7 +664,10 @@ and sometimes other things."
(defun describe-language-environment (language-name)
"Describe how Emacs supports language environment LANGUAGE-NAME."
(interactive (list (read-language-name 'documentation "Language: ")))
(interactive
(list (read-language-name
'documentation
"Describe language environment (default, current choise): ")))
(if (null language-name)
(setq language-name current-language-environment))
(if (or (null language-name)