mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(format-annotate-single-property-change): Test that property.
If present, treat list property values like atoms.
This commit is contained in:
Gerd Moellmann 1999-07-21 21:43:03 +00:00
parent 81b99826ff
commit f3bbef8728
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/format.el
View file

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