tm 6.79.

wanderlust · Mar 9, 1998 · ed40b70 · ed40b70
1 parent 7ac0a2f
commit ed40b70
Show file tree

Hide file tree

Showing 3 changed files with 51 additions and 52 deletions.
diff --git a/Makefile b/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:

diff --git a/emu-xemacs.el b/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)
diff --git a/emu.el b/emu.el
@@ -9,6 +9,10 @@
       (t               (require 'emu-orig))
       )
 
+(if (string-match "XEmacs\\|Lucid" emacs-version)
+    (require 'emu-xemacs)
+  )
+
 
 ;;; @ Emacs 19.29 emulation
 ;;;