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 | |
| 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
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 15 |
2 files changed, 15 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b8c4e518b0c..ba105ce4716 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-11 Stefan Monnier <monnier@iro.umontreal.ca> + + * international/mule-cmds.el (read-char-by-name): Move let-binding of + completion-ignore-case in case that var is buffer-local (bug#12615). + 2012-10-11 Kenichi Handa <handa@gnu.org> * international/eucjp-ms.el: Re-generated. @@ -10,8 +15,8 @@ 2012-10-10 Martin Rudalics <rudalics@gmx.at> * window.el (switch-to-buffer-preserve-window-point): New option. - (switch-to-buffer): Obey - `switch-to-buffer-preserve-window-point' (Bug#4041). + (switch-to-buffer): + Obey `switch-to-buffer-preserve-window-point' (Bug#4041). 2012-10-09 Stefan Monnier <monnier@iro.umontreal.ca> 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)) |