diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2010-10-01 16:15:06 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2010-10-01 16:15:06 +0000 |
commit | 27116fe22a0ef9b535c23a3163e8dab9d9e3b65e (patch) | |
tree | b7459772dcabfb0ca3603cad5e153a836e2ef97e /lib | |
parent | 4d57f56ce6ae656889beffb1f12d98a1fd6154fe (diff) |
Failed attempt to fix font lock customizations for elisp
Diffstat (limited to 'lib')
-rw-r--r-- | lib/pg-dev.el | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/lib/pg-dev.el b/lib/pg-dev.el index 8253fd93..81c3b748 100644 --- a/lib/pg-dev.el +++ b/lib/pg-dev.el @@ -51,25 +51,23 @@ (defconst pg-dev-lisp-font-lock-keywords (list - ;; FIXME: used to work but now not quite right, see font-lock.el to fix - (concat "(\\(def\\(" ;; also proof-def - ;; Function like things - "^(\\(proof-def.*\\|defpg.*\\|defpa.*\\|.*asscustom\\)" + (concat "(\\(def" ;; also proof-def + ;; Function like things: ;; Variable like things - "\\([^ \t\n\(\)]*\\)" + "\\(pgcustom\\|pacustom\\)\\)" ;; Any whitespace and declared object. "[ \t'\(]*" - "\\([^ \t\n\)]+\\)?") + "\\(\\sw+\\)?") '(1 font-lock-keyword-face) - '(8 (cond ((match-beginning 3) 'font-lock-variable-name-face) - ;; ((match-beginning 6) 'font-lock-type-face) + '(3 (cond ((match-beginning 2) 'font-lock-variable-name-face) (t 'font-lock-function-name-face)) nil t))) +; not working, see font-lock.el for usual emacs lisp settings ;(add-hook 'emacs-lisp-mode-hook ; '(lambda () -; (font-lock-add-keywords 'emacs-lisp-mode -; pg-dev-lisp-font-lock-keywords))) +; (font-lock-add-keywords nil +; 'pg-dev-lisp-font-lock-keywords))) ;; |