From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 7 Oct 1994 09:54:58 +0000 (+0000)
Subject: (outline-font-lock-keywords): New variable.
X-Git-Tag: emacs-19.34~6476
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9998c334df527b87e4fc4695a8044d563208625;p=emacs.git

(outline-font-lock-keywords): New variable.

(outline-mode): Set font-lock-keywords locally.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 89ae68847bd..5d337ddd37f 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -134,6 +134,20 @@ in the file it applies to.")
     (setq minor-mode-alist (append minor-mode-alist
 				   (list '(outline-minor-mode " Outl")))))
 
+(defvar outline-font-lock-keywords
+  '(;; Highlight headings according to the level.
+    ("^\\(\\*+\\)[ \t]*\\(.+\\)?[ \t]*$"
+     (1 font-lock-string-face)
+     (2 (let ((len (- (match-end 1) (match-beginning 1))))
+	  (or (cdr (assq len '((1 . font-lock-function-name-face)
+			       (2 . font-lock-keyword-face)
+			       (3 . font-lock-comment-face))))
+	      font-lock-variable-name-face))
+	nil t))
+    ;; Highight citations of the form [1] and [Mar94].
+    ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face))
+  "Additional expressions to highlight in Outline mode.")
+
 ;;;###autoload
 (defun outline-mode ()
   "Set major mode for editing outlines with selective display.
@@ -192,6 +206,8 @@ Turning on outline mode calls the value of `text-mode-hook' and then of
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate (concat paragraph-separate "\\|^\\("
 				   outline-regexp "\\)"))
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords outline-font-lock-keywords)
   (make-local-variable 'change-major-mode-hook)
   (add-hook 'change-major-mode-hook 'show-all)
   (run-hooks 'text-mode-hook 'outline-mode-hook))