diff options
| author | Richard M. Stallman | 1997-07-23 02:51:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-23 02:51:06 +0000 |
| commit | c8225cbef31d718d9a65b420faaf0bc387573acb (patch) | |
| tree | ace95fa49ba2bbb74c1d7d50ae87a06af0a7596c | |
| parent | b60f4a5c9e71edd2d01705b1ec1a36dc135be96a (diff) | |
| download | emacs-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.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'." | |||
| 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' |