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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae035d0f8602846f2bc501af219dd265857a9b5a..24209670259191f60e268eabda5c1f59c6b50a9e 100644 (file)
--- 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 d3f657c4005d026ba128ab4e1dd08b694546c639..43d03627a98482afa09cd035a19a5ee8f85d14d4 100644 (file)
--- 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.