[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

outline mode doesn't call outline-mode-hook as promised (patch)

From: Tom 7
Subject: outline mode doesn't call outline-mode-hook as promised (patch)
Date: Wed, 16 Jul 2003 17:09:19 -0400 (EDT)

I sent another simple patch a few days ago, but didn't get any response.
Do developers still read this list? (Is there somewhere else I should be
sending this?)

Bug: The documentation for outline-mode says that it calls
outline-mode-hook, but that variable is never defined and it is never
called. This patch against CVS fixes it in the obvious way.


   Tom 7

[ NEW! : http://tom7.org/       ]
[ OLD! : http://fonts.tom7.com/ ]

Index: lisp/outline.el
RCS file: /cvsroot/emacs/emacs/lisp/outline.el,v
retrieving revision 1.1
diff -u -r1.1 outline.el
--- lisp/outline.el     30 May 2003 23:30:10 -0000      1.1
+++ lisp/outline.el     16 Jul 2003 19:30:04 -0000
@@ -213,6 +213,9 @@
 (defvar outline-view-change-hook nil
   "Normal hook to be run after outline visibility changes.")

+(defvar outline-mode-hook nil
+  "*This hook is run when outline mode starts.")
 (define-derived-mode outline-mode text-mode "Outline"
   "Set major mode for editing outlines with selective display.
@@ -268,7 +271,8 @@
        '(outline-font-lock-keywords t nil nil backward-paragraph))
   (setq imenu-generic-expression
        (list (list nil (concat "^\\(?:" outline-regexp "\\).*$") 0)))
-  (add-hook 'change-major-mode-hook 'show-all nil t))
+  (add-hook 'change-major-mode-hook 'show-all nil t)
+  (run-hooks 'outline-mode-hook))

 (defcustom outline-minor-mode-prefix "\C-c@"
   "*Prefix key to use for Outline commands in Outline minor mode.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]