From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 10 Jun 2003 04:03:03 +0000 (+0000)
Subject: (dired-re-dot): Make it handle trailing /.
X-Git-Tag: ttn-vms-21-2-B4~9678
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=147e214c5b3034eac2757f0adaa48cc3d6d6370b;p=emacs.git

(dired-re-dot): Make it handle trailing /.
(dired-get-filename): Update documentation string.
Revert previous change and fix typo in earlier version.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ac1c0f30e5..88cf2054284 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,7 +6,7 @@
 
 	* dired.el (dired-re-dot): Make it handle trailing /.
 	(dired-get-filename): Update documentation string.
-	Revert previous change and fix typo in earlier version..
+	Revert previous change and fix typo in earlier version.
 
 2003-06-10  Kim F. Storm  <storm@cua.dk>
 
diff --git a/lisp/dired.el b/lisp/dired.el
index 3aae474a118..78826a14657 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -253,7 +253,7 @@ The directory name must be absolute, but need not be fully expanded.")
 	       "-[-r][-w].[-r][-w].[-r][-w][xst]")
 	     "\\|"))
 (defvar dired-re-perms "[-bcdlps][-r][-w].[-r][-w].[-r][-w].")
-(defvar dired-re-dot "^.* \\.\\.?$")
+(defvar dired-re-dot "^.* \\.\\.?/?$")
 
 ;; The subdirectory names in this list are expanded.
 (defvar dired-subdir-alist nil
@@ -1448,11 +1448,12 @@ see `dired-view-command-alist'.  Otherwise, display it in another buffer."
   "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 `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."
+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 treat `.' and `..' as
+regular filenames and return nil if no filename on this line.
+Otherwise, an error occurs in these cases."
   (let (case-fold-search file p1 p2 already-absolute)
     (save-excursion
       (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep)))
@@ -1490,7 +1491,9 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
      ((eq localp 'verbatim)
       file)
      ((and (not no-error-if-not-filep)
-	   (member (file-name-nondirectory file) '("." "..")))
+	   (save-excursion
+	     (beginning-of-line)
+	     (looking-at dired-re-dot)))
       (error "Cannot operate on `.' or `..'"))
      ((and (eq localp 'no-dir) already-absolute)
       (file-name-nondirectory file))