fixoid

jyp · Jan 7, 2024 · 6dc09dc · 6dc09dc
1 parent 1cec356
commit 6dc09dc
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/boon-hl.el b/boon-hl.el
@@ -91,9 +91,10 @@ Search backward if DIRECTION is non-nil."
 
 
 (defun boon--faces-property (pos)
-  ""
-  (let ((x (get-text-property pos 'face)))
-    (if (listp x) x (list x))))
+  "Return the face properties at POS"
+  (and (> pos 0)
+       (let ((x (get-text-property pos 'face)))
+         (if (listp x) x (list x)))))
 
 (defun boon-hl-patterns-at-point ()
   "List of hl'ed patterns at point."