[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: dired-after-readin-hook
From: |
Richard Stallman |
Subject: |
Re: dired-after-readin-hook |
Date: |
Sat, 02 Dec 2006 12:56:31 -0500 |
Does this give good results?
*** dired.el 06 Nov 2006 10:51:18 -0500 1.353
--- dired.el 02 Dec 2006 12:54:18 -0500
***************
*** 1045,1053 ****
;; treat top level dir extra (it may contain wildcards)
(dired-uncache
(if (consp dired-directory) (car dired-directory) dired-directory))
! (dired-readin)
(let ((dired-after-readin-hook nil))
! ;; don't run that hook for each subdir...
(dired-insert-old-subdirs old-subdir-alist))
(dired-mark-remembered mark-alist) ; mark files that were marked
;; ... run the hook for the whole buffer, and only after markers
--- 1045,1053 ----
;; treat top level dir extra (it may contain wildcards)
(dired-uncache
(if (consp dired-directory) (car dired-directory) dired-directory))
! ;; Run dired-after-readin-hook just once, below.
(let ((dired-after-readin-hook nil))
! (dired-readin)
(dired-insert-old-subdirs old-subdir-alist))
(dired-mark-remembered mark-alist) ; mark files that were marked
;; ... run the hook for the whole buffer, and only after markers
- Re: dired-after-readin-hook,
Richard Stallman <=