Add `byte-compile-dynamic' cookie.
[elisp/apel.git] / poem.el
1 ;;; poem.el --- Emulate latest MULE features; -*-byte-compile-dynamic: t;-*-
2
3 ;; Copyright (C) 1998 Free Software Foundation, Inc.
4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Keywords: emulation, compatibility, Mule
7
8 ;; This file is part of APEL (A Portable Emacs Library).
9
10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as
12 ;; published by the Free Software Foundation; either version 2, or (at
13 ;; your option) any later version.
14
15 ;; This program 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 GNU Emacs; see the file COPYING.  If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
24
25 ;;; Code:
26
27 (require 'poe)
28
29 (cond ((featurep 'mule)
30        (cond ((featurep 'xemacs)
31               (require 'poem-xm)
32               )
33              ((>= emacs-major-version 20)
34               (require 'poem-e20)
35               )
36              (t
37               ;; for MULE 1.* and 2.*
38               (require 'poem-om)
39               ))
40        )
41       ((boundp 'NEMACS)
42        ;; for Nemacs and Nepoch
43        (require 'poem-nemacs)
44        )
45       (t
46        (require 'poem-ltn1)
47        ))
48
49
50 ;;; @ Emacs 20.3 emulation
51 ;;;
52
53 (defsubst-maybe string-as-unibyte (string)
54   "Return a unibyte string with the same individual bytes as STRING.
55 If STRING is unibyte, the result is STRING itself.
56 \[Emacs 20.3 emulating macro]"
57   string)
58
59 (defsubst-maybe string-as-multibyte (string)
60   "Return a multibyte string with the same individual bytes as STRING.
61 If STRING is multibyte, the result is STRING itself.
62 \[Emacs 20.3 emulating macro]"
63   string)
64
65
66 ;;; @ XEmacs-mule emulation
67 ;;;
68
69 (defalias-maybe 'char-int 'identity)
70
71 (defalias-maybe 'int-char 'identity)
72
73 (defalias-maybe 'char-or-char-int-p 'integerp)
74
75
76 ;;; @ end
77 ;;;
78
79 (provide 'poem)
80
81 ;;; poem.el ends here