From 27116fe22a0ef9b535c23a3163e8dab9d9e3b65e Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 1 Oct 2010 16:15:06 +0000 Subject: Failed attempt to fix font lock customizations for elisp --- lib/pg-dev.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'lib') 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))) ;; -- cgit v1.2.3