emu-xemacs.el

   1 ;;;
   2 ;;; emu-xemacs: Emacs 19 emulation module for XEmacs
   3 ;;;
   4 ;;; $Id: emu-xemacs.el,v 3.0 1995/09/10 13:31:51 morioka Exp $
   5 ;;;
   6
   7 (or (fboundp 'face-list)
   8     (defalias 'face-list 'list-faces)
   9     )
  10
  11 (or (memq 'underline (face-list))
  12     (and (fboundp 'make-face)
  13          (make-face 'underline)
  14          ))
  15
  16 (or (face-differs-from-default-p 'underline)
  17     (set-face-underline-p 'underline t))
  18
  19 ;;; (or (fboundp 'set-text-properties)
  20 ;;;     (defun set-text-properties (start end props &optional buffer)
  21 ;;;       (if (or (null buffer) (bufferp buffer))
  22 ;;;           (if props
  23 ;;;               (while props
  24 ;;;                 (put-text-property
  25 ;;;                  start end (car props) (nth 1 props) buffer)
  26 ;;;                 (setq props (nthcdr 2 props)))
  27 ;;;             (remove-text-properties start end ())
  28 ;;;             )))
  29 ;;;     )
  30 ;;;
  31 ;;; (defalias 'make-overlay 'make-extent)
  32 ;;; (defalias 'overlay-put 'set-extent-property)
  33 ;;; (defalias 'overlay-buffer 'extent-buffer)
  34 ;;;
  35 ;;; (defun move-overlay (extent start end &optional buffer)
  36 ;;;   (set-extent-endpoints extent start end)
  37 ;;;   )
  38
  39 (provide 'emu-xemacs)