From b159d6da433afceb2e93c105ba3e39ea184f6364 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Nov 1999 12:06:00 +0000 Subject: [PATCH] (gnus-site-init-file): Use `condition-case' instead of `ignore-errors'. Require `cl' using `eval-when-compile'. --- lisp/gnus-start.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 856981d..c9a4f4a 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -25,7 +25,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) (eval-when-compile (require 'static)) (require 'gnus) (require 'gnus-win) @@ -48,10 +48,11 @@ If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :type 'file) (defcustom gnus-site-init-file - (ignore-errors - (concat (file-name-directory - (directory-file-name installation-directory)) - "site-lisp/gnus-init")) + (condition-case nil + (concat (file-name-directory + (directory-file-name installation-directory)) + "site-lisp/gnus-init") + (error nil)) "*The site-wide Gnus Emacs-Lisp startup file name, or nil if none. If a file with the `.el' or `.elc' suffixes exists, it will be read instead." :group 'gnus-start -- 1.7.10.4