Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 0d2f883870bc
children cca96a509cfe
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
463 (defun pointer-image-instance-p (object) 463 (defun pointer-image-instance-p (object)
464 "t if OBJECT is an image instance of type `pointer'." 464 "t if OBJECT is an image instance of type `pointer'."
465 (and (image-instance-p object) (eq 'pointer (image-instance-type object)))) 465 (and (image-instance-p object) (eq 'pointer (image-instance-type object))))
466 466
467 (defun subwindow-image-instance-p (object) 467 (defun subwindow-image-instance-p (object)
468 "t if OBJECT is an image instance of type `subwindow'." 468 "t if OBJECT is an image instance of type `subwindow'.
469 Subwindows are not implemented in this version of XEmacs."
469 (and (image-instance-p object) (eq 'subwindow (image-instance-type object)))) 470 (and (image-instance-p object) (eq 'subwindow (image-instance-type object))))
470 471
471 ;;;;;;;;;; the built-in glyphs 472 ;;;;;;;;;; the built-in glyphs
472 473
473 (defvar text-pointer-glyph (make-pointer-glyph) 474 (defvar text-pointer-glyph (make-pointer-glyph)