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 7.1 1995/12/07 05:12:34 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-1 'button1)
  54 (defvar mouse-button-2 'button2)
  55 (defvar mouse-button-3 'button3)
  56
  57 (or (fboundp 'dired-other-frame)
  58     (defun dired-other-frame (dirname &optional switches)
  59       "\"Edit\" directory DIRNAME.  Like `dired' but makes a new frame."
  60       (interactive (dired-read-dir-and-switches "in other frame "))
  61       (switch-to-buffer-other-frame (dired-noselect dirname switches))
  62       )
  63     )
  64
  65
  66 ;;; @ end
  67 ;;;
  68
  69 (provide 'emu-xemacs)