bug#7680: 23.2.91; [PATCH] dnd-get-local-file-name bug

["Jan Djärv" <jan.h.d@swipnet.se>]

To conform to the policy in 
http://lists.gnu.org/archive/html/emacs-devel/2006-05/msg01060.html we should 
also decode it with the file name coding system when must-exist is nil. 
AFAIK, dnd-get-local-file-name is only called with must-exist t.

	Jan D.


Leo skrev 2010-12-19 15.19:
>
> I just noticed the return value of dnd-get-local-file-name may contain
> %20 etc. The patch fixes this.
>
> commit 8d987eb074d6ff8282ce3fdc19f00cdb82fdfa28 (HEAD, refs/heads/leo-main)
> Date:   Sun Dec 19 14:12:55 2010 +0000
>
>      Unhex file name should always be performed
>
>      in dnd-get-local-file-name.
> ---
>   lisp/dnd.el |   14 +++++++-------
>   1 files changed, 7 insertions(+), 7 deletions(-)
>
> 	Modified lisp/dnd.el
> diff --git a/lisp/dnd.el b/lisp/dnd.el
> index aadfad6..e6e3190 100644
> --- a/lisp/dnd.el
> +++ b/lisp/dnd.el
> @@ -143,14 +143,14 @@ Return nil if URI is not a local file."
>   		  (substring uri (1- (match-end 0))))
>   		 ((string-match "^file:" uri)		; Old KDE, Motif, Sun
>   		  (substring uri (match-end 0))))))
> +    (and f (setq f (replace-regexp-in-string
> +		    "%[A-Fa-f0-9][A-Fa-f0-9]"
> +		    (lambda (arg)
> +		      (let ((str (make-string 1 0)))
> +			(aset str 0 (string-to-number (substring arg 1) 16))
> +			str))
> +		    f t t)))
>       (when (and f must-exist)
> -      (setq f (replace-regexp-in-string
> -	       "%[A-Fa-f0-9][A-Fa-f0-9]"
> -	       (lambda (arg)
> -		 (let ((str (make-string 1 0)))
> -		   (aset str 0 (string-to-number (substring arg 1) 16))
> -		   str))
> -	       f t t))
>         (let* ((decoded-f (decode-coding-string
>   			 f
>   			 (or file-name-coding-system
>
>
>