tm 7.48.

diff --git a/ChangeLog b/ChangeLog
index ec64166..d850603 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,34 @@
+Wed Mar 13 17:16:09 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.18 was released.
+
+       * emu.el (functionp): New function.
+
+       * mu-cite.el (mu-cite/get-value): Use function `functionp'.
+
+Wed Mar 13 16:35:15 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * mu-comment.el: New file.
+
+Sat Mar  9 08:13:21 1996  Hiroshi Ueno <zodiac@ibm.net>
+
+       * mu-cite.el (mu-cite/cite-original): exchange-point-and-mark if
+       mark < point. (cf. [OS/2:1536])
+
+Tue Mar 12 11:32:54 1996  Shuhei KOBAYASHI  <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+       * mu-bbdb.el (mu-cite/get-bbdb-prefix-register-method),
+       (mu-cite/get-bbdb-prefix-register-verbose-method): Don't register
+       null string. (cf.[tm-ja:1662])
+
+       * mu-cite.el (mu-cite/get-prefix-register-method),
+       (mu-cite/get-prefix-register-method): Don't register null string.
+       (cf.[tm-ja:1662])
+       
+       * emu.el (buffer-substring-no-properties): New implementation
+       imported from Emacs 19.30. (cf.[tm-ja:1662])
+
+\f
 Wed Mar  6 00:24:08 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.15 was released.

diff --git a/Makefile b/Makefile
index ad3dbba..aad2e8c 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 FILES  = tl/README.eng tl/Makefile tl/mk-tl tl/tl-els \
                tl/*.el tl/doc/*.texi tl/ChangeLog
 
-TARFILE = tl-7.15.tar
+TARFILE = tl-7.18.tar
 
 
 elc:

diff --git a/emu-19.el b/emu-19.el
index 3877cc0..077daab 100644 (file)
--- a/emu-19.el
+++ b/emu-19.el
@@ -2,15 +2,30 @@
 ;;; emu-19.el --- emu module for FSF original Emacs 19.*
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-19.el,v 6.0 1995/12/08 22:48:48 morioka Exp $
+;;;    $Id: emu-19.el,v 7.0 1996/03/13 16:21:13 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
 ;;;
+;;; 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:
 
 (defalias 'tl:set-text-properties 'set-text-properties)
 (defalias 'tl:add-text-properties 'add-text-properties)
@@ -27,3 +42,5 @@
 ;;;
 
 (provide 'emu-19)
+
+;;; emu-19.el ends here

diff --git a/emu.el b/emu.el
index 4c616f1..5bd09ba 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -2,11 +2,12 @@
 ;;; emu.el --- Emulation module for each Emacs variants
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 .. 1996 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
 ;;; Version:
-;;;    $Id: emu.el,v 7.0 1996/02/26 01:15:31 morioka Exp $
+;;;    $Id: emu.el,v 7.3 1996/03/13 17:13:31 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -37,7 +38,11 @@
 ;;;
 
 (or (fboundp 'buffer-substring-no-properties)
-    (defalias 'buffer-substring-no-properties 'buffer-substring)
+    (defun buffer-substring-no-properties (beg end)
+      "Return the text from BEG to END, without text properties, as a string."
+      (let ((string (buffer-substring beg end)))
+        (tl:set-text-properties 0 (length string) nil string)
+       string))
     )
 
 (cond ((or (<= emacs-major-version 18)
@@ -53,6 +58,21 @@
        ))
 
 
+;;; @ XEmacs emulation
+;;;
+
+(or (fboundp 'functionp)
+    (defun functionp (obj)
+      "Returns t if OBJ is a function, nil otherwise.
+\[emu.el; XEmacs emulating function]"
+      (or (subrp obj)
+         (byte-code-function-p obj)
+         (and (symbolp obj)(fboundp obj))
+         (and (consp obj)(eq (car obj) 'lambda))
+         ))
+    )
+       
+
 ;;; @ end
 ;;;