1 ;;; emu.el --- Emulation module for each Emacs variants
3 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Keywords: emulation, compatibility, Nemacs, MULE, Emacs/mule, XEmacs
8 ;; This file is part of emu.
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.
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.
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.
29 (defvar running-emacs-18 (<= emacs-major-version 18))
30 (defvar running-xemacs (featurep 'xemacs))
32 (defvar running-mule-merged-emacs (and (not (boundp 'MULE))
33 (not running-xemacs) (featurep 'mule)))
34 (defvar running-xemacs-with-mule (and running-xemacs (featurep 'mule)))
36 (defvar running-emacs-19 (and (not running-xemacs) (= emacs-major-version 19)))
37 (defvar running-emacs-19_29-or-later
38 (or (and running-emacs-19 (>= emacs-minor-version 29))
39 (and (not running-xemacs)(>= emacs-major-version 20))))
41 (defvar running-xemacs-19 (and running-xemacs
42 (= emacs-major-version 19)))
43 (defvar running-xemacs-20-or-later (and running-xemacs
44 (>= emacs-major-version 20)))
45 (defvar running-xemacs-19_14-or-later
46 (or (and running-xemacs-19 (>= emacs-minor-version 14))
47 running-xemacs-20-or-later))
51 (defvar mouse-button-1 'button1)
52 (defvar mouse-button-2 'button2)
53 (defvar mouse-button-3 'button3)
55 ((>= emacs-major-version 19)
57 (defvar mouse-button-1 [mouse-1])
58 (defvar mouse-button-2 [mouse-2])
59 (defvar mouse-button-3 [down-mouse-3])
63 (defvar mouse-button-1 nil)
64 (defvar mouse-button-2 nil)
65 (defvar mouse-button-3 nil)
69 (unless (fboundp 'tl:make-overlay)
70 (defalias 'tl:make-overlay 'make-overlay)
71 (make-obsolete 'tl:make-overlay 'make-overlay)
73 (unless (fboundp 'tl:overlay-put)
74 (defalias 'tl:overlay-put 'overlay-put)
75 (make-obsolete 'tl:overlay-put 'overlay-put)
77 (unless (fboundp 'tl:overlay-put)
78 (defalias 'tl:overlay-buffer 'overlay-buffer)
79 (make-obsolete 'tl:overlay-buffer 'overlay-buffer)
86 (defsubst char-list-to-string (char-list)
87 "Convert list of character CHAR-LIST to string."
88 (apply (function string) char-list))
90 (cond ((featurep 'mule)
91 (cond ((featurep 'xemacs) ; for XEmacs with MULE
92 ;; old Mule emulating aliases
94 ;;(defalias 'char-leading-char 'char-charset)
96 (defun char-category (character)
97 "Return string of category mnemonics for CHAR in TABLE.
98 CHAR can be any multilingual character
99 TABLE defaults to the current buffer's category table."
100 (mapconcat (lambda (chr)
102 (char-to-string (int-char chr))
103 (char-to-string chr)))
104 ;; `char-category-list' returns a list of
105 ;; characters in XEmacs 21.2.25 and later,
106 ;; otherwise integers.
107 (char-category-list character)
110 ((>= emacs-major-version 20) ; for Emacs 20
111 (defalias 'insert-binary-file-contents-literally
112 'insert-file-contents-literally)
114 ;; old Mule emulating aliases
115 (defun char-category (character)
116 "Return string of category mnemonics for CHAR in TABLE.
117 CHAR can be any multilingual character
118 TABLE defaults to the current buffer's category table."
119 (category-set-mnemonics (char-category-set character)))
121 (t ; for MULE 1.* and 2.*
126 ;; for Nemacs and Nepoch
128 ;; old MULE emulation
129 (defconst *noconv* 0)
133 (defconst *internal* 3)
134 (defconst *euc-japan* 3)
136 (defun code-convert-string (str ic oc)
137 "Convert code in STRING from SOURCE code to TARGET code,
138 On successful conversion, returns the result string,
141 (convert-string-kanji-code str ic oc)
144 (defun code-convert-region (beg end ic oc)
145 "Convert code of the text between BEGIN and END from SOURCE
146 to TARGET. On successful conversion returns t,
151 (narrow-to-region beg end)
152 (convert-region-kanji-code beg end ic oc)))
156 ;; for Emacs 19 and XEmacs without MULE
158 ;; old MULE emulation
159 (defconst *internal* nil)
160 (defconst *ctext* nil)
161 (defconst *noconv* nil)
163 (defun code-convert-string (str ic oc)
164 "Convert code in STRING from SOURCE code to TARGET code,
165 On successful conversion, returns the result string,
166 else returns nil. [emu-latin1.el; old MULE emulating function]"
169 (defun code-convert-region (beg end ic oc)
170 "Convert code of the text between BEGIN and END from SOURCE
171 to TARGET. On successful conversion returns t,
172 else returns nil. [emu-latin1.el; old MULE emulating function]"
177 ;;; @ Mule emulating aliases
179 ;;; You should not use it.
181 (or (boundp '*noconv*)
182 (defconst *noconv* 'binary
183 "Coding-system for binary.
184 This constant is defined to emulate old MULE anything older than MULE 2.3.
185 It is obsolete, so don't use it."))
188 ;;; @ without code-conversion
191 (defalias 'insert-binary-file-contents 'insert-file-contents-as-binary)
192 (make-obsolete 'insert-binary-file-contents 'insert-file-contents-as-binary)
194 (defun-maybe insert-binary-file-contents-literally (filename
197 "Like `insert-file-contents-literally', q.v., but don't code conversion.
198 A buffer may be modified in several ways after reading into the buffer due
199 to advanced Emacs features, such as file-name-handlers, format decoding,
200 find-file-hooks, etc.
201 This function ensures that none of these modifications will take place."
202 (as-binary-input-file
203 ;; Returns list absolute file name and length of data inserted.
204 (insert-file-contents-literally filename visit beg end replace)))
207 ;;; @ for text/richtext and text/enriched
210 (cond ((fboundp 'richtext-decode)
213 ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later)
215 (autoload 'richtext-decode "richtext")
216 (or (assq 'text/richtext format-alist)
220 '("Extended MIME text/richtext format."
221 "Content-[Tt]ype:[ \t]*text/richtext"
222 richtext-decode richtext-encode t enriched-mode))
226 ;; don't have enriched.el
227 (autoload 'richtext-decode "tinyrich")
228 (autoload 'enriched-decode "tinyrich")
231 (if (or (and (eq emacs-major-version 19)
232 (>= emacs-minor-version (if (featurep 'xemacs) 14 29)))
233 (and (eq emacs-major-version 20)
234 (< emacs-minor-version (if (featurep 'xemacs) 3 1))))
235 (eval-after-load "enriched"
236 '(if (fboundp 'si:enriched-encode)
238 (fset 'si:enriched-encode (symbol-function 'enriched-encode))
239 (defun enriched-encode (from to &optional orig-buf)
240 (let* ((si:enriched-initial-annotation enriched-initial-annotation)
241 (enriched-initial-annotation
242 (if (stringp si:enriched-initial-annotation)
243 si:enriched-initial-annotation
247 ;; Eval this in the buffer we are annotating. This
248 ;; fixes a bug which was saving incorrect File-Width
249 ;; information, since we were looking at local
250 ;; variables in the wrong buffer.
251 (if orig-buf (set-buffer orig-buf))
252 (funcall si:enriched-initial-annotation)))))))
253 (si::enriched-encode from to))))))
260 (product-provide (provide 'emu) (require 'apel-ver))