From 9b544de17ca963c96798b806c3253445879d232d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 7 Oct 1998 00:01:15 +0000 Subject: [PATCH] (generic-mode-with-type): Added hooks for generic-modes. --- lisp/generic.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/generic.el b/lisp/generic.el index 407795541b6..99169dc62c8 100644 --- a/lisp/generic.el +++ b/lisp/generic.el @@ -326,6 +326,7 @@ If DESCRIPTION is provided, it is used as the docstring." "Go into the generic-mode MODE." (let* ((type (or mode generic-mode-name)) (generic-mode-list (assoc type generic-mode-alist)) + (generic-mode-hooks (intern (concat (symbol-name type) "-hooks"))) ) (and (not generic-mode-list) @@ -359,6 +360,8 @@ If DESCRIPTION is provided, it is used as the docstring." ;; Call a list of functions (and generic-mode-function-list (mapcar 'funcall generic-mode-function-list)) + + (run-hooks generic-mode-hooks) ) ) -- 2.39.2