(dired-load-hook, dired-mode-hook)

(dired-before-readin-hook, dired-after-readin-hook): Defcustom.

2 files changed, 21 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae035d0f860..24209670259 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-04  Simon Josefsson  <jas@extundo.com>
+
+        * dired.el (dired-load-hook, dired-mode-hook) 
+        (dired-before-readin-hook, dired-after-readin-hook): Defcustom.
+
 2002-02-03  Colin Walters  <walters@verbum.org>
 
         * ibuf-ext.el (ibuffer-filter-format-alist,
diff --git a/lisp/dired.el b/lisp/dired.el
index d3f657c4005..43d03627a98 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -164,20 +164,28 @@ The target is used in the prompt for file copy, rename etc."
 
 ;;; Hook variables
 
-(defvar dired-load-hook nil
+(defcustom dired-load-hook nil
   "Run after loading dired.
-You can customize key bindings or load extensions with this.")
+You can customize key bindings or load extensions with this."
+  :group 'dired
+  :type 'hook)
 
-(defvar dired-mode-hook nil
-  "Run at the very end of dired-mode.")
+(defcustom dired-mode-hook nil
+  "Run at the very end of dired-mode."
+  :group 'dired
+  :type 'hook)
 
-(defvar dired-before-readin-hook nil
-  "This hook is run before a dired buffer is read in (created or reverted).")
+(defcustom dired-before-readin-hook nil
+  "This hook is run before a dired buffer is read in (created or reverted)."
+  :group 'dired
+  :type 'hook)
 
-(defvar dired-after-readin-hook nil
+(defcustom dired-after-readin-hook nil
   "Hook run after each time a file or directory is read by Dired.
 After each listing of a file or directory, this hook is run
-with the buffer narrowed to the listing.")
+with the buffer narrowed to the listing."
+  :group 'dired
+  :type 'hook)
 ;; Note this can't simply be run inside function `dired-ls' as the hook
 ;; functions probably depend on the dired-subdir-alist to be OK.