[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master e0b988b: rainbow: add font-lock at the end
From: |
Julien Danjou |
Subject: |
[elpa] master e0b988b: rainbow: add font-lock at the end |
Date: |
Mon, 12 Oct 2015 15:09:44 +0000 |
branch: master
commit e0b988bce24d5cd07700df830f6bbb13259941a8
Author: Julien Danjou <address@hidden>
Commit: Julien Danjou <address@hidden>
rainbow: add font-lock at the end
See https://github.com/fxbois/web-mode/issues/612
---
packages/rainbow-mode/rainbow-mode.el | 19 ++++++++++++-------
1 files changed, 12 insertions(+), 7 deletions(-)
diff --git a/packages/rainbow-mode/rainbow-mode.el
b/packages/rainbow-mode/rainbow-mode.el
index 93c99e3..15ae91c 100644
--- a/packages/rainbow-mode/rainbow-mode.el
+++ b/packages/rainbow-mode/rainbow-mode.el
@@ -4,7 +4,7 @@
;; Author: Julien Danjou <address@hidden>
;; Keywords: faces
-;; Version: 0.11
+;; Version: 0.12
;; This file is part of GNU Emacs.
@@ -1104,25 +1104,29 @@ Return a value between 0 and 1."
(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)
@@ -1132,7 +1136,8 @@ Return a value between 0 and 1."
(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)
@@ -1142,7 +1147,7 @@ Return a value between 0 and 1."
(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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master e0b988b: rainbow: add font-lock at the end,
Julien Danjou <=