[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: dired-after-readin-hook
From: |
kevin.gal |
Subject: |
Re: dired-after-readin-hook |
Date: |
Mon, 04 Dec 2006 12:56:28 -0600 (CST) |
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