1 ;; egg-edep.el --- This file serves Emacs version dependent definitions
3 ;; Copyright (C) 1999,2000 PFU LIMITED
5 ;; Author: NIIBE Yutaka <gniibe@chroot.org>
6 ;; KATAYAMA Yoshio <kate@pfu.co.jp>
8 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
10 ;; Keywords: mule, multilingual, input method
12 ;; This file is part of EGG.
14 ;; EGG is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; EGG is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
27 ;; Boston, MA 02111-1307, USA.
34 (if (featurep 'xemacs)
36 (defun egg-characterp (char)
38 (defun egg-char-bytes (x) 1)
39 (defun egg-charset-bytes (x) 1)
40 (defun egg-char-bytes-at (str pos) 1)
41 (defun egg-chars-in-period (str pos len) len)
42 (defalias 'egg-string-to-vector 'identity)
43 (defalias 'egg-string-to-char-at 'aref)
44 (unless (fboundp 'set-buffer-multibyte)
45 (defun set-buffer-multibyte (ignored)
47 (if (and (fboundp 'set-buffer-multibyte)
48 (subrp (symbol-function 'set-buffer-multibyte)))
51 (defun egg-char-bytes (x) 1)
52 (defun egg-charset-bytes (x) 1)
53 (defun egg-char-bytes-at (str pos) 1)
54 (defun egg-chars-in-period (str pos len) len)
55 (defalias 'egg-string-to-vector 'identity)
56 (defalias 'egg-string-to-char-at 'aref)
59 (defun set-buffer-multibyte (flag)
60 (setq enable-multibyte-characters flag))
61 (defalias 'string-as-unibyte 'identity)
62 (defalias 'string-as-multibyte 'identity)
63 (defalias 'coding-system-put 'put)
65 (defalias 'egg-char-bytes 'char-bytes)
66 (defalias 'egg-charset-bytes 'charset-bytes)
67 (defun egg-char-bytes-at (str pos)
68 (char-bytes (egg-string-to-char-at str pos)))
69 (defun egg-chars-in-period (str pos len)
70 (chars-in-string (substring str pos (+ pos len))))
71 (defalias 'egg-string-to-vector 'string-to-vector)
72 (defalias 'egg-string-to-char-at 'sref)
74 (defun egg-characterp (char)
79 (defun egg-next-single-property-change (pos prop &optional object limit)
80 (if (featurep 'xemacs)
81 (next-single-property-change pos prop object limit)
83 (min limit (next-single-property-change pos prop object (1+ limit)))
84 (next-single-property-change pos prop object))))
86 (defun egg-string-match-charset (charset string &optional start)
87 (let ((cur-ct (category-table))
91 (set-category-table (copy-category-table))
92 (setq category (get-unused-category))
93 (define-category category "")
94 (modify-category-entry (make-char charset) category)
95 (string-match (concat "\\c" (list category) "+") string start))
96 (set-category-table cur-ct))))
98 (unless (egg-string-match-charset 'japanese-jisx0208 "
\e$B!#
\e(B")
99 (defun egg-string-match-charset (charset string &optional start)
101 (if (= (charset-chars charset) 94)
102 (setq min 33 max 126)
103 (setq min 32 max 127))
104 (string-match (if (= (charset-dimension charset) 1)
105 (concat "[" (list (make-char charset min))
106 "-" (list (make-char charset max))
108 (concat "[" (list (make-char charset min min))
109 "-" (list (make-char charset max max))