X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fglyphs.el;h=08a791af5e3f3d13dd1d95f2f4c66c1d3ad5543f;hb=c8882e7279d916cbef14f074bdc366d2033165f7;hp=659400645edfb5e6cc6fb1e5b4909d504a638b9f;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/glyphs.el b/lisp/glyphs.el
index 6594006..08a791a 100644
--- a/lisp/glyphs.el
+++ b/lisp/glyphs.el
@@ -603,6 +603,10 @@ If unspecified in a particular domain, `nontext-pointer-glyph' is used.")
 ;;; (defvar x-toolbar-pointer-shape nil)
 (define-obsolete-pointer-glyph 'x-toolbar-pointer-shape 'toolbar-pointer-glyph)
 
+;; for subwindows
+(defalias 'subwindow-xid 'image-instance-subwindow-id)
+(defalias 'subwindow-width 'image-instance-width)
+(defalias 'subwindow-height 'image-instance-height)
 ;;;;;;;;;; initialization
 
 (defun init-glyphs ()