mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Require cl at compile time.

Browse source 
(gnus-site-init-file): Use condition-case.
This commit is contained in:
Richard M. Stallman 1997-08-25 04:39:20 +00:00
parent ce9395a961
commit cb75201bab
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/gnus-start.el
View file

@ -32,6 +32,7 @@
(require 'gnus-range)
(require 'gnus-util)
(require 'message)
(eval-when-compile (require 'cl))
(defcustom gnus-startup-file (nnheader-concat gnus-home-directory ".newsrc")
"Your `.newsrc' file.
@ -47,10 +48,11 @@ instead."
:type 'file)
(defcustom gnus-site-init-file
(ignore-errors
(condition-case nil
(concat (file-name-directory
(directory-file-name installation-directory))
"site-lisp/gnus-init"))
"site-lisp/gnus-init")
(error nil))
"The site-wide Gnus elisp startup file.
If a file with the .el or .elc suffixes exist, it will be read
instead."