mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(dnd-get-local-file-name): Decode both upper and lower

Browse Source 
case hex. Do not try to decode non-hex letters.
This commit is contained in:
Jason Rumney 2007-04-11 23:42:03 +00:00
parent eb6526ba7e
commit e39ef8913c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/dnd.el
View File

@ -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))