Variable: outline-font-lock-keywords

outline-font-lock-keywords is a variable defined in outline.el.gz.

Value

((eval list
       (or
	(when outline-search-function
	  #[257
	    "
!\211\205%�\302\303\224\212\304 \305\306\"\216\307\310	P\311\312#*\262
\206!�\313 D!\210\211\207"
	    [outline-search-function outline-heading-end-regexp
				     set-match-data 0 match-data
				     make-closure
				     #[0 "\301\300\302\"\207"
					 [V0 set-match-data t] 3]
				     re-search-forward ".*" nil t
				     pos-eol]
	    9
	    ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/outline.elc"
	     . 9802)])
	(concat "^\\(?:" outline-regexp "\\).*"
		outline-heading-end-regexp))
       0
       '(if outline-minor-mode
	    (if outline-minor-mode-highlight
		(list 'face (outline-font-lock-face)))
	  (outline-font-lock-face))
       (when outline-minor-mode
	 (pcase outline-minor-mode-highlight
	   ('override t) ('append 'append)))
       t))

Documentation

Additional expressions to highlight in Outline mode.

Source Code

;; Defined in /usr/src/emacs/lisp/outline.el.gz
(defvar outline-font-lock-keywords
  `(
    ;; Highlight headings according to the level.
    (eval . (list (or (when outline-search-function
                        ,(lambda (limit)
                           (when-let* ((ret (funcall outline-search-function limit)))
                             ;; This is equivalent to adding ".*" in the regexp below.
                             (set-match-data
                              (list (match-beginning 0)
                                    (or (save-excursion
                                          (save-match-data
                                            (re-search-forward
                                             (concat ".*" outline-heading-end-regexp) nil t)))
                                        ;; Fall back to eol when there is no newline
                                        ;; at the end of outline at eob.
                                        (pos-eol))))
                             ret)))
                      (concat "^\\(?:" outline-regexp "\\).*" outline-heading-end-regexp))
                  0 '(if outline-minor-mode
                         (if outline-minor-mode-highlight
                             (list 'face (outline-font-lock-face)))
                       (outline-font-lock-face))
                  (when outline-minor-mode
                    (pcase outline-minor-mode-highlight
                      ('override t)
                      ('append 'append)))
                  t)))
  "Additional expressions to highlight in Outline mode.")