Mercurial > emacs

comparison lisp/textmodes/ooutline.el @ 16147:15cb7a0da3e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-font-lock-keywords): Treat carriage return like newline.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 Sep 1996 03:18:36 +0000
parents 83f275dcd93a
children f0ff96a35eb8
comparison
equal deleted inserted replaced
16146:a649abfefbb1 16147:15cb7a0da3e0
137 (setq minor-mode-alist (append minor-mode-alist 137 (setq minor-mode-alist (append minor-mode-alist
138 (list '(outline-minor-mode " Outl"))))) 138 (list '(outline-minor-mode " Outl")))))
139 139
140 (defvar outline-font-lock-keywords 140 (defvar outline-font-lock-keywords
141 '(;; Highlight headings according to the level. 141 '(;; Highlight headings according to the level.
142 ("^\\(\\*+\\)[ \t]*\\(.+\\)?[ \t]*$" 142 ("^\\([*]+\\)[ \t]*\\([^\n\r]+\\)?[ \t]*[\n\r]"
143 (1 font-lock-string-face) 143 (1 font-lock-string-face)
144 (2 (let ((len (- (match-end 1) (match-beginning 1)))) 144 (2 (let ((len (- (match-end 1) (match-beginning 1))))
145 (or (cdr (assq len '((1 . font-lock-function-name-face) 145 (or (cdr (assq len '((1 . font-lock-function-name-face)
146 (2 . font-lock-keyword-face) 146 (2 . font-lock-keyword-face)
147 (3 . font-lock-comment-face)))) 147 (3 . font-lock-comment-face))))