aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-07-23 02:51:06 +0000
committerRichard M. Stallman1997-07-23 02:51:06 +0000
commitc8225cbef31d718d9a65b420faaf0bc387573acb (patch)
treeace95fa49ba2bbb74c1d7d50ae87a06af0a7596c
parentb60f4a5c9e71edd2d01705b1ec1a36dc135be96a (diff)
downloademacs-c8225cbef31d718d9a65b420faaf0bc387573acb.tar.gz
emacs-c8225cbef31d718d9a65b420faaf0bc387573acb.zip
(dired-omit-new-add-entry): Take new arg RELATIVE
and pass it to dired-omit-old-add-entry (which is dired-add-entry).
-rw-r--r--lisp/dired-x.el6
1 files 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'."
659 msg))) 659 msg)))
660 660
661;;; REDEFINE. 661;;; REDEFINE.
662(defun dired-omit-new-add-entry (filename &optional marker-char) 662(defun dired-omit-new-add-entry (filename &optional marker-char relative)
663 ;; This redefines dired-aux.el's dired-add-entry to avoid calling ls for 663 ;; This redefines dired-aux.el's dired-add-entry to avoid calling ls for
664 ;; files that are going to be omitted anyway. 664 ;; files that are going to be omitted anyway.
665 (if dired-omit-files-p 665 (if dired-omit-files-p
@@ -678,12 +678,12 @@ Second optional argument LOCALP is as in `dired-get-filename'."
678 filename 678 filename
679 (file-name-directory filename))))))) 679 (file-name-directory filename)))))))
680 ;; if it didn't match, go ahead and add the entry 680 ;; if it didn't match, go ahead and add the entry
681 (dired-omit-old-add-entry filename marker-char) 681 (dired-omit-old-add-entry filename marker-char relative)
682 ;; dired-add-entry returns t for success, perhaps we should 682 ;; dired-add-entry returns t for success, perhaps we should
683 ;; return file-exists-p 683 ;; return file-exists-p
684 t)) 684 t))
685 ;; omitting is not turned on at all 685 ;; omitting is not turned on at all
686 (dired-omit-old-add-entry filename marker-char))) 686 (dired-omit-old-add-entry filename marker-char relative)))
687 687
688;;; REDEFINE. 688;;; REDEFINE.
689;;; Redefine dired-aux.el's version of `dired-add-entry' 689;;; Redefine dired-aux.el's version of `dired-add-entry'