Commit cc74539a authored by Paul Eggert's avatar Paul Eggert
Browse files

* lisp/format.el (format-annotate-single-property-change): Simplify.

parent 2fde6275
......@@ -1000,9 +1000,7 @@ either strings, or lists of the form (PARAMETER VALUE)."
(if (not (and (proper-list-p old)
(proper-list-p new)))
(format-annotate-atomic-property-change prop-alist old new)
(let* ((old (if (listp old) old (list old)))
(new (if (listp new) new (list new)))
close open)
(let (close open)
(while old
(setq close
(append (car (format-annotate-atomic-property-change
......
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