emu-xemacs.el

   1 ;;;
   2 ;;; emu-xemacs.el --- Emacs 19 emulation module for XEmacs
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1995 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   9 ;;;     $Id: emu-xemacs.el,v 5.0 1995/09/21 00:08:50 morioka Exp $
  10 ;;; Keywords: emulation, compatibility, XEmacs
  11 ;;;
  12 ;;; This file is part of tl and tm (Tools for MIME).
  13 ;;;
  14
  15 (or (fboundp 'face-list)
  16     (defalias 'face-list 'list-faces)
  17     )
  18
  19 (or (memq 'underline (face-list))
  20     (and (fboundp 'make-face)
  21          (make-face 'underline)
  22          ))
  23
  24 (or (face-differs-from-default-p 'underline)
  25     (set-face-underline-p 'underline t))
  26
  27 (or (fboundp 'tl:set-text-properties)
  28     (defun tl:set-text-properties (start end props &optional buffer)
  29       (if (or (null buffer) (bufferp buffer))
  30           (if props
  31               (while props
  32                 (put-text-property
  33                  start end (car props) (nth 1 props) buffer)
  34                 (setq props (nthcdr 2 props)))
  35             (remove-text-properties start end ())
  36             )))
  37     )
  38
  39 (defun tl:add-text-properties (start end properties)
  40   (add-text-properties start end
  41                        (append properties (list 'highlight t))
  42                        )
  43   )
  44
  45 (defalias 'tl:make-overlay 'make-extent)
  46 (defalias 'tl:overlay-put 'set-extent-property)
  47 (defalias 'tl:overlay-buffer 'extent-buffer)
  48
  49 (defun tl:move-overlay (extent start end &optional buffer)
  50   (set-extent-endpoints extent start end)
  51   )
  52
  53 (defvar mouse-button-2 'button2)
  54
  55 (provide 'emu-xemacs)