# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 993575456 0
# Node ID a4de79556592c1dd6533c6282266a55d0496c794
# Parent  467bdc2d38a0724209f1c6125ad855b1646777ad
(dired-get-filename): A file name starting with ~
is not absolute in this context.

diff -r 467bdc2d38a0 -r a4de79556592 lisp/dired.el
--- 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)