--- /dev/null
+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
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:
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; 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
;;;
(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
;;;
(provide 'emu-18)
+
+;;; emu-18.el ends here
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; 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))
;;; @ 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
projects / elisp / apel.git / commitdiff