From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 4 Feb 2002 19:40:08 +0000 (+0000)
Subject: (dired-load-hook, dired-mode-hook)
X-Git-Tag: ttn-vms-21-2-B4~16846
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2792945cb9de15fc98c00f0aabe2592f4eebe10;p=emacs.git

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

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.