Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(outline-font-lock-keywords): Highlight the

Browse source 
whole line, not just the part that matches the regexp.
This commit is contained in:
Karl Heuer 1997-10-24 19:37:53 +00:00
parent 4743fc911e
commit ef5c41bd83
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/textmodes/outline.el
View file

@ -147,17 +147,20 @@ in the file it applies to."
(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