Re: Font-Locking for Allout Mode

[Stephen Berman]

On Sat, 10 Mar 2007 00:34:26 +0100 Stephen Berman
<Stephen.Berman@gmx.net> wrote: 

Copy-n-paste error, should be this:

(defvar srb-allout-font-lock-keywords
  '((eval . (list (concat "^\\(?:" allout-regexp "\\).+")
                  0 '(cond ((= (allout-depth) 1)
                            '(font-lock-function-name-face))
                           ((= (allout-depth) 2)
                            '(font-lock-variable-name-face))
                           ((= (allout-depth) 3)
                            '(font-lock-keyword-face))
                           ((= (allout-depth) 4)
                            '(font-lock-builtin-face))
                           ((= (allout-depth) 5)
                            '(font-lock-comment-face))
                           ((= (allout-depth) 6)
                            '(font-lock-constant-face))
                           ((= (allout-depth) 7)
                            '(font-lock-type-face))
                           ((= (allout-depth) 8)
                            '(font-lock-string-face))
                           (t font-lock-warning-face))
                  t nil)))
  "Additional expressions to highlight in Allout mode.")

Steve Berman