From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 10 Jul 2018 01:59:58 +0000 (-0700)
Subject: * lisp/format.el (format-annotate-single-property-change): Simplify.
X-Git-Tag: emacs-27.0.90~4695
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc74539a19229ee7e70055b00e8334bd6abc0841;p=emacs.git

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

diff --git a/lisp/format.el b/lisp/format.el
index 1222abbf658..5bf1be39475 100644
--- 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