Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
87505a98
Commit
87505a98
authored
Sep 04, 1997
by
Richard M. Stallman
Browse files
(read-input-method-name): Specify the input history properly.
(select-input-method): Improve prompt.
parent
f44d27ce
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+3
-3
No files found.
lisp/international/mule-cmds.el
View file @
87505a98
...
...
@@ -448,9 +448,9 @@ The return value is a string."
(let* ((completion-ignore-case t)
;; This binding is necessary because input-method-history is
;; buffer local.
(minibuffer-history input-method-history)
(input-method (completing-read prompt input-method-alist
nil t nil nil default)))
nil t nil 'input-method-history
default)))
(if (> (length input-method) 0)
input-method
(if inhibit-null
...
...
@@ -498,7 +498,7 @@ and turn it on for the current buffer."
(if (not enable-multibyte-characters)
(error "
Can
't
activate
an
input
method
while
multibyte
characters
are
disabled
"))
(list (read-input-method-name
(if default "
I
nput
method
(
default
%s
)
:
" "
I
nput
method:
")
(if default "
Select
i
nput
method
(
default
%s
)
:
" "
Select
i
nput
method:
")
default t))))
(activate-input-method input-method)
(setq default-input-method input-method))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment