Mercurial > emacs
changeset 19493:8d840c4548c0
Require cl at compile time.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Aug 1997 20:23:37 +0000 |
| parents | 892a09772457 |
| children | 4280cff25537 |
| files | lisp/gnus/gnus-bcklg.el lisp/gnus/gnus-cache.el lisp/gnus/gnus-demon.el lisp/gnus/gnus-dup.el lisp/gnus/gnus-range.el lisp/gnus/nnheader.el |
| diffstat | 6 files changed, 15 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-bcklg.el Sat Aug 23 19:10:42 1997 +0000 +++ b/lisp/gnus/gnus-bcklg.el Sat Aug 23 20:23:37 1997 +0000 @@ -25,6 +25,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + (require 'gnus) ;;;
--- a/lisp/gnus/gnus-cache.el Sat Aug 23 19:10:42 1997 +0000 +++ b/lisp/gnus/gnus-cache.el Sat Aug 23 20:23:37 1997 +0000 @@ -25,6 +25,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + (require 'gnus) (require 'gnus-int) (require 'gnus-range)
--- a/lisp/gnus/gnus-demon.el Sat Aug 23 19:10:42 1997 +0000 +++ b/lisp/gnus/gnus-demon.el Sat Aug 23 20:23:37 1997 +0000 @@ -25,6 +25,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + (require 'gnus) (require 'gnus-int) (require 'nnheader)
--- a/lisp/gnus/gnus-dup.el Sat Aug 23 19:10:42 1997 +0000 +++ b/lisp/gnus/gnus-dup.el Sat Aug 23 20:23:37 1997 +0000 @@ -30,6 +30,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + (require 'gnus) (require 'gnus-art)
--- a/lisp/gnus/gnus-range.el Sat Aug 23 19:10:42 1997 +0000 +++ b/lisp/gnus/gnus-range.el Sat Aug 23 20:23:37 1997 +0000 @@ -25,6 +25,8 @@ ;;; Code: +(eval-when-compile (require 'cl)) + ;;; List and range functions (defun gnus-last-element (list) @@ -207,7 +209,7 @@ (setcar ranges (cons (car ranges) (cadr ranges))) (setcdr ranges (cddr ranges))) - (when (= (1+ (car ranges)) (caadr ranges)) + (when (= (1+ (car ranges)) (car (cadr ranges))) (setcar (cadr ranges) (car ranges)) (setcar ranges (cadr ranges)) (setcdr ranges (cddr ranges))))) @@ -216,8 +218,8 @@ (when (= (1+ (cdar ranges)) (cadr ranges)) (setcdr (car ranges) (cadr ranges)) (setcdr ranges (cddr ranges))) - (when (= (1+ (cdar ranges)) (caadr ranges)) - (setcdr (car ranges) (cdadr ranges)) + (when (= (1+ (cdar ranges)) (car (cadr ranges))) + (setcdr (car ranges) (cdr (cadr ranges))) (setcdr ranges (cddr ranges)))))) (setq ranges (cdr ranges))) out)))