(dnd-get-local-file-name): Set fixcase to t in call to

replace-regexp-in-string.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a273b46166..8beffcd2752 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-28  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+        * dnd.el (dnd-get-local-file-name): Set fixcase to t in call to
+        replace-regexp-in-string.
+
 2007-06-28  Andreas Schwab  <schwab@suse.de>
 
         * Makefile.in ($(lisp)/mh-e/mh-loaddefs.el): Depend on
diff --git a/lisp/dnd.el b/lisp/dnd.el
index df081539cf0..193fa962ea7 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -149,7 +149,7 @@ Return nil if URI is not a local file."
                "%[A-Fa-f0-9][A-Fa-f0-9]"
                (lambda (arg)
                  (format "%c" (string-to-number (substring arg 1) 16)))
-               f nil t))
+               f t t))
       (let* ((decoded-f (decode-coding-string
                          f
                          (or file-name-coding-system