From: Jim Porter <jporterbugs@gmail.com>
Date: Sat, 31 May 2025 05:21:40 +0000 (-0700)
Subject: Add more "safe" display specs to 'visual-wrap-prefix-mode'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=091a9cd11694b9031a0037476ee4a795949f4645;p=emacs.git

Add more "safe" display specs to 'visual-wrap-prefix-mode'

* lisp/visual-wrap.el (visual-wrap--safe-display-specs): Add
'space-width' and 'min-width'.
(visual-wrap--display-property-safe-p): Use 'member' instead of 'memq'
to more-closely match the behavior of other code that works with display
properties.

(cherry picked from commit d25e9f518082f31ab730623eea36da45cd73ac06)
---

diff --git a/lisp/visual-wrap.el b/lisp/visual-wrap.el
index 2deaf263ed6..92b9abc60e3 100644
--- a/lisp/visual-wrap.el
+++ b/lisp/visual-wrap.el
@@ -74,7 +74,7 @@ extra indent = 2
       (face-background face nil t)))))
 
 (defvar visual-wrap--safe-display-specs
-  '(height raise)
+  '(space-width min-width height raise)
   "A list of display specs that don't interfere with wrap prefixes.
 A \"safe\" display spec is one that won't interfere with the additional
 text properties that `visual-wrap-prefix-mode' uses.
@@ -98,8 +98,8 @@ members of `visual-wrap--safe-display-specs' (which see)."
   (when (or (vectorp display) (listp display))
     (not (catch 'unsafe
            (mapc (lambda (spec)
-                   (unless (memq (car-safe spec)
-                                 visual-wrap--safe-display-specs)
+                   (unless (member (car-safe spec)
+                                   visual-wrap--safe-display-specs)
                      (throw 'unsafe t)))
                  display)))))