mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(format-annotate-atomic-property-change):

Browse Source 
Look thru all elements of PROP-ALIST for a number,
if OLD and NEW are numbers.
This commit is contained in:
Richard M. Stallman 1997-08-05 04:44:55 +00:00
parent 688697012a
commit e5a60108a2
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/format.el
View File

@ -843,23 +843,26 @@ Annotations to open and to close are returned as a dotted pair."
"Internal function annotate a single property change.
PROP-ALIST is the relevant segment of a TRANSLATIONS list.
OLD and NEW are the values."
(cond
;; Numerical annotation - use difference
((and (numberp old) (numberp new))
(let* ((entry (progn
(while (and (car (car prop-alist))
(not (numberp (car (car prop-alist)))))
(setq prop-alist (cdr prop-alist)))
(car prop-alist)))
(increment (car (car prop-alist)))
(n (ceiling (/ (float (- new old)) (float increment))))
(anno (car (cdr (car prop-alist)))))
(if (> n 0)
(cons nil (make-list n anno))
(cons (make-list (- n) anno) nil))))
(let (num-ann)
;; If old and new values are numbers,
;; look for a number in PROP-ALIST.
(if (and (numberp old) (numberp new))
(progn
(setq num-ann prop-alist)
(while (and num-ann (not (numberp (car (car num-ann)))))
(setq num-ann (cdr num-ann)))))
(if num-ann
;; Numerical annotation - use difference
(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
(t (let ((close (and old (cdr (assoc old prop-alist))))
;; Standard annotation
(let ((close (and old (cdr (assoc old prop-alist))))
(open (and new (cdr (assoc new prop-alist)))))
(if (or close open)
(format-make-relatively-unique close open)