;; Author: Julien Danjou <julien@danjou.info>
;; Keywords: faces
-;; Version: 0.11
+;; Version: 0.12
;; This file is part of GNU Emacs.
(defun rainbow-turn-on ()
"Turn on raibow-mode."
(font-lock-add-keywords nil
- rainbow-hexadecimal-colors-font-lock-keywords)
+ rainbow-hexadecimal-colors-font-lock-keywords
+ t)
;; Activate X colors?
(when (or (eq rainbow-x-colors t)
(and (eq rainbow-x-colors 'auto)
(memq major-mode rainbow-x-colors-major-mode-list)))
(font-lock-add-keywords nil
- rainbow-x-colors-font-lock-keywords))
+ rainbow-x-colors-font-lock-keywords
+ t))
;; Activate LaTeX colors?
(when (or (eq rainbow-latex-colors t)
(and (eq rainbow-latex-colors 'auto)
(memq major-mode rainbow-latex-colors-major-mode-list)))
(font-lock-add-keywords nil
- rainbow-latex-rgb-colors-font-lock-keywords))
+ rainbow-latex-rgb-colors-font-lock-keywords
+ t))
;; Activate ANSI colors?
(when (or (eq rainbow-ansi-colors t)
(and (eq rainbow-ansi-colors 'auto)
(memq major-mode rainbow-ansi-colors-major-mode-list)))
(font-lock-add-keywords nil
- rainbow-ansi-colors-font-lock-keywords))
+ rainbow-ansi-colors-font-lock-keywords
+ t))
;; Activate HTML colors?
(when (or (eq rainbow-html-colors t)
(and (eq rainbow-html-colors 'auto)
(0 (rainbow-colorize-by-assoc rainbow-html-colors-alist)))))
(font-lock-add-keywords nil
`(,@rainbow-html-colors-font-lock-keywords
- ,@rainbow-html-rgb-colors-font-lock-keywords)))
+ ,@rainbow-html-rgb-colors-font-lock-keywords)
+ t))
;; Activate R colors?
(when (or (eq rainbow-r-colors t)
(and (eq rainbow-r-colors 'auto)
(0 (rainbow-colorize-by-assoc rainbow-r-colors-alist)))))
(font-lock-add-keywords nil
rainbow-r-colors-font-lock-keywords
- )))
+ t)))
(defun rainbow-turn-off ()
"Turn off rainbow-mode."