From ef34ff8c5f0c6bad9585b5c21542fb49f8c689bd Mon Sep 17 00:00:00 2001 From: Barry Date: Thu, 26 Dec 2013 22:48:59 -0500 Subject: [PATCH] * diff-hl: Fix byte compilation errors --- diff-hl-margin.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/diff-hl-margin.el b/diff-hl-margin.el index f805aabf4..eb871b225 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) -- 2.39.2