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

replace-regexp-in-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56987cff8e77cee2ce9952e2f4c9156841017606..a787f7bb3788560039ebfd065e0fa445540991c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-28  Jan Dj\e,Ad\e(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  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/cl.el: Set edebug and indentation before loading

diff --git a/lisp/dnd.el b/lisp/dnd.el
index df081539cf0f0072f19a671a3ae96316677062e7..193fa962ea700bf75d5e21ca8a50987985151784 100644 (file)
--- 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