18 lines
650 B
EmacsLisp
18 lines
650 B
EmacsLisp
|
(defun add-my-keywords (mode)
|
||
|
|
(font-lock-add-keywords
|
||
|
|
mode
|
||
|
|
;; Currently support for [ ] | & ! . + = - / % * , ( ) < > { } ? : => ->
|
||
|
|
'(("\\([\\[|.!+=&/%*,(){}:-]\\|\\]\\|\\ [><]\\ \\|[^<]\\?[^>]\\|\\=>\\)" 1 font-lock-operator-face)
|
||
|
|
("\\(;\\)" 1 font-lock-end-statement))))
|
||
|
|
|
||
|
|
(add-my-keywords 'c-mode)
|
||
|
|
(add-my-keywords 'php-mode)
|
||
|
|
|
||
|
|
(make-face 'font-lock-operator-face)
|
||
|
|
(make-face 'font-lock-end-statement)
|
||
|
|
(defvar font-lock-operator-face 'font-lock-operator-face)
|
||
|
|
(defvar font-lock-end-statement 'font-lock-end-statement)
|
||
|
|
|
||
|
|
(set-face-foreground 'font-lock-operator-face "#EDD400")
|
||
|
|
(set-face-foreground 'font-lock-end-statement "#888A85")
|