improve link checking

andrewpeck · Apr 18, 2024 · 016cb8a · 016cb8a
1 parent 4e07683
commit 016cb8a
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/hog.el b/hog.el
@@ -658,15 +658,15 @@ template at a specific PATH."
                                   (line-beginning-position)
                                   (line-end-position))))
 
-          (let* ((link (hog--get-link-at-point))
-                 (link-is-glob (file-expand-wildcards link))
-                 (link-exists (file-exists-p link)))
-            (when (and link
-                       (not (string-empty-p link))
-                       (not link-is-glob))
-              (when (not link-exists)
-                (setq errors (+ 1 errors))
-                (princ (format "Error:%d \"%s\" not found\n" (line-number-at-pos) link))))))
+          (let* ((link (hog--get-link-at-point)))
+            (when link
+              (let ((link-is-glob (file-expand-wildcards link))
+                    (link-exists (file-exists-p link)))
+                (when (and (not (string-empty-p link))
+                           (not link-is-glob)
+                           (not link-exists))
+                  (setq errors (+ 1 errors))
+                  (princ (format "Error:%d \"%s\" not found\n" (line-number-at-pos) link)))))))
         (forward-line))) errors))
 
 (provide 'hog)