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 | c8225cbef31d718d9a65b420faaf0bc387573acb (patch) | |
| tree | ace95fa49ba2bbb74c1d7d50ae87a06af0a7596c /lisp/dired-x.el | |
| parent | b60f4a5c9e71edd2d01705b1ec1a36dc135be96a (diff) | |
| download | emacs-c8225cbef31d718d9a65b420faaf0bc387573acb.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' |