[nongnu] elpa/evil-nerd-commenter 9450c91c71 063/235: Bufgix in evilnc--in-comment-p

[ELPA Syncer]

branch: elpa/evil-nerd-commenter
commit 9450c91c7118b1f32e63ad65620311f0bfb91d90
Author: Christoph Ruegge <mail@cxcs.de>
Commit: Christoph Ruegge <mail@cxcs.de>

    Bufgix in evilnc--in-comment-p
    
    Take care of the case that there may be more than one font face at pos.
---
 evil-nerd-commenter.el | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/evil-nerd-commenter.el b/evil-nerd-commenter.el
index ae59aa829b..d9ab951596 100644
--- a/evil-nerd-commenter.el
+++ b/evil-nerd-commenter.el
@@ -146,12 +146,15 @@
 
 (defun evilnc--in-comment-p (pos)
   (interactive)
-  (let ((fontface (get-text-property pos 'face)))
-    ;; learn this trick from flyspell
-    (or (string= fontface 'font-lock-comment-face)
-        (string= fontface 'font-lock-comment-delimiter-face)
-        )
-    ))
+  (let ((fontfaces (get-text-property pos 'face)))
+    (when (not (listp fontfaces))
+      (setf fontfaces (list fontfaces)))
+    (delq nil
+          (mapcar #'(lambda (f)
+                      ;; learn this trick from flyspell
+                      (or (string= f 'font-lock-comment-face)
+                          (string= f 'font-lock-comment-delimiter-face)))
+                  fontfaces))))
 
 ;; @return (list beg end)
 (defun evilnc--extend-to-whole-comment (beg end)