Mercurial > hg > xemacs-beta

comparison lisp/prim/glyphs.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 8fc7fe29b841
children 2e6f5e180fb8
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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)