Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-xemacs.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4b173ad71786
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995,1996 MORIOKA Tomohiko 4 ;; Copyright (C) 1995,1996 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.2 1996/12/22 00:29:30 steve Exp $ 8 ;; $Id: emu-xemacs.el,v 1.3 1997/03/09 02:37:47 steve Exp $
9 ;; Keywords: emulation, compatibility, XEmacs 9 ;; Keywords: emulation, compatibility, XEmacs
10 10
11 ;; This file is part of emu. 11 ;; This file is part of emu.
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
52 (setq props (nthcdr 2 props))) 52 (setq props (nthcdr 2 props)))
53 (remove-text-properties start end ()) 53 (remove-text-properties start end ())
54 ))) 54 )))
55 ) 55 )
56 56
57 (defun tl:add-text-properties (start end properties) 57 (defun tl:add-text-properties (start end properties &optional object)
58 (add-text-properties start end 58 (add-text-properties start end
59 (append properties (list 'highlight t)) 59 (append properties (list 'highlight t))
60 ) 60 object)
61 ) 61 )
62 62
63 (defalias 'tl:make-overlay 'make-extent) 63 (defalias 'tl:make-overlay 'make-extent)
64 (defalias 'tl:overlay-put 'set-extent-property) 64 (defalias 'tl:overlay-put 'set-extent-property)
65 (defalias 'tl:overlay-buffer 'extent-buffer) 65 (defalias 'tl:overlay-buffer 'extent-buffer)