From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 15 Aug 1997 19:30:25 +0000 (+0000)
Subject: (format-annotate-atomic-property-change): Fix prev change.
X-Git-Tag: emacs-20.1~589
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34fbecde23fc6731b2414ac0fcaf4732dc5fbc72;p=emacs.git

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

diff --git a/lisp/format.el b/lisp/format.el
index 9a74869be86..8ed5d78ab47 100644
--- 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))))