From ac9fc2c779445a88cdf0ae2fa042879bb7ff0d16 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 11 Oct 2012 16:05:47 -0400 Subject: [PATCH] * 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 --- lisp/ChangeLog | 9 +++++++-- 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 + + * 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 * international/eucjp-ms.el: Re-generated. @@ -10,8 +15,8 @@ 2012-10-10 Martin Rudalics * 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 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)) -- 2.39.2