From 7bdd8beba6ae2debc950d824b55db09bd2325a56 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Fri, 10 Jun 2005 12:47:38 +0000 Subject: [PATCH] (eudc-hotlist-mode): Use run-mode-hooks. --- lisp/ChangeLog | 2 ++ lisp/net/eudc-hotlist.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 689c3c4e936..e2745296ca4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -33,6 +33,8 @@ * play/doctor.el (doctor-mode-map): Remove defvar. (doctor-mode): Use define-derived-mode. + * mail/mspools.el (mspools-mode): + * net/eudc-hotlist.el (eudc-hotlist-mode): * play/blackbox.el (blackbox-mode): Use run-mode-hooks. 2005-06-10 Miles Bader diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el index 9dc81ce2bc9..bede338b364 100644 --- a/lisp/net/eudc-hotlist.el +++ b/lisp/net/eudc-hotlist.el @@ -56,7 +56,8 @@ These are the special commands of this mode: (featurep 'menubar)) (set-buffer-menubar current-menubar) (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu))))) - (setq buffer-read-only t)) + (setq buffer-read-only t) + (run-mode-hooks 'eudc-hotlist-mode-hook)) ;;;###autoload (defun eudc-edit-hotlist () -- 2.39.2