From e41bcc744dca0f3348883365b05040ec6b6b23e0 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 19:41:10 +0000 Subject: [PATCH] tm 7.73. --- ChangeLog | 15 +++++++++++++++ Makefile | 2 +- emu-18.el | 16 +++++++++++++++- emu-19.el | 6 +++++- emu-x20.el | 5 +++-- emu-xemacs.el | 6 +++++- emu.el | 7 +++++-- 7 files changed, 49 insertions(+), 8 deletions(-) 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 + + * tl: Version 7.43.1 was released. + + * emu.el (emacs-minor-version): fixed for NEpoch. + +Mon Jul 22 18:54:54 1996 MORIOKA Tomohiko + + * 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 * 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 ;;; 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 ;;; 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 ;;; 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 ;;; 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 ;;; modified by KOBAYASHI Shuhei ;;; 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)) -- 1.7.10.4