Mercurial > hg > xemacs-beta

comparison tests/glyph-test.el @ 4781:8a653fbe5c27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add copyright and GPL v2 or later notices to Andy Piper's contributions, with his permission. See: http://calypso.tux.org/pipermail/xemacs-beta/2009-December/018041.html
author Jerry James <james@xemacs.org>
date Fri, 18 Dec 2009 09:19:33 -0700
parents 0784d089fdc9
children 308d34e9f07d
comparison
equal deleted inserted replaced
4780:2fd201d73a92 4781:8a653fbe5c27
1 ;;; Copyright (C) 1998 Andy Piper
2
3 ;;; This file is part of XEmacs.
4
5 ;;; XEmacs is free software; you can redistribute it and/or modify it
6 ;;; under the terms of the GNU General Public License as published by
7 ;;; the Free Software Foundation; either version 2, or (at your
8 ;;; option) any later version.
9
10 ;;; XEmacs is distributed in the hope that it will be useful, but
11 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 ;;; General Public License for more details.
14
15 ;;; You should have received a copy of the GNU General Public License
16 ;;; along with XEmacs; see the file COPYING. If not, write to the Free
17 ;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18 ;;; Boston, MA 02110-1301, USA.
19
1 (set-extent-begin-glyph 20 (set-extent-begin-glyph
2 (make-extent (point) (point)) 21 (make-extent (point) (point))
3 (setq im (make-glyph [xbm :file "xemacsicon.xbm"]))) 22 (setq im (make-glyph [xbm :file "xemacsicon.xbm"])))
4 23
5 (set-extent-begin-glyph 24 (set-extent-begin-glyph