Re: dired-after-readin-hook

[kevin.gal]

Yes; it fixes the problem. 


Kevin Gallagher
FCS SOSCOE Configuration & Control
The Boeing Company
281-226-6888

-----Original Message-----
From: Richard Stallman [mailto:address@hidden 
Sent: Saturday, December 02, 2006 11:57 AM
To: address@hidden
Cc: address@hidden
Subject: Re: dired-after-readin-hook

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