branch: externals/cm-mode
commit f7a76feae7292ceda91d8e4bc8f87804fdfb29bf
Author: Joost Kremers <[email protected]>
Commit: Joost Kremers <[email protected]>
Remove font lock mouse face specification.
---
cm-mode.el | 22 ++++++++++------------
1 file changed, 10 insertions(+), 12 deletions(-)
diff --git a/cm-mode.el b/cm-mode.el
index 958714d17d..7d08addf26 100644
--- a/cm-mode.el
+++ b/cm-mode.el
@@ -186,21 +186,19 @@
:init-value nil :lighter " cm" :global nil
(cond
(cm-mode ; cm-mode is turned on
- (font-lock-add-keywords nil `((,cm-addition-regexp 0 '(face
cm-addition-face mouse-face (:inherit 'cm-addition-face :inverse-video t)))
- (,cm-deletion-regexp 0 '(face
cm-deletion-face mouse-face (:inherit 'cm-deletion-face :inverse-video t)))
- (,cm-substitution-regexp 0 '(face
cm-substitution-face mouse-face (:inherit 'cm-substitution-face :inverse-video
t)))
- (,cm-comment-regexp 0 '(face cm-comment-face
mouse-face (:inherit 'cm-comment-face :inverse-video t)))
- (,cm-highlight-regexp 0 '(face
cm-highlight-face mouse-face (:inherit 'cm-highlight-face :inverse-video t))))
t)
- (add-to-list 'font-lock-extra-managed-props 'mouse-face)
+ (font-lock-add-keywords nil `((,cm-addition-regexp . 'cm-addition-face)
+ (,cm-deletion-regexp . 'cm-deletion-face)
+ (,cm-substitution-regexp .
'cm-substitution-face)
+ (,cm-comment-regexp . 'cm-comment-face)
+ (,cm-highlight-regexp . cm-highlight-face))
t)
(setq cm-current-markup-overlay (make-overlay 1 1))
(overlay-put cm-current-markup-overlay 'face 'highlight))
((not cm-mode) ; cm-mode is turned off
- (font-lock-remove-keywords nil `((,cm-addition-regexp 0 '(face
cm-addition-face mouse-face (:inherit 'cm-addition-face :inverse-video t)))
- (,cm-deletion-regexp 0 '(face
cm-deletion-face mouse-face (:inherit 'cm-deletion-face :inverse-video t)))
- (,cm-substitution-regexp 0 '(face
cm-substitution-face mouse-face (:inherit 'cm-substitution-face :inverse-video
t)))
- (,cm-comment-regexp 0 '(face
cm-comment-face mouse-face (:inherit 'cm-comment-face :inverse-video t)))
- (,cm-highlight-regexp 0 '(face
cm-highlight-face mouse-face (:inherit 'cm-highlight-face :inverse-video t)))))
- (setq font-lock-extra-managed-props (delq 'mouse-face
font-lock-extra-managed-props))
+ (font-lock-remove-keywords nil `((,cm-addition-regexp . 'cm-addition-face)
+ (,cm-deletion-regexp . 'cm-deletion-face)
+ (,cm-substitution-regexp .
'cm-substitution-face)
+ (,cm-comment-regexp . 'cm-comment-face)
+ (,cm-highlight-regexp .
cm-highlight-face)))
(remove-overlays))))
;;;###autoload
