Mercurial > hg > xemacs-beta

comparison lisp/glyphs.el @ 384:bbff43aa5eb7 r21-2-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 70ad99077275
children 501cfd01ee6d
comparison
equal deleted inserted replaced
383:6a50c6a581a5 384:bbff43aa5eb7
601 (define-obsolete-pointer-glyph 'x-gc-pointer-shape 'gc-pointer-glyph) 601 (define-obsolete-pointer-glyph 'x-gc-pointer-shape 'gc-pointer-glyph)
602 602
603 ;;; (defvar x-toolbar-pointer-shape nil) 603 ;;; (defvar x-toolbar-pointer-shape nil)
604 (define-obsolete-pointer-glyph 'x-toolbar-pointer-shape 'toolbar-pointer-glyph) 604 (define-obsolete-pointer-glyph 'x-toolbar-pointer-shape 'toolbar-pointer-glyph)
605 605
606 ;; for subwindows
607 (defalias 'subwindow-xid 'image-instance-subwindow-id)
608 (defalias 'subwindow-width 'image-instance-width)
609 (defalias 'subwindow-height 'image-instance-height)
606 ;;;;;;;;;; initialization 610 ;;;;;;;;;; initialization
607 611
608 (defun init-glyphs () 612 (defun init-glyphs ()
609 ;; initialize default image types 613 ;; initialize default image types
610 (if (featurep 'x) 614 (if (featurep 'x)