From 34fbecde23fc6731b2414ac0fcaf4732dc5fbc72 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 Aug 1997 19:30:25 +0000 Subject: [PATCH] (format-annotate-atomic-property-change): Fix prev change. --- lisp/format.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) 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)))) -- 2.39.5