procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Require cl at compile time.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-23 20:23:37 +00:00
parent e8c32c9941
commit 7df7482dac
6 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-bcklg.el
View file

@ -25,6 +25,8 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'gnus)
;;;

2
lisp/gnus/gnus-cache.el
View file

@ -25,6 +25,8 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'gnus)
(require 'gnus-int)
(require 'gnus-range)

2
lisp/gnus/gnus-demon.el
View file

@ -25,6 +25,8 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'gnus)
(require 'gnus-int)
(require 'nnheader)

2
lisp/gnus/gnus-dup.el
View file

@ -30,6 +30,8 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'gnus)
(require 'gnus-art)

8
lisp/gnus/gnus-range.el
View file

@ -25,6 +25,8 @@
;;; Code:
(eval-when-compile (require 'cl))
;;; List and range functions
(defun gnus-last-element (list)
@ -207,7 +209,7 @@ Note: LIST has to be sorted over `<'."
(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 @@ Note: LIST has to be sorted over `<'."
(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)))

2
lisp/gnus/nnheader.el
View file

@ -37,6 +37,8 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'mail-utils)
(defvar nnheader-max-head-length 4096