Mercurial > emacs
comparison lisp/gnus/gnus-range.el @ 110111:5b9f64b04a04
Delete all trailing white space.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 02 Sep 2010 01:42:32 +0000 |
| parents | 8d09094063d0 |
| children | f2e111723c3a |
comparison
equal
deleted
inserted
replaced
| 110110:91cc7bab2ca4 | 110111:5b9f64b04a04 |
|---|---|
| 185 (defun gnus-sorted-range-intersection (range1 range2) | 185 (defun gnus-sorted-range-intersection (range1 range2) |
| 186 "Return intersection of RANGE1 and RANGE2. | 186 "Return intersection of RANGE1 and RANGE2. |
| 187 RANGE1 and RANGE2 have to be sorted over <." | 187 RANGE1 and RANGE2 have to be sorted over <." |
| 188 (let* (out | 188 (let* (out |
| 189 (min1 (car range1)) | 189 (min1 (car range1)) |
| 190 (max1 (if (numberp min1) | 190 (max1 (if (numberp min1) |
| 191 (if (numberp (cdr range1)) | 191 (if (numberp (cdr range1)) |
| 192 (prog1 (cdr range1) | 192 (prog1 (cdr range1) |
| 193 (setq range1 nil)) min1) | 193 (setq range1 nil)) min1) |
| 194 (prog1 (cdr min1) | 194 (prog1 (cdr min1) |
| 195 (setq min1 (car min1))))) | 195 (setq min1 (car min1))))) |
| 196 (min2 (car range2)) | 196 (min2 (car range2)) |
| 197 (max2 (if (numberp min2) | 197 (max2 (if (numberp min2) |
| 198 (if (numberp (cdr range2)) | 198 (if (numberp (cdr range2)) |
| 199 (prog1 (cdr range2) | 199 (prog1 (cdr range2) |
| 200 (setq range2 nil)) min2) | 200 (setq range2 nil)) min2) |
| 201 (prog1 (cdr min2) | 201 (prog1 (cdr min2) |
| 202 (setq min2 (car min2)))))) | 202 (setq min2 (car min2)))))) |
| 203 (setq range1 (cdr range1) | 203 (setq range1 (cdr range1) |
| 204 range2 (cdr range2)) | 204 range2 (cdr range2)) |
| 205 (while (and min1 min2) | 205 (while (and min1 min2) |