update.

[elisp/apel.git] / emu-18.el

diff --git a/emu-18.el b/emu-18.el
index 517ef64..8261107 100644 (file)
--- a/emu-18.el
+++ b/emu-18.el
@@ -1,12 +1,12 @@
-;;; emu-18.el --- EMACS 19.* emulation module for EMACS 18.*
+;;; emu-18.el --- emu API implementation for Emacs 18.*
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-18.el,v 7.27 1996/10/24 07:56:18 morioka Exp $
+;; Version: $Id: emu-18.el,v 7.33 1997/04/05 06:44:01 morioka Exp $
 ;; Keywords: emulation, compatibility
 
-;; This file is part of tl (Tiny Library).
+;; 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
@@ -160,6 +160,11 @@ Associates the function with the current load file, if any.
             ))
         )))
 
+(defmacro-maybe defsubst (name arglist &rest body)
+  "Define an inline function.  The syntax is just like that of `defun'."
+  (cons 'defun (cons name (cons arglist body)))
+  )
+
 
 ;;; @ file
 ;;;
@@ -268,13 +273,16 @@ With optional non-nil ALL, force redisplay of all mode-lines.
   (set-buffer-modified-p (buffer-modified-p)))
 
 
+;;; @ overlay
+;;;
+
+(defun overlay-buffer (overlay))
+
+
 ;;; @ text property
 ;;;
 
-(defun tl:set-text-properties (start end properties &optional object))
-(defun tl:add-text-properties (start end properties &optional object)) 
 (defun remove-text-properties (start end properties &optional object))
-(defun tl:overlay-buffer (overlay))
 
 
 ;;; @@ visible/invisible