From e2143e521c89919620c9fea7810e7b65f63733db Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Nov 1999 13:15:27 +0000 Subject: [PATCH] (gnus-site-init-file): Use `condition-case' instead of `ignore-errors'. --- lisp/gnus-start.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index e97de78..f2b28fb 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -49,10 +49,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