branch: externals/easy-escape
commit a379bdc6c2e9c94d505932d283d5591fe1c07d54
Author: Clément Pit--Claudel <clement.pitclau...@live.com>
Commit: Clément Pit--Claudel <clement.pitclau...@live.com>
Revert changes when mode is disabled
---
easy-escape.el | 19 +++++++++++++++----
1 file changed, 15 insertions(+), 4 deletions(-)
diff --git a/easy-escape.el b/easy-escape.el
index 6700329..9fc230b 100644
--- a/easy-escape.el
+++ b/easy-escape.el
@@ -48,6 +48,11 @@ Good candidates include the following:
Most of these characters require non-standard fonts to display properly,
however."
:group 'easy-escape)
+(defconst easy-escape--keywords
+ '((easy-escape--mark-escapes (0 (easy-escape--compose (match-beginning 0)))
+ (0 'easy-escape-face append)))
+ "Font-lock keyword list used internally")
+
(defun easy-escape--in-string-p (pos)
"Indicate whether POS is inside of a string."
(let ((face (get-text-property pos 'face)))
@@ -78,10 +83,16 @@ and the single slash too subtle, try the following:
* Adjust the foreground of `easy-escape-face'
* Set `easy-escape-character' to a different character."
- nil " ez-esc" nil
- (font-lock-add-keywords nil '((easy-escape--mark-escapes (0
(easy-escape--compose (match-beginning 0)))
- (0
'easy-escape-face prepend))))
- (add-to-list 'font-lock-extra-managed-props 'composition))
+ :lighter " ez-esc"
+ :group 'easy-escape
+ (if easy-escape-minor-mode
+ (progn (font-lock-add-keywords nil easy-escape--keywords)
+ (add-to-list (make-local-variable 'font-lock-extra-managed-props)
'composition))
+ (font-lock-remove-keywords nil easy-escape--keywords))
+ (font-lock-flush))
+
+;;;###autoload
+(add-hook 'lisp-mode-hook 'easy-escape-minor-mode)
(provide 'easy-escape)
;;; easy-escape.el ends here
