Reformatted.
[chise/xemacs-chise.git.1] / lisp / check-features.el
1 ;;; check-features.el --- Do a sanity check on an XEmacs build
2
3 ;; Copyright (C) 1998 by Free Software Foundation, Inc.
4
5 ;; Author: SL Baur <steve@xemacs.org>
6 ;; Keywords: internal
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF
26
27 ;;; Commentary:
28
29 ;; This file is executed after a build to check that all lisp packages that
30 ;; need to be installed are.
31
32 ;;; Code:
33
34 (require 'packages)
35
36 (defvar build-error 0)
37
38 (when (featurep 'tooltalk)
39   (condition-case nil
40       (package-require 'tooltalk 1.0)
41     (t (progn
42          ;; (setq build-error 1)
43          (message "Warning:  This XEmacs is built with tooltalk support but")
44          (message "does not have a tooltalk package installed.  Without the")
45          (message "tooltalk lisp package, Tooltalk support is broken.")))))
46
47 (when (featurep 'sparcworks)
48   (condition-case nil
49       (package-require 'Sun 1.0)
50     (t (progn
51          ;; (setq build-error 1)
52          (message "Warning:  This XEmacs is built with sparcworks support but")
53          (message "does not have the Sun package installed.  Without the Sun")
54          (message "lisp package, Sparcworks support will be broken.")))))
55
56 (kill-emacs build-error)
57
58 ;;; check-features.el ends here