# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 932593383 0
# Node ID 583275537b1430f232a8ce72bf6bde90c39cae65
# Parent  c81447275ea3f61ff6e1a953d073f7984066c851
(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 -r c81447275ea3 -r 583275537b14 lisp/format.el
--- a/lisp/format.el	Wed Jul 21 21:43:03 1999 +0000
+++ b/lisp/format.el	Wed Jul 21 21:43:03 1999 +0000
@@ -502,6 +502,10 @@
 					; 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 @@
     (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))