Mercurial > emacs

comparison lisp/dired.el @ 38214:a4de79556592

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-get-filename): A file name starting with ~ is not absolute in this context.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Jun 2001 17:10:56 +0000
parents 58a77e50831e
children 7c443908a552
comparison
equal deleted inserted replaced
38213:467bdc2d38a0 38214:a4de79556592
1436 (or (dired-string-replace-match 1436 (or (dired-string-replace-match
1437 "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t) 1437 "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t)
1438 file) 1438 file)
1439 "\""))))) 1439 "\"")))))
1440 (and file (file-name-absolute-p file) 1440 (and file (file-name-absolute-p file)
1441 ;; A relative file name can start with ~.
1442 ;; Don't treat it as absolute in this context.
1443 (not (eq (aref file 0) ?~))
1441 (setq already-absolute t)) 1444 (setq already-absolute t))
1442 (and file buffer-file-coding-system 1445 (and file buffer-file-coding-system
1443 (not file-name-coding-system) 1446 (not file-name-coding-system)
1444 (not default-file-name-coding-system) 1447 (not default-file-name-coding-system)
1445 (setq file (encode-coding-string file buffer-file-coding-system))) 1448 (setq file (encode-coding-string file buffer-file-coding-system)))