Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

tm 7.48.

  • Loading branch information...
commit 82b4a722b41052570866e89669f5d13d79074bcd 1 parent 54abd50
morioka authored
Showing with 72 additions and 4 deletions.
  1. +31 −0 ChangeLog
  2. +1 −1  Makefile
  3. +18 −1 emu-19.el
  4. +22 −2 emu.el
View
31 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.
View
2  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:
View
19 emu-19.el
@@ -2,7 +2,7 @@
;;; 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:
@@ -11,6 +11,21 @@
;;;
;;; 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
View
24 emu.el
@@ -2,9 +2,10 @@
;;; 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$
;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
@@ -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
;;;
Please sign in to comment.
Something went wrong with that request. Please try again.