diff options
| author | Richard M. Stallman | 2006-12-04 00:32:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-12-04 00:32:00 +0000 |
| commit | 6a80f50e17c1b13ff761651ca37cecdb5cabcfc1 (patch) | |
| tree | 61b0fe63d138d86e65651f82b7dba6f90a118c6c | |
| parent | 49bb7f019f6537ffcd6776fc02b7c77ea7cfca2f (diff) | |
| download | emacs-6a80f50e17c1b13ff761651ca37cecdb5cabcfc1.tar.gz emacs-6a80f50e17c1b13ff761651ca37cecdb5cabcfc1.zip | |
(dired-revert): Turn off dired-after-readin-hook around call to dired-readin.
| -rw-r--r-- | lisp/dired.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 5359b464579..09f4dc8425a 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1045,9 +1045,9 @@ Preserves old cursor, marks/flags, hidden-p." | |||
| 1045 | ;; treat top level dir extra (it may contain wildcards) | 1045 | ;; treat top level dir extra (it may contain wildcards) |
| 1046 | (dired-uncache | 1046 | (dired-uncache |
| 1047 | (if (consp dired-directory) (car dired-directory) dired-directory)) | 1047 | (if (consp dired-directory) (car dired-directory) dired-directory)) |
| 1048 | (dired-readin) | 1048 | ;; Run dired-after-readin-hook just once, below. |
| 1049 | (let ((dired-after-readin-hook nil)) | 1049 | (let ((dired-after-readin-hook nil)) |
| 1050 | ;; don't run that hook for each subdir... | 1050 | (dired-readin) |
| 1051 | (dired-insert-old-subdirs old-subdir-alist)) | 1051 | (dired-insert-old-subdirs old-subdir-alist)) |
| 1052 | (dired-mark-remembered mark-alist) ; mark files that were marked | 1052 | (dired-mark-remembered mark-alist) ; mark files that were marked |
| 1053 | ;; ... run the hook for the whole buffer, and only after markers | 1053 | ;; ... run the hook for the whole buffer, and only after markers |