mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(read-input-method-name): Handle the

Browse Source 
case that the arg DEFAULT is symbol.
This commit is contained in:
Kenichi Handa 1999-10-26 13:01:20 +00:00
parent d4b11c67a7
commit bf294e6edb
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
1999-10-26 Kenichi Handa <handa@etl.go.jp>
* international/mule-cmds.el (read-input-method-name): Handle the
case that the arg DEFAULT is symbol.
* international/mule-diag.el (mule-diag): Handle the case that
default-input-method is symbol.
1999-10-26 Gerd Moellmann <gerd@gnu.org>
* textmodes/tildify.el: New file.

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

@ -892,6 +892,8 @@ The return value is a string."
(input-method (completing-read prompt input-method-alist
nil t nil 'input-method-history
default)))
(if (and input-method (symbolp input-method))
(setq input-method (symbol-name input-method)))
(if (> (length input-method) 0)
input-method
(if inhibit-null