From 1d5ad120aa6e320f6d8d62409ae9557d8d09b84d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 5 Jun 2003 22:00:13 +0000 Subject: [PATCH] (dired-get-filename): Don't err for . and .. for calls from dired-add-entry. --- lisp/dired.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 02841adcb13..db66f78d71d 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1367,7 +1367,7 @@ Creates a buffer if necessary." (defun dired-find-file () "In Dired, visit the file or directory named on this line." (interactive) - ;; Bind `find-file-run-dired' so that the command works on directories + ;; Bind `find-file-run-dired' so that the command works on directories ;; too, independent of the user's setting. (let ((find-file-run-dired t)) (find-file (dired-get-file-for-visit)))) @@ -1487,13 +1487,13 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on (cond ((null file) nil) + ((eq localp 'verbatim) + file) ((and (not no-error-if-not-filep) (save-excursion (beginning-of-line) (looking-at dired-re-dir))) (error "Cannot operate on `.' or `..'")) - ((eq localp 'verbatim) - file) ((and (eq localp 'no-dir) already-absolute) (file-name-nondirectory file)) (already-absolute @@ -1519,7 +1519,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on (concat (dired-current-directory localp) file))))) (defun dired-string-replace-match (regexp string newtext - &optional literal global) + &optional literal global) "Replace first match of REGEXP in STRING with NEWTEXT. If it does not match, nil is returned instead of the new string. Optional arg LITERAL means to take NEWTEXT literally. -- 2.11.4.GIT