From 860e65c2cc715a84c657ccef4236e4ebaab0ae7e Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 21 Apr 1998 13:37:54 +0000 Subject: [PATCH] Sync up with APEL 8.3. --- ChangeLog | 55 +++++++++++++++++++++++++++++++ emu-19.el | 107 ------------------------------------------------------------- 2 files changed, 55 insertions(+), 107 deletions(-) delete mode 100644 emu-19.el diff --git a/ChangeLog b/ChangeLog index 3cc5b60..83a215b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,58 @@ +1998-04-17 MORIOKA Tomohiko + + * README.en (What's APEL?): Modify for latest emu. + +1998-04-17 MORIOKA Tomohiko + + * emu-nemacs.el, emu-mule.el, emu-latin1.el, emu-e20_2.el, + emu-e20_3.el, emu-x20.el (char-next-index): Fixed. + +1998-04-17 MORIOKA Tomohiko + + * EMU-ELS (emu-modules): Add 'emu-e20_3 for Emacs 20.3. + + * emu-e20_3.el: New module. + + * emu-e20.el: Select to require 'emu-e20_2 or 'emu-e20_3. + + * emu-e20_2.el (set-buffer-multibyte): New function. + + * emu-e20.el (insert-file-contents-as-binary): Use + 'set-buffer-multibyte. + +1998-04-17 MORIOKA Tomohiko + + * emu-e20_2.el, emu-e20.el, EMU-ELS: Separate Emacs 20.1 and 20.2 + depended definitions from emu-e20.el to emu-e20_2.el. + +1998-04-17 MORIOKA Tomohiko + + * emu.el: emu-x20.el doesn't require 'emu-xemacs and 'emu-20. + +1998-04-16 MORIOKA Tomohiko + + * emu-x20.el: Don't require 'emu-xemacs and 'emu-20. + + * emu.el: emu-latin1.el does not require 'emu-xemacs or 'emu-e19. + + * emu-latin1.el: Don't require 'emu-xemacs or 'emu-e19. + +1998-04-16 MORIOKA Tomohiko + + * emu-mule.el, emu-latin1.el, emu-e20.el, emu-e19.el, emu-19.el, + EMU-ELS: Rename emu-19.el -> emu-e19.el. + + * emu.el, emu-latin1.el, emu-e19.el, EMU-ELS: Rename emu-e19.el -> + emu-latin1.el. + +1998-04-13 MORIOKA Tomohiko + + * README.en (What's APEL?): Remove description about std11.el and + std11-parse.el. + + * install.el (install-detect-elisp-directory): Modify regexp to + allow trailing `/'. + 1998-04-13 MORIOKA Tomohiko * README.en (What's APEL?): Remove description about std11.el and diff --git a/emu-19.el b/emu-19.el deleted file mode 100644 index 9207979..0000000 --- a/emu-19.el +++ /dev/null @@ -1,107 +0,0 @@ -;;; emu-19.el --- emu API implementation for Emacs 19.* - -;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. - -;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-19.el,v 7.18 1997/11/06 10:38:03 morioka Exp $ -;; Keywords: emulation, compatibility - -;; This file is part of emu. - -;; 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 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. - -;;; Code: - -;;; @ face -;;; - -(defun-maybe find-face (face) - (car (memq face (face-list))) - ) - - -;;; @ for tm-7.106 -;;; - -(defalias 'tl:make-overlay 'make-overlay) -(defalias 'tl:overlay-put 'overlay-put) -(defalias 'tl:overlay-buffer 'overlay-buffer) - -(make-obsolete 'tl:make-overlay 'make-overlay) -(make-obsolete 'tl:overlay-put 'overlay-put) -(make-obsolete 'tl:overlay-buffer 'overlay-buffer) - - -;;; @ visible/invisible -;;; - -(defmacro enable-invisible ()) - -(defmacro end-of-invisible ()) - -(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) - ) - -(defun visible-region (start end) - (put-text-property start end 'invisible nil) - ) - -(defun invisible-p (pos) - (get-text-property pos 'invisible) - ) - -(defun next-visible-point (pos) - (save-excursion - (goto-char (next-single-property-change pos 'invisible)) - (if (eq (following-char) ?\n) - (forward-char) - ) - (point) - )) - - -;;; @ mouse -;;; - -(defvar mouse-button-1 [mouse-1]) -(defvar mouse-button-2 [mouse-2]) -(defvar mouse-button-3 [down-mouse-3]) - - -;;; @ string -;;; - -(defmacro char-list-to-string (char-list) - "Convert list of character CHAR-LIST to string. [emu-19.el]" - (` (mapconcat (function char-to-string) - (, char-list) - "") - )) - - -;;; @ end -;;; - -(provide 'emu-19) - -;;; emu-19.el ends here -- 1.7.10.4