From 58daad47a979118d75b719ed39ab76e23b047cbd Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 15:56:57 +0000 Subject: [PATCH] tm 7.45. --- ChangeLog | 32 ++++++++++++++++++++++++++++++++ Makefile | 2 +- emu-18.el | 36 +++++++++++++++++++++++++++++++----- emu.el | 21 ++++++++++++--------- 4 files changed, 76 insertions(+), 15 deletions(-) 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 + + * 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 + + * 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 + + * emu.el: Version check was changed. (cf. [tm-ja:1606]) + +Mon Feb 26 00:54:12 1996 Morioka Tomohiko + + * emu.el: Version check was changed. (cf. [tm-ja:1606]) + +Sun Feb 25 18:08:24 1996 Morioka Tomohiko + + * 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 * 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 ;;; 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 ;;; 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) )) -- 1.7.10.4