Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Jim Porter 2025-05-30 22:21:40 -07:00
parent 9e322088b0
commit d25e9f5180
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/visual-wrap.el
View file

@ -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)))))