Mercurial > hg > xemacs-beta

comparison lisp/check-features.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents cc15677e0335
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
1 ;;; check-features.el --- Do a sanity check on an XEmacs build 1 ;;; check-features.el --- Do a sanity check on an XEmacs build
2 2
3 ;; Copyright (C) 1998 by Free Software Foundation, Inc. 3 ;; Copyright (C) 1998 by Free Software Foundation, Inc.
4 4
5 ;; Author: SL Baur <steve@altair.xemacs.org> 5 ;; Author: SL Baur <steve@xemacs.org>
6 ;; Keywords: internal 6 ;; Keywords: internal
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
9 9
10 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
37 37
38 (when (featurep 'tooltalk) 38 (when (featurep 'tooltalk)
39 (condition-case nil 39 (condition-case nil
40 (package-require 'tooltalk 1.0) 40 (package-require 'tooltalk 1.0)
41 (t (progn 41 (t (progn
42 (setq build-error 1) 42 ;; (setq build-error 1)
43 (message "Error: This XEmacs is built with tooltalk support but") 43 (message "Warning: This XEmacs is built with tooltalk support but")
44 (message "does not have a tooltalk package installed. Without the") 44 (message "does not have a tooltalk package installed. Without the")
45 (message "tooltalk lisp package, Tooltalk support is broken."))))) 45 (message "tooltalk lisp package, Tooltalk support is broken.")))))
46 46
47 (when (featurep 'sparcworks) 47 (when (featurep 'sparcworks)
48 (condition-case nil 48 (condition-case nil
49 (package-require 'Sun 1.0) 49 (package-require 'Sun 1.0)
50 (t (progn 50 (t (progn
51 (setq build-error 1) 51 ;; (setq build-error 1)
52 (message "Error: This XEmacs is built with sparcworks support but") 52 (message "Warning: This XEmacs is built with sparcworks support but")
53 (message "does not have the Sun package installed. Without the Sun") 53 (message "does not have the Sun package installed. Without the Sun")
54 (message "lisp package, Sparcworks support will be broken."))))) 54 (message "lisp package, Sparcworks support will be broken.")))))
55 55
56 (kill-emacs build-error) 56 (kill-emacs build-error)
57 57