X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu-e19.el;h=a6764133e334cf22aa186a01debf7a404b7165ef;hb=470f0dc4bc457208a75114e44657a69456f2c010;hp=d3a0e09388fac5c65cd4d260fc6ab1740d36af79;hpb=8f7bd1a7a8dc60010d49ed35477474e0f88b8c34;p=elisp%2Fapel.git diff --git a/emu-e19.el b/emu-e19.el index d3a0e09..a676413 100644 --- a/emu-e19.el +++ b/emu-e19.el @@ -1,204 +1,101 @@ -;;; -;;; emu-e19.el --- Mule 2 emulation module for Emacs 19 and XEmacs 19 -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; Version: -;;; $Id: emu-e19.el,v 7.22 1996/06/26 08:27:20 morioka Exp $ -;;; Keywords: emulation, compatibility, Mule, Latin-1 -;;; -;;; This file is part of tl (Tiny Library). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; -;;; Code: +;;; emu-e19.el --- emu API implementation for Emacs 19.* -;;; @ version and variant specific features -;;; +;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. -(cond (running-xemacs - (require 'emu-xemacs)) - (running-emacs-19 - (require 'emu-19) - )) +;; Author: MORIOKA Tomohiko +;; Keywords: emulation, compatibility +;; This file is part of emu. -;;; @ character set -;;; +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. -(defconst charset-ascii 0 "Character set of ASCII") -(defconst charset-latin-1 129 "Character set of ISO-8859-1") +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. -(defun charset-description (charset) - "Return description of CHARSET. [emu-e19.el]" - (if (< charset 128) - (documentation-property 'charset-ascii 'variable-documentation) - (documentation-property 'charset-latin-1 'variable-documentation) - )) - -(defun charset-registry (charset) - "Return registry name of CHARSET. [emu-e19.el]" - (if (< charset 128) - "ASCII" - "ISO8859-1")) - -(defun charset-columns (charset) - "Return number of columns a CHARSET occupies when displayed. -\[emu-e19.el]" - 1) - -(defun charset-direction (charset) - "Return the direction of a character of CHARSET by - 0 (left-to-right) or 1 (right-to-left). [emu-e19.el]" - 0) - -(defun find-charset-string (str) - "Return a list of charsets in the string. -\[emu-e19.el; Mule emulating function]" - (if (string-match "[\200-\377]" str) - (list lc-ltn1) - )) +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. -(defun find-charset-region (start end) - "Return a list of charsets in the region between START and END. -\[emu-e19.el; Mule emulating function]" - (if (save-excursion - (save-restriction - (narrow-to-region start end) - (goto-char start) - (re-search-forward "[\200-\377]" nil t) - )) - (list lc-ltn1) - )) +;;; Code: -;;; @@ for Mule emulation +;;; @ face ;;; -(defconst lc-ascii 0) -(defconst lc-ltn1 129) +(defun-maybe find-face (face) + (car (memq face (face-list))) + ) -;;; @ coding-system +;;; @ for tm-7.106 ;;; -(defconst *internal* nil) -(defconst *ctext* nil) -(defconst *noconv* nil) - -(defun character-encode-string (str coding-system) - "Encode the string STR which is encoded in CODING-SYSTEM. [emu-e19.el]" - str) - -(defun character-decode-string (str coding-system) - "Decode the string STR which is encoded in CODING-SYSTEM. [emu-e19.el]" - str) - -(defun character-encode-region (start end coding-system) - "Encode the text between START and END which is -encoded in CODING-SYSTEM. [emu-e19.el]" - t) - -(defun character-decode-region (start end coding-system) - "Decode the text between START and END which is -encoded in CODING-SYSTEM. [emu-e19.el]" - t) - -(defun code-convert-string (str ic oc) - "Convert code in STRING from SOURCE code to TARGET code, -On successful converion, returns the result string, -else returns nil. [emu-e19.el; Mule emulating function]" - str) - -(defun code-convert-region (beg end ic oc) - "Convert code of the text between BEGIN and END from SOURCE -to TARGET. On successful conversion returns t, -else returns nil. [emu-e19.el; Mule emulating function]" - t) - -(defun code-detect-region (beg end) - "Detect coding-system of the text in the region -between START and END. [emu-e19.el; Mule emulating function]" - ) - -(defun set-file-coding-system (coding-system &optional force) - ) +(defalias 'tl:make-overlay 'make-overlay) +(defalias 'tl:overlay-put 'overlay-put) +(defalias 'tl:overlay-buffer 'overlay-buffer) -(defmacro as-binary-process (&rest body) - (` (let (selective-display) ; Disable ^M to nl translation. - (,@ body) - ))) +(make-obsolete 'tl:make-overlay 'make-overlay) +(make-obsolete 'tl:overlay-put 'overlay-put) +(make-obsolete 'tl:overlay-buffer 'overlay-buffer) -;;; @ character +;;; @ visible/invisible ;;; -(defun char-charset (chr) - "Return the character set of char CHR. -\[emu-e19.el; XEmacs 20 emulating function]" - (if (< chr 128) - charset-ascii - charset-latin-1)) +(defmacro enable-invisible ()) -(defun char-bytes (char) - "Return number of bytes a character in CHAR occupies in a buffer. -\[emu-e19.el; Mule emulating function]" - 1) +(defmacro end-of-invisible ()) -(defalias 'char-length 'char-bytes) - -(defun char-columns (character) - "Return number of columns a CHARACTER occupies when displayed. -\[emu-nemacs.el]" - 1) +(defun invisible-region (start end) + (if (save-excursion + (goto-char (1- end)) + (eq (following-char) ?\n) + ) + (setq end (1- end)) + ) + (put-text-property start end 'invisible t) + ) -;;; @@ for Mule emulation -;;; +(defun visible-region (start end) + (put-text-property start end 'invisible nil) + ) -(defalias 'char-width 'char-columns) +(defun invisible-p (pos) + (get-text-property pos 'invisible) + ) -(defalias 'char-leading-char 'char-charset) +(defun next-visible-point (pos) + (save-excursion + (goto-char (next-single-property-change pos 'invisible)) + (if (eq (following-char) ?\n) + (forward-char) + ) + (point) + )) -;;; @ string +;;; @ mouse ;;; -(defalias 'string-columns 'length) - -(defun string-to-char-list (str) - (mapcar (function identity) str) - ) - -(defalias 'string-to-int-list 'string-to-char-list) - -(defalias 'sref 'aref) +(defvar mouse-button-1 [mouse-1]) +(defvar mouse-button-2 [mouse-2]) +(defvar mouse-button-3 [down-mouse-3]) -(defun truncate-string (str width &optional start-column) - "Truncate STR to fit in WIDTH columns. -Optional non-nil arg START-COLUMN specifies the starting column. -\[emu-e19.el; Mule 2.3 emulating function]" - (or start-column - (setq start-column 0)) - (substring str start-column width) - ) -;;; @@ for Mule emulation +;;; @ string ;;; -(defalias 'string-width 'length) +(defmacro char-list-to-string (char-list) + "Convert list of character CHAR-LIST to string." + (` (mapconcat (function char-to-string) + (, char-list) + "") + )) ;;; @ end