Commit f3bbef87 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(top-level): Give `display' property `format-list-atomic-p.

(format-annotate-single-property-change): Test that property.
If present, treat list property values like atoms.
parent 81b99826
......@@ -502,6 +502,10 @@ ORDER. Unmatched items will go last."
; See format-deannotate-region and
; format-annotate-region.
;; This text property has list values, but they are treated atomically.
(put 'display 'format-list-atomic-p t)
;;;
;;; Decoding
;;;
......@@ -921,7 +925,8 @@ Annotations to open and to close are returned as a dotted pair."
(if (not prop-alist)
nil
;; If either old or new is a list, have to treat both that way.
(if (or (consp old) (consp new))
(if (and (or (consp old) (consp new))
(not (get prop 'format-list-atomic-p)))
(let* ((old (if (listp old) old (list old)))
(new (if (listp new) new (list new)))
(tail (format-common-tail old new))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment