Mercurial > emacs

changeset 23392:d86ad410d285

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generic-mode-with-type): Added hooks for generic-modes.
author Karl Heuer <kwzh@gnu.org>
date Wed, 07 Oct 1998 00:01:15 +0000
parents 4120f9e06191
children bcac7111042a
files lisp/generic.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/generic.el	Tue Oct 06 23:59:00 1998 +0000
+++ b/lisp/generic.el	Wed Oct 07 00:01:15 1998 +0000
@@ -326,6 +326,7 @@
   "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 @@
     ;; Call a list of functions
     (and generic-mode-function-list
 	 (mapcar 'funcall generic-mode-function-list))
+
+    (run-hooks generic-mode-hooks)
     )
   )