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

diff --git a/lisp/format.el b/lisp/format.el
index 1222abbf658ddd0d3e1b86c673e0ab8f054ad610..5bf1be394757dffc4a24d98041c86dca6480fabc 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -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