Browse files

tm 6.79.

  • Loading branch information...
1 parent 7ac0a2f commit ed40b706e879e76c429c768e30c0dc350a1d5d75 morioka committed Mar 9, 1998
Showing with 51 additions and 52 deletions.
  1. +9 −52 Makefile
  2. +38 −0 emu-xemacs.el
  3. +4 −0 emu.el
View
61 Makefile
@@ -2,16 +2,7 @@
# $Id$
#
-# Please specify emacs executables:
-# NEMACS = for NEMACS (or NEpoch)
-# MULE1 = for Mule 1.* (based on Emacs 18.*)
-# ORIG19 = for Emacs 19.* (FSF original or XEmacs)
-# MULE2 = for MULE 2.* (based on Emacs 19.*)
-
-NEMACS = nemacs
-MULE1 = mule1
-ORIG19 = emacs19
-MULE2 = mule2
+EMACS = mule
# Please specfy Emacs Lisp install directory:
@@ -24,54 +15,20 @@ MULE2 = mule2
TLDIR18 = $(HOME)/lib/emacs18/lisp
TLDIR19 = $(HOME)/lib/emacs19/lisp
-FILES = tl/README.eng tl/Makefile tl/Makefile.bc tl/loadpath \
- tl/*.el tl/doc/*.texi
-
-TARFILE = tl-6.6.1.tar
-
-
-nemacs:
- make -f Makefile.bc all \
- EMACS=$(NEMACS) EMACS_TYPE=nemacs \
- EMU18=emu-18.el OPT='-l emu-18.el'
-
-install-nemacs: nemacs
- make -f Makefile.bc install \
- EMACS=$(NEMACS) EMACS_TYPE=nemacs \
- EMU18=emu-18.el OPT='-l emu-18.el' \
- TLDIR=$(TLDIR18)
-
-
-mule1:
- make -f Makefile.bc all \
- EMACS=$(MULE1) EMACS_TYPE=mule \
- EMU18=emu-18.el OPT='-l emu-18.el'
-
-install-mule1: mule1
- make -f Makefile.bc install \
- EMACS=$(MULE1) EMACS_TYPE=mule \
- EMU18=emu-18.el OPT='-l emu-18.el' \
- TLDIR=$(TLDIR18)
+FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
-orig19:
- make -f Makefile.bc all \
- EMACS=$(ORIG19) EMACS_TYPE=orig
+TARFILE = tl-6.6.2.tar
-install-orig19: orig19
- make -f Makefile.bc install \
- EMACS=$(ORIG19) EMACS_TYPE=orig \
- TLDIR=$(TLDIR19)
+elc:
+ $(EMACS) -batch -l mk-tl -f compile-tl
-mule2:
- make -f Makefile.bc all \
- EMACS=$(MULE2) EMACS_TYPE=mule
+install-18:
+ $(EMACS) -batch -l mk-tl -f install-tl $(TLDIR18)
-install-mule2: mule2
- make -f Makefile.bc install \
- EMACS=$(MULE2) EMACS_TYPE=mule \
- TLDIR=$(TLDIR19)
+install-19:
+ $(EMACS) -batch -l mk-tl -f install-tl $(TLDIR19)
clean:
View
38 emu-xemacs.el
@@ -0,0 +1,38 @@
+;;;
+;;; emu-xemacs: Emacs 19 emulation module for XEmacs
+;;;
+;;; $Id$
+;;;
+
+(or (fboundp 'face-list)
+ (defalias 'face-list 'list-faces)
+ )
+
+(or (memq 'underline (face-list))
+ (and (fboundp 'make-face)
+ (make-face 'underline)
+ ))
+
+(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)
+ )
+
+(provide 'emu-xemacs)
View
4 emu.el
@@ -9,6 +9,10 @@
(t (require 'emu-orig))
)
+(if (string-match "XEmacs\\|Lucid" emacs-version)
+ (require 'emu-xemacs)
+ )
+
;;; @ Emacs 19.29 emulation
;;;

0 comments on commit ed40b70

Please sign in to comment.