# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 975327060 0
# Node ID c6633a26b63a9e234391defd3b6d78b98c30fccc
# Parent  3683396305bcdc0bf366189dccf02801b9fea6ac
(dired-get-filename): Return filename verbatim if LOCALP is `verbatim'.

diff -r 3683396305bc -r c6633a26b63a lisp/dired.el
--- a/lisp/dired.el	Mon Nov 27 11:28:24 2000 +0000
+++ b/lisp/dired.el	Mon Nov 27 12:11:00 2000 +0000
@@ -1399,7 +1399,8 @@
   "In dired, return name of file mentioned on this line.
 Value returned normally includes the directory name.
 Optional arg LOCALP with value `no-dir' means don't include directory
-  name in result.  A value of t means construct name relative to
+  name in result.  A value of `verbatim' means to return the name exactly as
+  it occurs in the buffer, and a value of t means construct name relative to
   `default-directory', which still may contain slashes if in a subdirectory.
 Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
   this line, otherwise an error occurs."
@@ -1431,6 +1432,8 @@
 	 (not default-file-name-coding-system)
 	 (setq file (encode-coding-string file buffer-file-coding-system)))
     (cond
+     ((eq localp 'verbatim)
+      file)
      ((and (eq localp 'no-dir) already-absolute)
       (file-name-nondirectory file))
      ((or already-absolute (eq localp 'no-dir))