# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871673425 0
# Node ID 8f531dfe20bc587eff8f07d242930b678cd28532
# Parent  33f430abc9ed0c862bf9d13e6fbf032f91f0d077
(format-annotate-atomic-property-change): Fix prev change.

diff -r 33f430abc9ed -r 8f531dfe20bc lisp/format.el
--- a/lisp/format.el	Fri Aug 15 19:28:16 1997 +0000
+++ b/lisp/format.el	Fri Aug 15 19:30:25 1997 +0000
@@ -860,20 +860,20 @@
 	    (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)))
+	(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)))
+	  (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))))