From 6fa7770773477792d5b9571d37f31c2b5ab431f1 Mon Sep 17 00:00:00 2001
From: yours57 <84837644+yours57@users.noreply.github.com>
Date: Wed, 15 Apr 2026 16:38:41 +0800
Subject: Fix org-block detection for composite faces

Handle composite faces such as (diff-indicator-added org-block)
when deciding whether to skip alignment inside Org blocks.
---
 valign.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/valign.el b/valign.el
index cec7ce0..b7881ba 100644
--- a/valign.el
+++ b/valign.el
@@ -531,7 +531,7 @@ TYPE must be 'org.  Start at point, stop at LIMIT."
     (let ((face (plist-get (text-properties-at (point)) 'face)))
       ;; Don’t align tables in org blocks.
       (not (and (consp face)
-                (or (equal face '(org-block))
+                (or (memq 'org-block face)
                     (equal (plist-get face :inherit)
                            '(org-block))))))))
 
-- 
cgit v1.0