Mercurial > emacs
changeset 24983:583275537b14
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 21 Jul 1999 21:43:03 +0000 |
| parents | c81447275ea3 |
| children | 1553432b90d5 |
| files | lisp/format.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))