diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-23 02:51:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-23 02:51:06 +0000 |
| commit | 37da86f4199f1dc64051076cb93ad54ffc54b46d (patch) | |
| tree | ae0775f2ae96560b2369f44d4a4e8d30faf84041 /lisp/dired-x.el | |
| parent | 37ba1946d32b4e04af389003b28e7761b9934921 (diff) | |
| download | emacs-37da86f4199f1dc64051076cb93ad54ffc54b46d.tar.gz | |
(dired-omit-new-add-entry): Take new arg RELATIVE
and pass it to dired-omit-old-add-entry (which is dired-add-entry).
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 6 |
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'." 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' |