(scheme-in-list): Add a fallback to create an error tag.
[cedet.git] / contrib / cedet-contrib-load.el
blobc5d10a3dece817d4204e021a18c30325d303c199
1 ;;; cedet-contrib-load.el --- Autoload definitions for cedet contrib
3 ;;; Copyright (C) 2004, 2012, 2013 Eric Ludlam
5 ;; Author: Eric Ludlam <zappo@gnu.org>
7 ;; CEDET is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version.
12 ;; This software is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the
19 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 ;; Boston, MA 02110-1301, USA.
22 ;;; Commentary:
24 ;; Initialize CEDET's contributed libraries for all supported
25 ;; conditions.
27 ;;; Code:
30 ;;; Contrib autoloads
32 (unless (featurep 'cedet-devel-load)
33 (error "CEDET must be loaded to use CEDET's contrib utilities."))
35 ;; This file must be in the same directory as all the files that
36 ;; it is preparing for use.
37 (let ((CEDETCONTRIBDIR (file-name-directory
38 (or load-file-name (buffer-file-name)))))
40 (add-to-list 'load-path CEDETCONTRIBDIR)
42 (message "Installing CEDET contrib packages in %s" CEDETCONTRIBDIR)
46 (load "contrib-loaddefs" nil t)
48 (provide 'cedet-contrib-load)
50 ;;; cedet-contrib-load.el ends here