[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.
Thanks,
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.")
+
;;;###autoload
(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.
- outline mode doesn't call outline-mode-hook as promised (patch),
Tom 7 <=