diff options
| author | Jason Rumney | 2007-04-11 23:42:03 +0000 |
|---|---|---|
| committer | Jason Rumney | 2007-04-11 23:42:03 +0000 |
| commit | e39ef8913c093be5ff34e2a5dd027913cb950565 (patch) | |
| tree | 024d45458665fff835583153966ae77511b35b48 | |
| parent | eb6526ba7e3c0aaa268aec497ff5b415686b93e8 (diff) | |
| download | emacs-e39ef8913c093be5ff34e2a5dd027913cb950565.tar.gz emacs-e39ef8913c093be5ff34e2a5dd027913cb950565.zip | |
(dnd-get-local-file-name): Decode both upper and lower
case hex. Do not try to decode non-hex letters.
| -rw-r--r-- | lisp/dnd.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 146 | (substring uri (match-end 0)))))) | 146 | (substring uri (match-end 0)))))) |
| 147 | (when (and f must-exist) | 147 | (when (and f must-exist) |
| 148 | (setq f (replace-regexp-in-string | 148 | (setq f (replace-regexp-in-string |
| 149 | "%[A-Z0-9][A-Z0-9]" | 149 | "%[A-Fa-f0-9][A-Fa-f0-9]" |
| 150 | (lambda (arg) | 150 | (lambda (arg) |
| 151 | (format "%c" (string-to-number (substring arg 1) 16))) | 151 | (format "%c" (string-to-number (substring arg 1) 16))) |
| 152 | f nil t)) | 152 | f nil t)) |