tm 7.45.

diff --git a/ChangeLog b/ChangeLog
index 3ed99a3..c0db5e0 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)
        ))