(format-annotate-atomic-property-change): Fix prev change.

diff --git a/lisp/format.el b/lisp/format.el
index 9a74869be86dbc4f00dbd450e8e8200a074f5372..8ed5d78ab47595146df184a0ab3f566c0c170a90 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -860,20 +860,20 @@ OLD and NEW are the values."
            (setq num-ann (cdr num-ann)))))
     (if num-ann
        ;; Numerical annotation - use difference
-
-       ;; If property is numeric, nil means 0
-       (cond ((and (numberp old) (null new))
-              (setq new 0))
-             ((and (numberp new) (null old))
-              (setq old 0)))
-
-       (let* ((entry (car num-ann))
-              (increment (car entry))
-              (n (ceiling (/ (float (- new old)) (float increment))))
-              (anno (car (cdr entry))))
-         (if (> n 0)
-             (cons nil (make-list n anno))
-           (cons (make-list (- n) anno) nil)))
+       (progn
+         ;; If property is numeric, nil means 0
+         (cond ((and (numberp old) (null new))
+                (setq new 0))
+               ((and (numberp new) (null old))
+                (setq old 0)))
+
+         (let* ((entry (car num-ann))
+                (increment (car entry))
+                (n (ceiling (/ (float (- new old)) (float increment))))
+                (anno (car (cdr entry))))
+           (if (> n 0)
+               (cons nil (make-list n anno))
+             (cons (make-list (- n) anno) nil))))
 
       ;; Standard annotation
       (let ((close (and old (cdr (assoc old prop-alist))))