From bf294e6edb16faca4ec9c573f0b80853bee79952 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 26 Oct 1999 13:01:20 +0000 Subject: [PATCH] (read-input-method-name): Handle the case that the arg DEFAULT is symbol. --- lisp/ChangeLog | 8 ++++++++ lisp/international/mule-cmds.el | 2 ++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 527304be32f..9e7354cae7f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +1999-10-26 Kenichi Handa + + * 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 * textmodes/tildify.el: New file. diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 775b5808a11..1b35f86ef6a 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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 -- 2.39.5