diff options
author | Dan Gudmundsson <dgud@erlang.org> | 2010-05-03 12:51:16 +0200 |
---|---|---|
committer | Dan Gudmundsson <dgud@erlang.org> | 2010-05-03 15:16:26 +0200 |
commit | 5373c9cd8cecd4f06c93e30ed9c28acf1cfc8ecf (patch) | |
tree | 9dd6311331fc4d1f51e6fe8054735beaf60d7b63 /lib | |
parent | 3a68c36ca7aed71d643ea29460e36fec7e56817d (diff) | |
download | otp-5373c9cd8cecd4f06c93e30ed9c28acf1cfc8ecf.tar.gz otp-5373c9cd8cecd4f06c93e30ed9c28acf1cfc8ecf.tar.bz2 otp-5373c9cd8cecd4f06c93e30ed9c28acf1cfc8ecf.zip |
Remove usage of 'font-lock-preprocessor-face' if not available
i.e. in emacs-21
Diffstat (limited to 'lib')
-rw-r--r-- | lib/tools/emacs/erlang.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index a84f40244d..0132587d28 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -988,7 +988,7 @@ behaviour.") (list (concat "^\\(-" erlang-atom-regexp "\\)\\(\\s-\\|\\.\\|(\\)") 1 (if (boundp 'font-lock-preprocessor-face) 'font-lock-preprocessor-face - 'font-lock-function-name-face))) + 'font-lock-constant-face))) "Font lock keyword highlighting attributes.") (defvar erlang-font-lock-keywords-quotes @@ -1019,10 +1019,12 @@ are highlighted by syntactic analysis.") (list (list (concat "?\\s-*\\(" erlang-atom-regexp "\\|" erlang-variable-regexp "\\)") - 1 'font-lock-type-face) + 1 'font-lock-constant-face) (list (concat "^\\(-\\(?:define\\|ifn?def\\)\\)\\s-*(\\s-*\\(" erlang-atom-regexp "\\|" erlang-variable-regexp "\\)") - (list 1 'font-lock-preprocessor-face t) + (if (boundp 'font-lock-preprocessor-face) + (list 1 'font-lock-preprocessor-face t) + (list 1 'font-lock-constant-face t)) (list 3 'font-lock-type-face t t)) (list "^-e\\(lse\\|ndif\\)\\>" 0 'font-lock-preprocessor-face t)) "Font lock keyword highlighting macros. |