[elpa] externals/objed da4dae5 131/166: Allow navigating overlay faces, too

[Clemens Radermacher]

branch: externals/objed
commit da4dae592e7949a5f493eb89c2aaeb463e0c153f
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Allow navigating overlay faces, too
---
 objed-objects.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/objed-objects.el b/objed-objects.el
index 32e4345..8e4a9b0 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2498,11 +2498,17 @@ non-nil the indentation block can contain empty lines."
   :try-prev
   (search-backward ">" nil t))
 
-
+(defvar hl-line-overlay)
 (defun objed--what-face (&optional pos)
   "Return face at POS."
   (let* ((pos (or pos (point)))
-         (face (get-text-property pos 'face)))
+         (ov (car (overlays-at (point) t)))
+         (face (or (and ov
+                        ;; exclude hl line
+                        (not (eq hl-line-overlay ov))
+                        (overlay-get ov  'face))
+                   (get-char-property pos 'read-face-name)
+                   (get-text-property pos 'face))))
      (unless (keywordp (car-safe face)) (list face))))
 
 (defvar objed--last-face nil)