Mercurial > emacs
changeset 33896:c6633a26b63a
(dired-get-filename): Return filename verbatim if LOCALP is `verbatim'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 27 Nov 2000 12:11:00 +0000 |
| parents | 3683396305bc |
| children | da7c75342507 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))