Re: Font-Locking for Allout Mode

[Stephen Berman]

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

> The proper adaptation should be the following, right?

Wrong, but how about 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