From: Jason Rumney <jasonr@gnu.org>
Date: Wed, 11 Apr 2007 23:42:03 +0000 (+0000)
Subject: (dnd-get-local-file-name): Decode both upper and lower
X-Git-Tag: emacs-pretest-22.0.98~134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e39ef8913c093be5ff34e2a5dd027913cb950565;p=emacs.git

(dnd-get-local-file-name): Decode both upper and lower
case hex. Do not try to decode non-hex letters.
---

diff --git a/lisp/dnd.el b/lisp/dnd.el
index 2b523476a4f..df081539cf0 100644
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -146,7 +146,7 @@ Return nil if URI is not a local file."
 		  (substring uri (match-end 0))))))
     (when (and f must-exist)
       (setq f (replace-regexp-in-string
-	       "%[A-Z0-9][A-Z0-9]"
+	       "%[A-Fa-f0-9][A-Fa-f0-9]"
 	       (lambda (arg)
 		 (format "%c" (string-to-number (substring arg 1) 16)))
 	       f nil t))