emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c3f28f2 25/27: Shorten some lines


From: Dmitry Gutov
Subject: [elpa] master c3f28f2 25/27: Shorten some lines
Date: Sat, 29 Oct 2016 00:04:19 +0000 (UTC)

branch: master
commit c3f28f2003638e88e5cf0b03835412af7814f3b0
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Shorten some lines
---
 highlight-escape-sequences.el |   18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/highlight-escape-sequences.el b/highlight-escape-sequences.el
index 6bfaa1b..e829ab3 100644
--- a/highlight-escape-sequences.el
+++ b/highlight-escape-sequences.el
@@ -209,9 +209,15 @@ Currently handles:
   (interactive)
   (dolist (mode hes-mode-alist)
     (if (atom mode)
-        (font-lock-add-keywords mode (hes-make-simple-escape-sequence-keywords 
hes-common-escape-sequence-re) 'append)
+        (font-lock-add-keywords
+         mode
+         (hes-make-simple-escape-sequence-keywords 
hes-common-escape-sequence-re)
+         'append)
       (when (stringp (cdr mode))
-        (font-lock-add-keywords (car mode) 
(hes-make-simple-escape-sequence-keywords (cdr mode)) 'append))
+        (font-lock-add-keywords
+         (car mode)
+         (hes-make-simple-escape-sequence-keywords (cdr mode))
+         'append))
       (when (listp (cdr mode))
         (font-lock-add-keywords (car mode) (cdr mode) 'append)))))
 
@@ -221,9 +227,13 @@ Currently handles:
   (interactive)
   (dolist (mode hes-mode-alist)
     (if (atom mode)
-        (font-lock-remove-keywords mode 
(hes-make-simple-escape-sequence-keywords hes-common-escape-sequence-re))
+        (font-lock-remove-keywords
+         mode
+         (hes-make-simple-escape-sequence-keywords 
hes-common-escape-sequence-re))
       (when (stringp (cdr mode))
-        (font-lock-remove-keywords (car mode) 
(hes-make-simple-escape-sequence-keywords (cdr mode))))
+        (font-lock-remove-keywords
+         (car mode)
+         (hes-make-simple-escape-sequence-keywords (cdr mode))))
       (when (listp (cdr mode))
         (font-lock-remove-keywords (car mode) (cdr mode))))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]