tm 6.80.

diff --git a/Makefile b/Makefile
index 27fda11..e627c27 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -18,7 +18,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 
 FILES  = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
 
-TARFILE = tl-6.6.2.tar
+TARFILE = tl-6.6.3.tar
 
 
 elc:

diff --git a/emu-xemacs.el b/emu-xemacs.el
index 7be0fc7..adf7ea7 100644 (file)
--- a/emu-xemacs.el
+++ b/emu-xemacs.el
@@ -1,7 +1,7 @@
 ;;;
 ;;; emu-xemacs: Emacs 19 emulation module for XEmacs
 ;;;
-;;; $Id: emu-xemacs.el,v 2.0 1995/09/08 17:47:54 morioka Exp $
+;;; $Id: emu-xemacs.el,v 3.0 1995/09/10 13:31:51 morioka Exp $
 ;;;
 
 (or (fboundp 'face-list)
@@ -16,23 +16,24 @@
 (or (face-differs-from-default-p 'underline)
     (set-face-underline-p 'underline t))
 
-(or (fboundp 'set-text-properties)
-    (defun set-text-properties (start end props &optional buffer)
-      (if (or (null buffer) (bufferp buffer))
-         (if props
-             (while props
-               (put-text-property 
-                start end (car props) (nth 1 props) buffer)
-               (setq props (nthcdr 2 props)))
-           (remove-text-properties start end ())
-           )))
-    )
-
-(defalias 'make-overlay 'make-extent)
-(defalias 'overlay-put 'set-extent-property)
-
-(defun move-overlay (extent start end &optional buffer)
-  (set-extent-endpoints extent start end)
-  )
+;;; (or (fboundp 'set-text-properties)
+;;;     (defun set-text-properties (start end props &optional buffer)
+;;;       (if (or (null buffer) (bufferp buffer))
+;;;           (if props
+;;;               (while props
+;;;                 (put-text-property 
+;;;                  start end (car props) (nth 1 props) buffer)
+;;;                 (setq props (nthcdr 2 props)))
+;;;             (remove-text-properties start end ())
+;;;             )))
+;;;     )
+;;; 
+;;; (defalias 'make-overlay 'make-extent)
+;;; (defalias 'overlay-put 'set-extent-property)
+;;; (defalias 'overlay-buffer 'extent-buffer)
+;;; 
+;;; (defun move-overlay (extent start end &optional buffer)
+;;;   (set-extent-endpoints extent start end)
+;;;   )
 
 (provide 'emu-xemacs)