lisp/liece-modules.el

   1 ;;; liece-modules.el --- Module definitions.
   2 ;; Copyright (C) 1999 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1999-04-12
   6 ;; Revised: 1999-03-02
   7 ;; Keywords: IRC, liece, APEL
   8
   9 ;; This file is part of Liece.
  10
  11 ;; This program is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26
  27 ;;; Commentary:
  28 ;;
  29
  30 ;;; Code:
  31
  32 (defvar liece-modules-to-compile
  33   '(queue-m
  34     gettext
  35     liece-clfns
  36     liece-handler
  37     liece-compat
  38     liece-version
  39     liece-vars
  40     liece-globals
  41     liece-inlines
  42     liece-filter
  43     liece-dcc
  44     liece-menu
  45     liece-000
  46     liece-200
  47     liece-300
  48     liece-400
  49     liece-500
  50     liece-nick
  51     liece-channel
  52     liece-commands
  53     liece-ctcp
  54     liece-q-el
  55     liece-message
  56     liece-handle
  57     liece-hilit
  58     liece-intl
  59     liece-mail
  60     liece-minibuf
  61     liece-misc
  62     liece-tcp
  63     liece-url
  64     liece-x-face
  65     liece-window
  66     liece))
  67
  68 (require 'emu)
  69 (if (featurep 'xemacs)
  70     (add-to-list 'liece-modules-to-compile 'liece-xemacs)
  71   (add-to-list 'liece-modules-to-compile 'liece-emacs)
  72   (if (fboundp 'set-face-stipple)
  73       (add-to-list 'liece-modules-to-compile 'bitmap-stipple)))
  74
  75 (when (featurep 'mule)
  76   (add-to-list 'liece-modules-to-compile 'liece-coding))
  77
  78 (condition-case ()
  79     (progn
  80       (require 'pccl)
  81       (require 'ccl))
  82   (error nil))
  83
  84 (require 'broken)
  85
  86 (unless-broken ccl-usable
  87   (add-to-list 'liece-modules-to-compile 'liece-q-ccl))
  88
  89 (condition-case ()
  90     (require 'cus-face)
  91   (file-error nil))
  92
  93 (setq liece-modules (cons 'liece-setup
  94                           (delq 'queue-m liece-modules-to-compile)))
  95
  96 (provide 'liece-modules)
  97
  98 ;;; liece-modules.el ends here