Mercurial > hg > xemacs-beta

comparison lisp/format.el @ 225:12579d965149 r20-4b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b11
author cvs
date Mon, 13 Aug 2007 10:11:40 +0200
parents 2c611d1463a6
children 434959a2fba3
comparison
equal deleted inserted replaced
224:4663b37daab6 225:12579d965149
650 (setq extents (cdr extents) 650 (setq extents (cdr extents)
651 start (car (car extents)) 651 start (car (car extents))
652 loc (cdr (car extents)))))))) 652 loc (cdr (car extents))))))))
653 (setq alist (cdr alist)))) 653 (setq alist (cdr alist))))
654 (setq aalist (cdr aalist))) 654 (setq aalist (cdr aalist)))
655 (if (not matched) 655 (unless matched
656 ;; Didn't find any match for the annotation: 656 ;; Didn't find any match for the annotation:
657 ;; Store as value of text-property `unknown'. 657 ;; Store as value of text-property `unknown'.
658 (setcdr (car top-extents) loc)
658 (let ((extents top-extents) 659 (let ((extents top-extents)
659 (start (car (car top-extents))) 660 (start (car (car top-extents)))
660 (loc (cdr (car top-extents)))) 661 (loc (cdr (car top-extents))))
661 (while extents 662 (while extents
662 (setq open-ans (cdr open-ans) 663 (setq open-ans (cdr open-ans)