Mercurial > hg > xemacs-beta
comparison lisp/format.el @ 5270:3acaa0fc09be
Use #'some, #'every, etc. for composing boolean operations on lists.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* info.el (Info-insert-dir):
* format.el (format-deannotate-region):
* files.el (cd, save-buffers-kill-emacs):
Use #'some, #'every and related functions for applying boolean
operations to lists, instead of rolling our own ones that cons and
don't short-circuit.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 16 Sep 2010 15:58:10 +0100 |
| parents | 517f6887fbc0 |
| children | dbae25a8949d 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5269:90a0084b3541 | 5270:3acaa0fc09be |
|---|---|
| 602 (let ((value (car (car alist))) | 602 (let ((value (car (car alist))) |
| 603 (ans (cdr (car alist)))) | 603 (ans (cdr (car alist)))) |
| 604 (if (member top-name ans) | 604 (if (member top-name ans) |
| 605 ;; This annotation is listed, but still have to | 605 ;; This annotation is listed, but still have to |
| 606 ;; check if multiple annotations are satisfied | 606 ;; check if multiple annotations are satisfied |
| 607 (if (member nil (mapcar (lambda (r) | 607 (if (notevery (lambda (r) (assoc r open-ans)) |
| 608 (assoc r open-ans)) | 608 ans) |
| 609 ans)) | |
| 610 nil ; multiple ans not satisfied | 609 nil ; multiple ans not satisfied |
| 611 ;; If there are multiple annotations going | 610 ;; If there are multiple annotations going |
| 612 ;; into one text property, split up the other | 611 ;; into one text property, split up the other |
| 613 ;; annotations so they apply individually to | 612 ;; annotations so they apply individually to |
| 614 ;; the other regions. | 613 ;; the other regions. |