Mercurial > emacs

changeset 19520:6496595d79b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require cl at compile time. (gnus-site-init-file): Use condition-case.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 Aug 1997 04:39:20 +0000
parents 1c0ecc266e38
children 6f6cf9184e93
files lisp/gnus/gnus-start.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el	Mon Aug 25 01:06:41 1997 +0000
+++ b/lisp/gnus/gnus-start.el	Mon Aug 25 04:39:20 1997 +0000
@@ -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 @@
   :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."