# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 879217016 0
# Node ID 4aa45a7a62e8e153cbf4839e27e0542107555bef
# Parent  78d833878a81ed2ab8f951f3e03d9bc2f5bce7c1
(wordstar-mode): Run wordstar-mode-hook.

diff -r 78d833878a81 -r 4aa45a7a62e8 lisp/emulation/ws-mode.el
--- a/lisp/emulation/ws-mode.el	Tue Nov 11 02:55:34 1997 +0000
+++ b/lisp/emulation/ws-mode.el	Tue Nov 11 02:56:56 1997 +0000
@@ -293,7 +293,8 @@
   (kill-all-local-variables)
   (use-local-map wordstar-mode-map)
   (setq mode-name "WordStar")
-  (setq major-mode 'wordstar-mode))
+  (setq major-mode 'wordstar-mode)
+  (run-hooks 'wordstar-mode-hook))
 
 
 (defun wordstar-center-paragraph ()