Mercurial > hg > xemacs-beta

comparison lisp/tl/emu-xemacs.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 54cc21c15cbb
children fe104dbd9147
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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.1.1.2 1996/12/21 20:50:48 steve Exp $ 8 ;; $Id: emu-xemacs.el,v 1.2 1997/03/08 23:26:56 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)