comparison src/msdos.c @ 53187:7ba9466a0ed8

(Qcursor_type, Qbar, Qhbar): Declare extern. (syms_of_msdos): Don't intern and staticpro them.
author Kim F. Storm <storm@cua.dk>
date Fri, 28 Nov 2003 23:06:46 +0000
parents 695cf19ef79e
children 4250e7e26247 c33e4ac43939
comparison
equal deleted inserted replaced
53186:d6dc58f9beaa 53187:7ba9466a0ed8
411 static unsigned short screen_virtual_segment = 0; 411 static unsigned short screen_virtual_segment = 0;
412 static unsigned short screen_virtual_offset = 0; 412 static unsigned short screen_virtual_offset = 0;
413 /* A flag to control how to display unibyte 8-bit characters. */ 413 /* A flag to control how to display unibyte 8-bit characters. */
414 extern int unibyte_display_via_language_environment; 414 extern int unibyte_display_via_language_environment;
415 415
416 Lisp_Object Qbar, Qhbar; 416 extern Lisp_Object Qcursor_type;
417 extern Lisp_Object Qbar, Qhbar;
417 418
418 /* The screen colors of the current frame, which serve as the default 419 /* The screen colors of the current frame, which serve as the default
419 colors for newly-created frames. */ 420 colors for newly-created frames. */
420 static int initial_screen_colors[2]; 421 static int initial_screen_colors[2];
421 422
1990 static void 1991 static void
1991 IT_update_end (struct frame *f) 1992 IT_update_end (struct frame *f)
1992 { 1993 {
1993 FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0; 1994 FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0;
1994 } 1995 }
1995
1996 Lisp_Object Qcursor_type;
1997 1996
1998 static void 1997 static void
1999 IT_frame_up_to_date (struct frame *f) 1998 IT_frame_up_to_date (struct frame *f)
2000 { 1999 {
2001 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f); 2000 struct display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
5265 staticpro (&recent_doskeys); 5264 staticpro (&recent_doskeys);
5266 5265
5267 #ifndef HAVE_X_WINDOWS 5266 #ifndef HAVE_X_WINDOWS
5268 5267
5269 /* The following two are from xfns.c: */ 5268 /* The following two are from xfns.c: */
5270 Qbar = intern ("bar");
5271 staticpro (&Qbar);
5272 Qhbar = intern ("hbar");
5273 staticpro (&Qhbar);
5274 Qcursor_type = intern ("cursor-type");
5275 staticpro (&Qcursor_type);
5276 Qreverse = intern ("reverse"); 5269 Qreverse = intern ("reverse");
5277 staticpro (&Qreverse); 5270 staticpro (&Qreverse);
5278 5271
5279 DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph, 5272 DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph,
5280 doc: /* *Glyph to display instead of chars not supported by current codepage. 5273 doc: /* *Glyph to display instead of chars not supported by current codepage.
5281
5282 This variable is used only by MSDOS terminals. */); 5274 This variable is used only by MSDOS terminals. */);
5283 Vdos_unsupported_char_glyph = '\177'; 5275 Vdos_unsupported_char_glyph = '\177';
5284 5276
5285 #endif 5277 #endif
5286 #ifndef subprocesses 5278 #ifndef subprocesses