tm 6.79.

[elisp/apel.git] / emu-xemacs.el

diff --git a/emu-xemacs.el b/emu-xemacs.el
new file mode 100644 (file)
index 0000000..7be0fc7
--- /dev/null
+++ b/emu-xemacs.el
@@ -0,0 +1,38 @@
+;;;
+;;; emu-xemacs: Emacs 19 emulation module for XEmacs
+;;;
+;;; $Id: emu-xemacs.el,v 2.0 1995/09/08 17:47:54 morioka Exp $
+;;;
+
+(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)