Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7df7482d
Commit
7df7482d
authored
Aug 23, 1997
by
Richard M. Stallman
Browse files
Require cl at compile time.
parent
e8c32c99
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
15 additions
and
3 deletions
+15
-3
lisp/gnus/gnus-bcklg.el
lisp/gnus/gnus-bcklg.el
+2
-0
lisp/gnus/gnus-cache.el
lisp/gnus/gnus-cache.el
+2
-0
lisp/gnus/gnus-demon.el
lisp/gnus/gnus-demon.el
+2
-0
lisp/gnus/gnus-dup.el
lisp/gnus/gnus-dup.el
+2
-0
lisp/gnus/gnus-range.el
lisp/gnus/gnus-range.el
+5
-3
lisp/gnus/nnheader.el
lisp/gnus/nnheader.el
+2
-0
No files found.
lisp/gnus/gnus-bcklg.el
View file @
7df7482d
...
...
@@ -25,6 +25,8 @@
;;; Code:
(
eval-when-compile
(
require
'cl
))
(
require
'gnus
)
;;;
...
...
lisp/gnus/gnus-cache.el
View file @
7df7482d
...
...
@@ -25,6 +25,8 @@
;;; Code:
(
eval-when-compile
(
require
'cl
))
(
require
'gnus
)
(
require
'gnus-int
)
(
require
'gnus-range
)
...
...
lisp/gnus/gnus-demon.el
View file @
7df7482d
...
...
@@ -25,6 +25,8 @@
;;; Code:
(
eval-when-compile
(
require
'cl
))
(
require
'gnus
)
(
require
'gnus-int
)
(
require
'nnheader
)
...
...
lisp/gnus/gnus-dup.el
View file @
7df7482d
...
...
@@ -30,6 +30,8 @@
;;; Code:
(
eval-when-compile
(
require
'cl
))
(
require
'gnus
)
(
require
'gnus-art
)
...
...
lisp/gnus/gnus-range.el
View file @
7df7482d
...
...
@@ -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
))
(
ca
r
(
c
adr
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
))
(
ca
r
(
c
adr
ranges
))
)
(
setcdr
(
car
ranges
)
(
cd
r
(
c
adr
ranges
))
)
(
setcdr
ranges
(
cddr
ranges
))))))
(
setq
ranges
(
cdr
ranges
)))
out
)))
...
...
lisp/gnus/nnheader.el
View file @
7df7482d
...
...
@@ -37,6 +37,8 @@
;;; Code:
(
eval-when-compile
(
require
'cl
))
(
require
'mail-utils
)
(
defvar
nnheader-max-head-length
4096
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment