Mercurial > emacs
comparison lisp/x-dnd.el @ 53823:cc4faf95fea2
* x-dnd.el (x-dnd-get-local-file-name): Fix byte compiler warning
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Thu, 05 Feb 2004 11:46:57 +0000 |
| parents | 1f2fa74fb0aa |
| children | e83b3b3941cf |
comparison
equal
deleted
inserted
replaced
| 53822:add088b6ecef | 53823:cc4faf95fea2 |
|---|---|
| 287 only return non-nil if the file exists. | 287 only return non-nil if the file exists. |
| 288 Return nil if URI is not a local file." | 288 Return nil if URI is not a local file." |
| 289 (let ((f (cond ((string-match "^file:///" uri) ; XDND format. | 289 (let ((f (cond ((string-match "^file:///" uri) ; XDND format. |
| 290 (substring uri (1- (match-end 0)))) | 290 (substring uri (1- (match-end 0)))) |
| 291 ((string-match "^file:" uri) ; Old KDE, Motif, Sun | 291 ((string-match "^file:" uri) ; Old KDE, Motif, Sun |
| 292 (substring uri (match-end 0))) | 292 (substring uri (match-end 0)))))) |
| 293 nil))) | |
| 294 (when (and f must-exist) | 293 (when (and f must-exist) |
| 295 (let* ((decoded-f (decode-coding-string | 294 (let* ((decoded-f (decode-coding-string |
| 296 f | 295 f |
| 297 (or file-name-coding-system | 296 (or file-name-coding-system |
| 298 default-file-name-coding-system))) | 297 default-file-name-coding-system))) |