diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-01-09 00:30:21 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-01-09 00:30:21 -0800 |
| commit | fb9f7146677ca0d6f03ca88dd8cd39bc3733682d (patch) | |
| tree | b143c50ce4497c0a4b518ce859fc7b93eadf3f88 /lisp/international | |
| parent | 454fa9b7ea69d459d65643e7bae84b3a95dce44e (diff) | |
| parent | ebb965fcf860516c7ec8de351cda8d18811283c1 (diff) | |
| download | emacs-fb9f7146677ca0d6f03ca88dd8cd39bc3733682d.tar.gz | |
Merge from emacs-24; up to 2012-12-08T12:11:29Z!eliz@gnu.org
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 03b88038dd7..35c303f0ea8 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2946,14 +2946,14 @@ This function also accepts a hexadecimal number of Unicode code point or a number in hash notation, e.g. #o21430 for octal, #x2318 for hex, or #10r8984 for decimal." (let* ((enable-recursive-minibuffers t) + (completion-ignore-case t) (input (completing-read prompt (lambda (string pred action) - (let ((completion-ignore-case t)) - (if (eq action 'metadata) - '(metadata (category . unicode-name)) - (complete-with-action action (ucs-names) string pred)))))) + (if (eq action 'metadata) + '(metadata (category . unicode-name)) + (complete-with-action action (ucs-names) string pred))))) (char (cond ((string-match-p "\\`[0-9a-fA-F]+\\'" input) |