From f0a4087f72e82fe8644e1d0a3b5bcf32c60ef4f9 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 12:43:00 +0000 Subject: [PATCH] tm 7.40. --- ChangeLog | 102 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile | 4 +-- emu-18.el | 47 +++++++++++++++++++--------- emu.el | 36 +++++++++++++++++++--- 4 files changed, 168 insertions(+), 21 deletions(-) create mode 100644 ChangeLog diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..009285c --- /dev/null +++ b/ChangeLog @@ -0,0 +1,102 @@ +Wed Jan 17 08:23:41 1996 Morioka Tomohiko + + * tl: version 7.08 was released. + + * mu-cite.el (mu-cite/get-prefix-register-verbose-method): + new implementation + + * mu-cite.el (mu-cite/get-prefix-register-method): + new implementation + +Wed Jan 17 06:57:16 1996 Morioka Tomohiko + + * mu-cite.el: + Function `mu-cite/get-ml-count' was renamed to + `mu-cite/get-ml-count-method'. + Function `mu-cite/citation-name' was renamed to + `mu-cite/get-prefix-register-verbose-method'. + Function `mu-cite/citation-name-quietly' was renamed to + `mu-cite/get-prefix-register-method'. + +Wed Jan 17 06:49:53 1996 Morioka Tomohiko + + * mu-cite.el (mu-cite/get-prefix-method): new function: it is + implementation of new method `prefix'. + +Wed Jan 17 06:30:08 1996 Morioka Tomohiko + + * mu-cite.el (mu-cite/save-to-file): modified to change comment of + output file + + * mu-cite.el (mu-cite/RCS-ID, mu-cite/version): new variable + +Wed Jan 17 06:22:35 1996 Morioka Tomohiko + + * mu-cite.el: Default name of user environment file was changed to + ~/.mu-cite.el. + +Wed Jan 17 06:08:19 1996 Morioka Tomohiko + + * mu-cite.el: `mu-register/*' were renamed to `mu-cite/*'. + + * mu-cite.el: mu-register.el was merged into mu-cite.el. + +Wed Jan 17 05:35:06 1996 Morioka Tomohiko + + * mu-register.el (mu-register/citation-name): + use function `y-or-n-p' + + * mu-register.el (mu-register/citation-name-quietly): + use function `y-or-n-p' + +Tue Jan 16 21:54:27 1996 Morioka Tomohiko + + * mu-register.el (mu-register/citation-name): + use function `tl:read-string' instead of `read-string'. + + * mu-register.el (mu-register/citation-name-quietly): + use function `tl:read-string' instead of `read-string'. + + * emu.el (tl:read-string): New function + + * mu-register.el: `(require 'pp)' was deleted. + +Tue Jan 16 14:04:24 1996 Morioka Tomohiko + + * mu-register.el: + Method `prefix-registered-quietly' was renamed to + `prefix-register'. + Method `prefix-registered' was renamed to + `prefix-register-verbose'. + +Mon Jan 15 21:19:11 1996 Morioka Tomohiko + + * mu-register.el (mu-register/get-citation-name): new + implementation by macro + +Mon Jan 15 21:07:05 1996 Morioka Tomohiko + + * mu-register.el (mu-register/citation-name-quietly): new + function: implementation of `prefix-registered-quietly' + + Method name of function `mu-register/citation-name' was renamed to + `prefix-registered'. + +Mon Jan 15 20:28:32 1996 Morioka Tomohiko + + * mu-register.el (mu-register/save-to-file): new implementation + + * mu-register.el (mu-register/registration-symbol): new variable: + to specify symbol name of citation-name database. + + * mu-register.el (mu-register/save-to-file): modified to use + variable `mu-register/registration-symbol'. + + * mu-register.el: use function `set-alist'. + + * mu-register.el: Comments were translated from Japanese to + English. + +Wed Dec 27 14:28:17 1995 MINOURA Makoto + + * mu-register.el: new module diff --git a/Makefile b/Makefile index 403dbd0..5253608 100644 --- a/Makefile +++ b/Makefile @@ -17,9 +17,9 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ - tl/Changes* + tl/ChangeLog -TARFILE = tl-7.03.4.tar +TARFILE = tl-7.08.tar elc: diff --git a/emu-18.el b/emu-18.el index 7a320a4..c42bca5 100644 --- a/emu-18.el +++ b/emu-18.el @@ -6,11 +6,26 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-18.el,v 7.3 1995/12/07 06:02:59 morioka Exp $ +;;; $Id: emu-18.el,v 7.3 1995/12/07 06:02:59 morioka Exp morioka $ ;;; Keywords: emulation, compatibility ;;; -;;; This file is part of tl and tm (Tools for MIME). +;;; This file is part of tl (Tiny Library). ;;; +;;; 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 This program. If not, write to the Free Software +;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; +;;; Code: ;;; @ hook ;;; @@ -97,18 +112,20 @@ Associates the function with the current load file, if any. (defun byte-code-function-p (exp) "T if OBJECT is a byte-compiled function object. \[emu-18.el; Emacs 19 emulating function]" - (let* ((rest (cdr (cdr exp))) elt) - (if (stringp (car rest)) - (setq rest (cdr rest)) - ) - (catch 'tag - (while rest - (setq elt (car rest)) - (if (and (consp elt)(eq (car elt) 'byte-code)) - (throw 'tag t) - ) - (setq rest (cdr rest)) - )))) + (and (consp exp) + (let* ((rest (cdr (cdr exp))) elt) + (if (stringp (car rest)) + (setq rest (cdr rest)) + ) + (catch 'tag + (while rest + (setq elt (car rest)) + (if (and (consp elt)(eq (car elt) 'byte-code)) + (throw 'tag t) + ) + (setq rest (cdr rest)) + )) + ))) ;;; @ directory @@ -176,3 +193,5 @@ to create parent directories if they don't exist. ;;; (provide 'emu-18) + +;;; emu-18.el ends here diff --git a/emu.el b/emu.el index 54e52aa..ee7b280 100644 --- a/emu.el +++ b/emu.el @@ -6,11 +6,26 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu.el,v 4.0 1995/09/21 00:05:57 morioka Exp $ +;;; $Id: emu.el,v 5.0 1996/01/16 21:52:37 morioka Exp $ ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs ;;; -;;; This file is part of tl and tm (Tools for MIME). +;;; This file is part of tl (Tiny Library). ;;; +;;; 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 This program. If not, write to the Free Software +;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; +;;; Code: (cond ((boundp 'MULE) (require 'emu-mule)) ((boundp 'NEMACS)(require 'emu-nemacs)) @@ -21,12 +36,23 @@ ;;; @ Emacs 19.29 emulation ;;; -(if (not (fboundp 'buffer-substring-no-properties)) - (defalias 'buffer-substring-no-properties 'buffer-substring) - ) +(cond ((fboundp 'buffer-substring-no-properties) + ;; for Emacs 19.29 or later + (defalias 'tl:read-string 'read-string) + ) + (t + ;; 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) + ) + )) ;;; @ end ;;; (provide 'emu) + +;;; emu.el ends here -- 1.7.10.4