Mercurial > emacs

changeset 20175:ea977d99058b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-font-lock-keywords): Highlight the whole line, not just the part that matches the regexp.
author Karl Heuer <kwzh@gnu.org>
date Fri, 24 Oct 1997 19:37:53 +0000
parents e1ca1fe89e6e
children fb907b54fe26
files lisp/textmodes/outline.el
diffstat 1 files changed, 14 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/outline.el	Fri Oct 24 19:33:49 1997 +0000
+++ b/lisp/textmodes/outline.el	Fri Oct 24 19:37:53 1997 +0000
@@ -147,17 +147,20 @@
 				   (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))
-    ;; Highlight citations of the form [1] and [Mar94].
-    ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face))
+  '(;;
+    ;; Highlight headings according to the level.
+    (eval . (list (concat "^" outline-regexp ".+")
+		  0 '(or (cdr (assq (outline-font-lock-level)
+				    '((1 . font-lock-function-name-face)
+				      (2 . font-lock-variable-name-face)
+				      (3 . font-lock-keyword-face)
+				      (4 . font-lock-builtin-face)
+				      (5 . font-lock-comment-face)
+				      (6 . font-lock-reference-face)
+				      (7 . font-lock-type-face)
+				      (8 . font-lock-string-face))))
+			 font-lock-warning-face)
+		  nil t)))
   "Additional expressions to highlight in Outline mode.")
 
 (defvar outline-view-change-hook nil