(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.

diff --git a/lisp/format.el b/lisp/format.el
index 6fab2a3e725bcbe1b96a83da1cf83fc28ff8db4c..77b46860c1f948240b4d2ec4da608ab3d94fc134 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -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))