Mercurial > emacs

diff 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
line wrap: on
line diff
--- a/lisp/dired.el	Tue Jun 26 17:10:40 2001 +0000
+++ b/lisp/dired.el	Tue Jun 26 17:10:56 2001 +0000
@@ -1438,6 +1438,9 @@
 			     file)
 			 "\"")))))
     (and file (file-name-absolute-p file)
+	 ;; A relative file name can start with ~.
+	 ;; Don't treat it as absolute in this context.
+	 (not (eq (aref file 0) ?~))
 	 (setq already-absolute t))
     (and file buffer-file-coding-system
 	 (not file-name-coding-system)