aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/emacs/erlang.el
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2010-05-03 12:51:16 +0200
committerDan Gudmundsson <[email protected]>2010-05-03 15:16:26 +0200
commit5373c9cd8cecd4f06c93e30ed9c28acf1cfc8ecf (patch)
tree9dd6311331fc4d1f51e6fe8054735beaf60d7b63 /lib/tools/emacs/erlang.el
parent3a68c36ca7aed71d643ea29460e36fec7e56817d (diff)
downloadotp-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/tools/emacs/erlang.el')
-rw-r--r--lib/tools/emacs/erlang.el8
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.