[elpa] 01/06: * diff-hl: Fix byte compilation errors

[Dmitry Gutov]

dgutov pushed a commit to branch master
in repository elpa.

commit ef34ff8c5f0c6bad9585b5c21542fb49f8c689bd
Author: Barry <address@hidden>
Date:   Thu Dec 26 22:48:59 2013 -0500

    * diff-hl: Fix byte compilation errors
---
 diff-hl-margin.el |   21 +++++++++++----------
 1 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/diff-hl-margin.el b/diff-hl-margin.el
index f805aab..eb871b2 100644
--- a/diff-hl-margin.el
+++ b/diff-hl-margin.el
@@ -34,6 +34,7 @@
 ;;
 ;; (unless (window-system) (diff-hl-margin-mode))
 
+(require 'cl-lib)
 (require 'diff-hl)
 (require 'diff-hl-dired)
 
@@ -76,17 +77,17 @@
   (walk-windows (lambda (win) (set-window-buffer win (window-buffer win)))))
 
 (defvar diff-hl-margin-spec-cache
-  (loop for (type . char) in '((insert . "+") (delete . "-")
-                               (change . "|") (unknown . "?"))
+  (cl-loop for (type . char) in '((insert . "+") (delete . "-")
+                                  (change . "|") (unknown . "?"))
         nconc
-        (loop for side in '(left right)
-              collect
-              (cons (cons type side)
-                    (propertize
-                     " " 'display
-                     `((margin ,(intern (format "%s-margin" side)))
-                       ,(propertize char 'face
-                                    (intern (format "diff-hl-%s" type)))))))))
+        (cl-loop for side in '(left right)
+                 collect
+                 (cons (cons type side)
+                       (propertize
+                        " " 'display
+                        `((margin ,(intern (format "%s-margin" side)))
+                          ,(propertize char 'face
+                                       (intern (format "diff-hl-%s" 
type)))))))))
 
 (defun diff-hl-highlight-on-margin (ovl type _shape)
   (let ((spec (cdr (assoc (cons type diff-hl-margin-side)