Mercurial > emacs

changeset 19359:8f531dfe20bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(format-annotate-atomic-property-change): Fix prev change.
author Richard M. Stallman <rms@gnu.org>
date Fri, 15 Aug 1997 19:30:25 +0000
parents 33f430abc9ed
children f25a49622794
files lisp/format.el
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- 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))))