diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-11 16:05:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-11 16:05:47 -0400 |
| commit | ac9fc2c779445a88cdf0ae2fa042879bb7ff0d16 (patch) | |
| tree | 20cc6090bb9fbc2d67c8e08ace9acb046db639b3 /lisp/international | |
| parent | 7cded46f2bef23f86041cc883618ac82b6dbfe61 (diff) | |
| download | emacs-ac9fc2c779445a88cdf0ae2fa042879bb7ff0d16.tar.gz | |
* lisp/international/mule-cmds.el (read-char-by-name): Move let-binding of
completion-ignore-case in case that var is buffer-local.
Fixes: debbugs:12615
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-cmds.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 58dd24ec8ea..3431c81df88 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2945,13 +2945,14 @@ at the beginning of the name. 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* ((completion-ignore-case t) - (input (completing-read - prompt - (lambda (string pred action) - (if (eq action 'metadata) - '(metadata (category . unicode-name)) - (complete-with-action action (ucs-names) string pred)))))) + (let ((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))))))) (cond ((string-match-p "\\`[0-9a-fA-F]+\\'" input) (string-to-number input 16)) |