Source

hm--html-menus / hm--html-mode.el

Diff from to

hm--html-mode.el

 ;;; hm--html-mode --- Major mode for editing HTML documents for the WWW
 
-;; Copyright (C) 1996, 1997 Heiko Muenkel
+;; Copyright (C) 1996 - 1998 Heiko Muenkel
 
 ;; Author: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
 ;; Keywords: hypermedia languages help docs wp
 
 (defconst hm--html-menus-package-name "hm--html-menus")
 
-(defconst hm--html-menus-package-version "5.8")
+(defconst hm--html-menus-package-version "5.9")
   
 
 ;;; Generate the help buffer faces
 	    (and (eq major-mode 'hm--html-mode)
 		 (if (null arg) (not hm--html-region-mode)
 		   (> (prefix-numeric-value arg) 0))))
+      (redraw-modeline)
       )
 
     (defun hm--html-region-mode (&optional arg)
 	      hm--html-emacs19-popup-noregion-menu-button
 	      hm--html-menu-noregion-novice-map)))
       )
-
+    (redraw-modeline)
     )
 
 
   (if hm--html-minor-mode
       (progn
 	(hm--install-html-menu hm--html-minor-mode-pulldown-menu-name)
-	(when (adapt-emacs19p)
+
+	;; In the future it may be a good idea to merge the contents
+	;; of the idd-actions of the major mode with the one of the
+	;; minor mode.
+	(setq idd-actions hm--html-idd-actions)
+	(when (adapt-emacsp)
 	  (hm--html-add-major-menu-to-minor-menus)))
     (when (and (featurep 'menubar)
-	       current-menubar (assoc hm--html-minor-mode-pulldown-menu-name
-				      current-menubar))
+	       current-menubar 
+	       (assoc hm--html-minor-mode-pulldown-menu-name
+		      current-menubar))
       (delete-menu-item (list hm--html-minor-mode-pulldown-menu-name)))
-    (when (adapt-emacs19p)
+    (when (adapt-emacsp)
       (hm--html-remove-major-menu-from-minor-menus)))
+  (redraw-modeline)
   )
   
 
 	    (and hm--html-minor-mode
 		 (if (null arg) (not hm--html-minor-region-mode)
 		   (> (prefix-numeric-value arg) 0))))
+      (redraw-modeline)
       )
 
     (defun hm--html-minor-region-mode (&optional arg)
 	      hm--html-emacs19-popup-noregion-menu-button
 	      hm--html-menu-noregion-novice-map)))
       )
+    (redraw-modeline)
     )