From: morioka <morioka>
Date: Mon, 9 Mar 1998 19:41:10 +0000 (+0000)
Subject: tm 7.73.
X-Git-Tag: tm7_73~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=e41bcc744dca0f3348883365b05040ec6b6b23e0

tm 7.73.
---

diff --git a/ChangeLog b/ChangeLog
index 9bde53b..d46831b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+Tue Jul 23 14:58:47 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.43.1 was released.
+
+	* emu.el (emacs-minor-version): fixed for NEpoch.
+
+Mon Jul 22 18:54:54 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-xemacs.el, emu-19.el, emu-18.el
+ 	(enable-invisible): New macro.
+	(end-of-invisible): New macro.
+
+	* emu-x20.el: add `(require 'cyrillic)'.
+
+
 Wed Jul 17 05:35:50 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.43 was released.
diff --git a/Makefile b/Makefile
index 3671b20..62fae45 100644
--- a/Makefile
+++ b/Makefile
@@ -21,7 +21,7 @@ FILES	= tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 		tl/*.el tl/*.bdf \
 		tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
 
-TARFILE = tl-7.31.1.tar
+TARFILE = tl-7.43.1.tar
 
 
 elc:
diff --git a/emu-18.el b/emu-18.el
index efd408e..a5b5177 100644
--- a/emu-18.el
+++ b/emu-18.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-18.el,v 7.18 1996/05/26 02:05:52 morioka Exp $
+;;;	$Id: emu-18.el,v 7.19 1996/07/22 18:31:23 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -224,6 +224,20 @@ With optional non-nil ALL, force redisplay of all mode-lines.
 ;;; @@ visible/invisible
 ;;;
 
+(defmacro enable-invisible ()
+  (`
+   (progn
+     (make-local-variable 'original-selective-display)
+     (setq original-selective-display selective-display)
+     (setq selective-display t)
+     )))
+
+(defmacro end-of-invisible ()
+  (` (setq selective-display
+	   (if (boundp 'original-selective-display)
+	       original-selective-display))
+     ))
+
 (defun invisible-region (start end)
   (let ((buffer-read-only nil)		;Okay even if write protected.
 	(modp (buffer-modified-p)))
diff --git a/emu-19.el b/emu-19.el
index fe741f3..28fe92d 100644
--- a/emu-19.el
+++ b/emu-19.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-19.el,v 7.7 1996/05/26 01:48:47 morioka Exp $
+;;;	$Id: emu-19.el,v 7.8 1996/07/22 18:52:53 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -40,6 +40,10 @@
 ;;; @@ visible/invisible
 ;;;
 
+(defmacro enable-invisible ())
+
+(defmacro end-of-invisible ())
+
 (defun invisible-region (start end)
   (if (save-excursion
 	(goto-char (1- end))
diff --git a/emu-x20.el b/emu-x20.el
index a184284..f60d3e3 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-x20.el,v 7.33 1996/07/15 08:29:22 morioka Exp $
+;;;	$Id: emu-x20.el,v 7.34 1996/07/22 17:48:45 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -27,6 +27,7 @@
 ;;;
 ;;; Code:
 
+(require 'cyrillic)
 (require 'emu-xemacs)
 
 (defvar xemacs-beta-version
@@ -90,7 +91,7 @@ in the region between START and END.
 (defconst *hz*     'hz)
 (defconst *big5*   'big5)
 (defconst *euc-kr* 'euc-kr)
-(defconst *koi8*   nil)
+(defconst *koi8*   'koi8)
 
 (defvar code-converter-is-broken
   (and xemacs-beta-version (<= xemacs-beta-version 26)))
diff --git a/emu-xemacs.el b/emu-xemacs.el
index f71e462..0fe3b06 100644
--- a/emu-xemacs.el
+++ b/emu-xemacs.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-xemacs.el,v 7.8 1996/05/26 02:13:21 morioka Exp $
+;;;	$Id: emu-xemacs.el,v 7.9 1996/07/22 18:54:54 morioka Exp $
 ;;; Keywords: emulation, compatibility, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -72,6 +72,10 @@
 ;;; @@ visible/invisible
 ;;;
 
+(defmacro enable-invisible ())
+
+(defmacro end-of-invisible ())
+
 (defun invisible-region (start end)
   (if (save-excursion
 	(goto-char start)
diff --git a/emu.el b/emu.el
index 8d5cebd..83b205d 100644
--- a/emu.el
+++ b/emu.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu.el,v 7.19 1996/07/11 14:11:12 morioka Exp $
+;;;	$Id: emu.el,v 7.20 1996/07/23 14:58:47 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -33,7 +33,10 @@
 (or (boundp 'emacs-minor-version)
     (defconst emacs-minor-version
       (string-to-int
-       (substring emacs-version (string-match "18\\." emacs-version)))))
+       (substring
+	emacs-version
+	(string-match (format "%d\\." emacs-major-version) emacs-version)
+	))))
 
 (defvar running-emacs-18 (<= emacs-major-version 18))
 (defvar running-xemacs (string-match "XEmacs" emacs-version))