Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

(dired-omit-new-add-entry): Take new arg RELATIVE

Browse source 
and pass it to dired-omit-old-add-entry (which is dired-add-entry).
This commit is contained in:
Richard M. Stallman 1997-07-23 02:51:06 +00:00
parent b60f4a5c9e
commit c8225cbef3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/dired-x.el
View file

@ -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'