The macro was broken, use `eval'

diff --git a/diff-hl.el b/diff-hl.el
index 57608843a7ce971ae4554460246642efe0db5c9f..a0be038415939d19e9889f4644582f5017a60938 100644 (file)
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -50,14 +50,13 @@
                 (push (list line len type) res)))))))\r
     (nreverse res)))\r
 \r
-(defmacro diff-hl-defspec (symbol)\r
+(dolist (type '(insert delete change))\r
   (let* ((type-str (symbol-name type))\r
          (spec-sym (intern (concat "diff-hl-" type-str "-spec")))\r
          (face-sym (intern (concat "diff-hl-" type-str))))\r
-    `(defconst ,spec-sym\r
-       ,(propertize " " 'display `((left-fringe diff-hl-empty ,face-sym))))))\r
-\r
-(mapc (lambda (type) (diff-hl-defspec type)) '(insert delete change))\r
+    (eval `(defconst ,spec-sym\r
+             ,(propertize " " 'display\r
+                          `((left-fringe diff-hl-empty ,face-sym)))))))\r
 \r
 (defun diff-hl-update ()\r
   (let ((changes (diff-hl-changes))\r