emu-19.el

   1 ;;;
   2 ;;; emu-19.el --- emu module for FSF original Emacs 19.*
   3 ;;;
   4 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
   5 ;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
   6 ;;;
   7 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
   8 ;;; Version:
   9 ;;;     $Id: emu-19.el,v 7.1 1996/04/11 01:05:34 morioka Exp $
  10 ;;; Keywords: emulation, compatibility
  11 ;;;
  12 ;;; This file is part of tl (Tiny Library).
  13 ;;;
  14 ;;; This program is free software; you can redistribute it and/or
  15 ;;; modify it under the terms of the GNU General Public License as
  16 ;;; published by the Free Software Foundation; either version 2, or
  17 ;;; (at your option) any later version.
  18 ;;;
  19 ;;; This program is distributed in the hope that it will be useful,
  20 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  22 ;;; General Public License for more details.
  23 ;;;
  24 ;;; You should have received a copy of the GNU General Public License
  25 ;;; along with This program.  If not, write to the Free Software
  26 ;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  27 ;;;
  28 ;;; Code:
  29
  30 ;;; @ text property
  31 ;;;
  32
  33 (defalias 'tl:set-text-properties 'set-text-properties)
  34 (defalias 'tl:add-text-properties 'add-text-properties)
  35 (defalias 'tl:make-overlay 'make-overlay)
  36 (defalias 'tl:overlay-put 'overlay-put)
  37 (defalias 'tl:overlay-buffer 'overlay-buffer)
  38
  39
  40 ;;; @ mouse
  41 ;;;
  42
  43 (defvar mouse-button-1 [mouse-1])
  44 (defvar mouse-button-2 [mouse-2])
  45 (defvar mouse-button-3 [down-mouse-3])
  46
  47
  48 ;;; @ string
  49 ;;;
  50
  51 (defmacro char-list-to-string (char-list)
  52   "Convert list of character CHAR-LIST to string. [emu-19.el]"
  53   (` (mapconcat (function char-to-string)
  54                 (, char-list)
  55                 "")
  56      ))
  57
  58
  59 ;;; @ end
  60 ;;;
  61
  62 (provide 'emu-19)
  63
  64 ;;; emu-19.el ends here