Permalink
Browse files

tm 7.73.

  • Loading branch information...
1 parent 6a132e6 commit 2228e9ba47b474dca497550c642a76fd21d15e47 morioka committed Mar 9, 1998
Showing with 44 additions and 3 deletions.
  1. +15 −0 ChangeLog
  2. +1 −1 Makefile
  3. +14 −0 emu-18.el
  4. +4 −0 emu-19.el
  5. +2 −1 emu-x20.el
  6. +4 −0 emu-xemacs.el
  7. +4 −1 emu.el
View
@@ -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.
View
@@ -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:
View
@@ -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)))
View
@@ -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))
View
@@ -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)))
View
@@ -72,6 +72,10 @@
;;; @@ visible/invisible
;;;
+(defmacro enable-invisible ())
+
+(defmacro end-of-invisible ())
+
(defun invisible-region (start end)
(if (save-excursion
(goto-char start)
View
@@ -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))

0 comments on commit 2228e9b

Please sign in to comment.