Skip to content

Commit

Permalink
tm 7.40.
Browse files Browse the repository at this point in the history
  • Loading branch information
morioka committed Mar 9, 1998
1 parent b71c7e3 commit 3d7ff85
Show file tree
Hide file tree
Showing 4 changed files with 166 additions and 19 deletions.
102 changes: 102 additions & 0 deletions ChangeLog
View file
Original file line number Original file line Diff line number Diff line change
@@ -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
4 changes: 2 additions & 2 deletions Makefile
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -17,9 +17,9 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp




FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ 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: elc:
Expand Down
45 changes: 32 additions & 13 deletions emu-18.el
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -9,8 +9,23 @@
;;; $Id$ ;;; $Id$
;;; Keywords: emulation, compatibility ;;; 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 ;;; @ hook
;;; ;;;
Expand Down Expand Up @@ -97,18 +112,20 @@ Associates the function with the current load file, if any.
(defun byte-code-function-p (exp) (defun byte-code-function-p (exp)
"T if OBJECT is a byte-compiled function object. "T if OBJECT is a byte-compiled function object.
\[emu-18.el; Emacs 19 emulating function]" \[emu-18.el; Emacs 19 emulating function]"
(let* ((rest (cdr (cdr exp))) elt) (and (consp exp)
(if (stringp (car rest)) (let* ((rest (cdr (cdr exp))) elt)
(setq rest (cdr rest)) (if (stringp (car rest))
) (setq rest (cdr rest))
(catch 'tag )
(while rest (catch 'tag
(setq elt (car rest)) (while rest
(if (and (consp elt)(eq (car elt) 'byte-code)) (setq elt (car rest))
(throw 'tag t) (if (and (consp elt)(eq (car elt) 'byte-code))
) (throw 'tag t)
(setq rest (cdr rest)) )
)))) (setq rest (cdr rest))
))
)))




;;; @ directory ;;; @ directory
Expand Down Expand Up @@ -176,3 +193,5 @@ to create parent directories if they don't exist.
;;; ;;;


(provide 'emu-18) (provide 'emu-18)

;;; emu-18.el ends here
34 changes: 30 additions & 4 deletions emu.el
View file
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -9,8 +9,23 @@
;;; $Id$ ;;; $Id$
;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs ;;; 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)) (cond ((boundp 'MULE) (require 'emu-mule))
((boundp 'NEMACS)(require 'emu-nemacs)) ((boundp 'NEMACS)(require 'emu-nemacs))
Expand All @@ -21,12 +36,23 @@
;;; @ Emacs 19.29 emulation ;;; @ Emacs 19.29 emulation
;;; ;;;


(if (not (fboundp 'buffer-substring-no-properties)) (cond ((fboundp 'buffer-substring-no-properties)
(defalias 'buffer-substring-no-properties 'buffer-substring) ;; 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 ;;; @ end
;;; ;;;


(provide 'emu) (provide 'emu)

;;; emu.el ends here

0 comments on commit 3d7ff85

Please sign in to comment.