Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.40.

  • Loading branch information...
commit 3d7ff85e26c9f7a94e903b6a90f47ca835ade10f 1 parent b71c7e3
morioka authored
Showing with 166 additions and 19 deletions.
  1. +102 −0 ChangeLog
  2. +2 −2 Makefile
  3. +32 −13 emu-18.el
  4. +30 −4 emu.el
View
102 ChangeLog
@@ -0,0 +1,102 @@
+Wed Jan 17 08:23:41 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * mu-cite.el: Default name of user environment file was changed to
+ ~/.mu-cite.el.
+
+Wed Jan 17 06:08:19 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * mu-register.el (mu-register/get-citation-name): new
+ implementation by macro
+
+Mon Jan 15 21:07:05 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <minoura@leo.bekkoame.or.jp>
+
+ * mu-register.el: new module
View
4 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:
View
45 emu-18.el
@@ -9,8 +9,23 @@
;;; $Id$
;;; 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
View
34 emu.el
@@ -9,8 +9,23 @@
;;; $Id$
;;; 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
Please sign in to comment.
Something went wrong with that request. Please try again.