Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-xemacs.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents fe104dbd9147
children
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko 4 ;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
5 5
6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Version: 7 ;; Version:
8 ;; $Id: emu-xemacs.el,v 1.3 1997/03/16 03:05:44 steve Exp $ 8 ;; $Id: emu-xemacs.el,v 1.4 1997/04/10 05:55:51 steve Exp $
9 ;; Keywords: emulation, compatibility, XEmacs 9 ;; Keywords: emulation, compatibility, XEmacs
10 10
11 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
44 44
45 45
46 ;;; @ overlay 46 ;;; @ overlay
47 ;;; 47 ;;;
48 48
49 (defalias 'tl:make-overlay 'make-extent) 49 (condition-case err
50 (defalias 'tl:overlay-put 'set-extent-property) 50 (require 'overlay)
51 (defalias 'tl:overlay-buffer 'extent-buffer) 51 (error (defalias 'make-overlay 'make-extent)
52 52 (defalias 'overlay-put 'set-extent-property)
53 (defun tl:move-overlay (extent start end &optional buffer) 53 (defalias 'overlay-buffer 'extent-buffer)
54 (set-extent-endpoints extent start end) 54 (defun move-overlay (extent start end &optional buffer)
55 ) 55 (set-extent-endpoints extent start end)
56 )
57 ))
56 58
57 59
58 ;;; @@ visible/invisible 60 ;;; @ visible/invisible
59 ;;; 61 ;;;
60 62
61 (defmacro enable-invisible ()) 63 (defmacro enable-invisible ())
62 64
63 (defmacro end-of-invisible ()) 65 (defmacro end-of-invisible ())