diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-09-21 12:18:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-09-21 12:18:21 +0000 |
| commit | 62a714fc453915ae9f7ffe2c718970e0c893851b (patch) | |
| tree | 9ebca78814370a7f7beb0d33ce1799830f85fb50 /lisp/dnd.el | |
| parent | 465384748f74266cec1e2b9c9308eb82efb462b1 (diff) | |
| download | emacs-62a714fc453915ae9f7ffe2c718970e0c893851b.tar.gz | |
(dnd-get-local-file-name): Give a unibyte string to
replace-regexp-in-string as replacement.
Diffstat (limited to 'lisp/dnd.el')
| -rw-r--r-- | lisp/dnd.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/dnd.el b/lisp/dnd.el index f8cdf9a1239..5e7135ec8d6 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -148,7 +148,9 @@ Return nil if URI is not a local file." (setq f (replace-regexp-in-string "%[A-Z0-9][A-Z0-9]" (lambda (arg) - (format "%c" (string-to-number (substring arg 1) 16))) + (let ((str (make-string 1 0))) + (aset str 0 (string-to-number (substring arg 1) 16)) + str)) f nil t)) (let* ((decoded-f (decode-coding-string f |