Mercurial > emacs

comparison lisp/format.el @ 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 33adb5cee0b0
children 166c69d75f01
comparison
equal deleted inserted replaced
19358:33f430abc9ed 19359:8f531dfe20bc
858 (setq num-ann prop-alist) 858 (setq num-ann prop-alist)
859 (while (and num-ann (not (numberp (car (car num-ann))))) 859 (while (and num-ann (not (numberp (car (car num-ann)))))
860 (setq num-ann (cdr num-ann))))) 860 (setq num-ann (cdr num-ann)))))
861 (if num-ann 861 (if num-ann
862 ;; Numerical annotation - use difference 862 ;; Numerical annotation - use difference
863 863 (progn
864 ;; If property is numeric, nil means 0 864 ;; If property is numeric, nil means 0
865 (cond ((and (numberp old) (null new)) 865 (cond ((and (numberp old) (null new))
866 (setq new 0)) 866 (setq new 0))
867 ((and (numberp new) (null old)) 867 ((and (numberp new) (null old))
868 (setq old 0))) 868 (setq old 0)))
869 869
870 (let* ((entry (car num-ann)) 870 (let* ((entry (car num-ann))
871 (increment (car entry)) 871 (increment (car entry))
872 (n (ceiling (/ (float (- new old)) (float increment)))) 872 (n (ceiling (/ (float (- new old)) (float increment))))
873 (anno (car (cdr entry)))) 873 (anno (car (cdr entry))))
874 (if (> n 0) 874 (if (> n 0)
875 (cons nil (make-list n anno)) 875 (cons nil (make-list n anno))
876 (cons (make-list (- n) anno) nil))) 876 (cons (make-list (- n) anno) nil))))
877 877
878 ;; Standard annotation 878 ;; Standard annotation
879 (let ((close (and old (cdr (assoc old prop-alist)))) 879 (let ((close (and old (cdr (assoc old prop-alist))))
880 (open (and new (cdr (assoc new prop-alist))))) 880 (open (and new (cdr (assoc new prop-alist)))))
881 (if (or close open) 881 (if (or close open)