[Emacs-diffs] /srv/bzr/emacs/trunk r110509: * lisp/international/mule-cmds.el (read-char-by-name): Move let-binding of

[Stefan Monnier]

------------------------------------------------------------
revno: 110509
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12615
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-10-11 16:05:47 -0400
message:
  * lisp/international/mule-cmds.el (read-char-by-name): Move let-binding of
  completion-ignore-case in case that var is buffer-local.
modified:
  lisp/ChangeLog
  lisp/international/mule-cmds.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-11 11:29:47 +0000
+++ b/lisp/ChangeLog    2012-10-11 20:05:47 +0000
@@ -1,3 +1,8 @@
+2012-10-11  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * international/eucjp-ms.el: Re-generated.
@@ -10,8 +15,8 @@
 2012-10-10  Martin Rudalics  <address@hidden>
 
        * 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  <address@hidden>
 

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2012-10-07 22:31:58 +0000
+++ b/lisp/international/mule-cmds.el   2012-10-11 20:05:47 +0000
@@ -2945,13 +2945,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* ((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))