diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-25 04:39:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-25 04:39:20 +0000 |
| commit | cb75201bab392083aeed2734071cd893eb024b8f (patch) | |
| tree | 51ea77041025a424734cc9494a0bd082c936c027 /lisp | |
| parent | ce9395a961b93b0d6ea72db2bc5f2a84d90d25ea (diff) | |
| download | emacs-cb75201bab392083aeed2734071cd893eb024b8f.tar.gz | |
Require cl at compile time.
(gnus-site-init-file): Use condition-case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-start.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index be0017e7f03..0520c2f59e9 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -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." |