From c8225cbef31d718d9a65b420faaf0bc387573acb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 23 Jul 1997 02:51:06 +0000 Subject: [PATCH] (dired-omit-new-add-entry): Take new arg RELATIVE and pass it to dired-omit-old-add-entry (which is dired-add-entry). --- lisp/dired-x.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 68034345031..859448e318a 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -659,7 +659,7 @@ Second optional argument LOCALP is as in `dired-get-filename'." msg))) ;;; REDEFINE. -(defun dired-omit-new-add-entry (filename &optional marker-char) +(defun dired-omit-new-add-entry (filename &optional marker-char relative) ;; This redefines dired-aux.el's dired-add-entry to avoid calling ls for ;; files that are going to be omitted anyway. (if dired-omit-files-p @@ -678,12 +678,12 @@ Second optional argument LOCALP is as in `dired-get-filename'." filename (file-name-directory filename))))))) ;; if it didn't match, go ahead and add the entry - (dired-omit-old-add-entry filename marker-char) + (dired-omit-old-add-entry filename marker-char relative) ;; dired-add-entry returns t for success, perhaps we should ;; return file-exists-p t)) ;; omitting is not turned on at all - (dired-omit-old-add-entry filename marker-char))) + (dired-omit-old-add-entry filename marker-char relative))) ;;; REDEFINE. ;;; Redefine dired-aux.el's version of `dired-add-entry' -- 2.39.5