From: morioka <morioka>
Date: Mon, 9 Mar 1998 16:13:14 +0000 (+0000)
Subject: tm 7.48.
X-Git-Tag: tm7_48~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cc4dea4a6757a42ba33a9c968b4655cec18e906f;p=elisp%2Fapel.git

tm 7.48.
---

diff --git a/ChangeLog b/ChangeLog
index ec64166..d850603 100644
--- 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])
+
+
 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
--- 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
--- 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
--- 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
 ;;;