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.8 1996/07/22 18:52:53 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 ;;; @@ visible/invisible
  41 ;;;
  42
  43 (defmacro enable-invisible ())
  44
  45 (defmacro end-of-invisible ())
  46
  47 (defun invisible-region (start end)
  48   (if (save-excursion
  49         (goto-char (1- end))
  50         (eq (following-char) ?\n)
  51         )
  52       (setq end (1- end))
  53     )
  54   (put-text-property start end 'invisible t)
  55   )
  56
  57 (defun visible-region (start end)
  58   (put-text-property start end 'invisible nil)
  59   )
  60
  61 (defun invisible-p (pos)
  62   (get-text-property pos 'invisible)
  63   )
  64
  65 (defun next-visible-point (pos)
  66   (save-excursion
  67     (goto-char (next-single-property-change pos 'invisible))
  68     (if (eq (following-char) ?\n)
  69         (forward-char)
  70       )
  71     (point)
  72     ))
  73
  74
  75 ;;; @ mouse
  76 ;;;
  77
  78 (defvar mouse-button-1 [mouse-1])
  79 (defvar mouse-button-2 [mouse-2])
  80 (defvar mouse-button-3 [down-mouse-3])
  81
  82
  83 ;;; @ string
  84 ;;;
  85
  86 (defmacro char-list-to-string (char-list)
  87   "Convert list of character CHAR-LIST to string. [emu-19.el]"
  88   (` (mapconcat (function char-to-string)
  89                 (, char-list)
  90                 "")
  91      ))
  92
  93
  94 ;;; @ end
  95 ;;;
  96
  97 (provide 'emu-19)
  98
  99 ;;; emu-19.el ends here