Mercurial > hg > xemacs-beta
diff src/redisplay-msw.c @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | b2472a1930f2 |
children | 6330739388db |
line wrap: on
line diff
--- a/src/redisplay-msw.c Mon Aug 13 10:27:41 2007 +0200 +++ b/src/redisplay-msw.c Mon Aug 13 10:28:48 2007 +0200 @@ -26,7 +26,7 @@ Chuck Thompson Lots of work done by Ben Wing for Mule - Partially rewritten for mswindows by Jonathan Harris, November 1997 for 20.4. + Partially rewritten for mswindows by Jonathan Harris, November 1997 for 21.0. */ #include <config.h> @@ -427,7 +427,7 @@ { struct frame *f = XFRAME (w->frame); /* struct device *d = XDEVICE (f->device);*/ - Lisp_Object window = Qnil; + Lisp_Object window; HDC hdc = FRAME_MSWINDOWS_DC (f); int clip_end; Lisp_Object bg_pmap; @@ -554,7 +554,6 @@ int cursor_start, int cursor_width, int cursor_height) { struct frame *f = XFRAME (w->frame); - struct device *d = XDEVICE (f->device); HDC hdc = FRAME_MSWINDOWS_DC (f); struct Lisp_Image_Instance *p = XIMAGE_INSTANCE (image_instance); Lisp_Object window; @@ -659,41 +658,6 @@ clip_x, clip_y, clip_width, clip_height, pwidth, pheight, pixmap_offset); } - -#if 0 - /* Draw a cursor over top of the pixmap. */ - if (cursor_width && cursor_height && (cursor_start >= xpos) - && !NILP (w->text_cursor_visible_p) - && (cursor_start < xpos + pwidth)) - { - int focus = EQ (w->frame, DEVICE_FRAME_WITH_FOCUS_REAL (d)); - int y = dl->ypos - dl->ascent; - struct face_cachel *cursor_cachel = - WINDOW_FACE_CACHEL (w, - get_builtin_face_cache_index - (w, Vtext_cursor_face)); - - mswindows_update_dc(hdc, Qnil, cursor_cachel->background, Qnil, - Qnil); - - if (cursor_width > xpos + pwidth - cursor_start) - cursor_width = xpos + pwidth - cursor_start; - - if (focus) - { - RECT rect={cursor_start, y + cursor_height, - cursor_start + cursor_width, y}; - FrameRect(hdc, &rect, - COLOR_INSTANCE_MSWINDOWS_BRUSH - (XCOLOR_INSTANCE(cursor_cachel->background))); - } - else - { - Rectangle (hdc, cursor_start, y, cursor_width, - cursor_height); - } - } -#endif } #ifdef HAVE_SCROLLBARS