Mercurial > emacs

comparison lisp/dired-aux.el @ 39377:d4019f065e01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-insert-subdir): Pass switches to dired-build-subdir-alist.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 21 Sep 2001 16:42:34 +0000
parents b2fc23ab198a
children 7308bbc423d5
comparison
equal deleted inserted replaced
39376:7e0db9f5d524 39377:d4019f065e01
1621 ;; If subdir is already present, remove it and remember its marks 1621 ;; If subdir is already present, remove it and remember its marks
1622 (setq mark-alist (nconc (dired-insert-subdir-del elt) mark-alist)) 1622 (setq mark-alist (nconc (dired-insert-subdir-del elt) mark-alist))
1623 (dired-insert-subdir-newpos dirname)) ; else compute new position 1623 (dired-insert-subdir-newpos dirname)) ; else compute new position
1624 (dired-insert-subdir-doupdate 1624 (dired-insert-subdir-doupdate
1625 dirname elt (dired-insert-subdir-doinsert dirname switches)) 1625 dirname elt (dired-insert-subdir-doinsert dirname switches))
1626 (if switches-have-R (dired-build-subdir-alist)) 1626 (if switches-have-R (dired-build-subdir-alist switches))
1627 (dired-initial-position dirname) 1627 (dired-initial-position dirname)
1628 (save-excursion (dired-mark-remembered mark-alist)))) 1628 (save-excursion (dired-mark-remembered mark-alist))))
1629 1629
1630 ;; This is a separate function for dired-vms. 1630 ;; This is a separate function for dired-vms.
1631 (defun dired-insert-subdir-validate (dirname &optional switches) 1631 (defun dired-insert-subdir-validate (dirname &optional switches)