From: morioka <morioka>
Date: Mon, 9 Mar 1998 15:56:57 +0000 (+0000)
Subject: tm 7.45.
X-Git-Tag: tm7_45~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58daad47a979118d75b719ed39ab76e23b047cbd;p=elisp%2Fapel.git

tm 7.45.
---

diff --git a/ChangeLog b/ChangeLog
index 3ed99a3..c0db5e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,35 @@
+Mon Feb 26 01:14:28 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.11.3 was released.
+
+	* emu-18.el (tl:set-text-properties): New function.
+	(tl:overlay-buffer): New function. (cf. [tm-ja:1606])
+
+Mon Feb 26 01:05:28 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-18.el (remove-hook): New function: Imported from Emacs
+	19.28. (cf. [tm-ja:1606])
+	
+	* emu-18.el (defalias): Implementation was fixed.
+ 	(cf. [tm-ja:1606])
+
+Mon Feb 26 00:56:18 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu.el: Version check was changed. (cf. [tm-ja:1606])
+
+Mon Feb 26 00:54:12 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu.el: Version check was changed. (cf. [tm-ja:1606])
+
+Sun Feb 25 18:08:24 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl-list.el (expand-range): New implementation.
+
+	* tl-list.el: Function `uncompress-range' was renamed to
+ 	`expand-range'.
+
+	* tl-list.el (member-of-range): New implementation.
+
 Fri Feb 23 20:43:33 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl-list.el (last): changed to macro.
diff --git a/Makefile b/Makefile
index 49218c7..b7f102a 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \
 		tl/ChangeLog
 
-TARFILE = tl-7.11.2.tar
+TARFILE = tl-7.11.3.tar
 
 
 elc:
diff --git a/emu-18.el b/emu-18.el
index 468fecd..2b7876a 100644
--- a/emu-18.el
+++ b/emu-18.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-18.el,v 7.5 1996/01/25 02:09:46 morioka Exp $
+;;;	$Id: emu-18.el,v 7.8 1996/02/26 01:14:28 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -30,7 +30,7 @@
 ;;; @ hook
 ;;;
 
-;; This function is imported from AUC TeX.
+;; These function are imported from Emacs 19.28.
 (defun add-hook (hook function &optional append)
   "Add to the value of HOOK the function FUNCTION.
 FUNCTION is not added if already present.
@@ -66,6 +66,25 @@ function, it is changed to a list of functions.
 	     ))
       ))
 
+(defun remove-hook (hook function)
+  "Remove from the value of HOOK the function FUNCTION.
+HOOK should be a symbol, and FUNCTION may be any valid function.  If
+FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
+list of hooks to run in HOOK, then nothing is done.  See `add-hook'.
+\[emu-18.el; Emacs 19 emulating function]"
+  (if (or (not (boundp hook))		;unbound symbol, or
+	  (null (symbol-value hook))	;value is nil, or
+	  (null function))		;function is nil, then
+      nil				;Do nothing.
+    (let ((hook-value (symbol-value hook)))
+      (if (consp hook-value)
+	  (setq hook-value (delete function hook-value))
+	(if (equal hook-value function)
+	    (setq hook-value nil)
+	  ))
+      (set hook hook-value)
+      )))
+
 
 ;;; @ list
 ;;;
@@ -102,12 +121,12 @@ to be sure of changing the value of `foo'.
 ;;; @ function
 ;;;
 
-(defun defalias (SYM NEWDEF)
+(defun defalias (sym newdef)
   "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.
 Associates the function with the current load file, if any.
 \[emu-18.el; Emacs 19 emulating function]"
-  (fset SYM (symbol-function NEWDEF))
-  NEWDEF)
+  (fset sym newdef)
+  )
 
 (defun byte-code-function-p (exp)
   "T if OBJECT is a byte-compiled function object.
@@ -181,6 +200,13 @@ to create parent directories if they don't exist.
   )
 
 
+;;; @ text property
+;;;
+
+(defun tl:set-text-properties (start end props &optional object))
+(defun tl:overlay-buffer (overlay))
+
+
 ;;; @ mouse
 ;;;
 
diff --git a/emu.el b/emu.el
index ee7b280..4c616f1 100644
--- a/emu.el
+++ b/emu.el
@@ -2,11 +2,11 @@
 ;;; emu.el --- Emulation module for each Emacs variants
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu.el,v 5.0 1996/01/16 21:52:37 morioka Exp $
+;;;	$Id: emu.el,v 7.0 1996/02/26 01:15:31 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -36,17 +36,20 @@
 ;;; @ Emacs 19.29 emulation
 ;;;
 
-(cond ((fboundp 'buffer-substring-no-properties)
-       ;; for Emacs 19.29 or later
-       (defalias 'tl:read-string 'read-string)
-       )
-      (t
+(or (fboundp 'buffer-substring-no-properties)
+    (defalias 'buffer-substring-no-properties 'buffer-substring)
+    )
+
+(cond ((or (<= emacs-major-version 18)
+	   (<= emacs-minor-version 28))
        ;; for Emacs 19.28 or earlier
-       (defalias 'buffer-substring-no-properties 'buffer-substring)
-       
        (defun tl:read-string (prompt &optional initial-input history)
 	 (read-string prompt initial-input)
 	 )
+       )
+      (t
+       ;; for Emacs 19.29 or later
+       (defalias 'tl:read-string 'read-string)
        ))