From 442d3fd0482e0db752c3de199d370d95f7c209c2 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 28 Nov 2003 23:07:13 +0000 Subject: [PATCH] (Qcursor_type, Qbar, Qhbar): Declare extern. (syms_of_msdos): Don't intern and staticpro them. --- src/ChangeLog | 5 +++++ src/msdos.c | 12 ++---------- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index f29fe7403ef..dc5f96e1f3f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2003-11-29 Kim F. Storm + + * msdos.c (Qcursor_type, Qbar, Qhbar): Declare extern. + (syms_of_msdos): Don't intern and staticpro them. + 2003-11-27 Kim F. Storm * dispnew.c (buffer_posn_from_coords): Calculate and return pixel diff --git a/src/msdos.c b/src/msdos.c index b04b55c2260..a2fd011e74c 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -413,7 +413,8 @@ static unsigned short screen_virtual_offset = 0; /* A flag to control how to display unibyte 8-bit characters. */ extern int unibyte_display_via_language_environment; -Lisp_Object Qbar, Qhbar; +extern Lisp_Object Qcursor_type; +extern Lisp_Object Qbar, Qhbar; /* The screen colors of the current frame, which serve as the default colors for newly-created frames. */ @@ -1993,8 +1994,6 @@ IT_update_end (struct frame *f) FRAME_X_DISPLAY_INFO (f)->mouse_face_defer = 0; } -Lisp_Object Qcursor_type; - static void IT_frame_up_to_date (struct frame *f) { @@ -5267,18 +5266,11 @@ syms_of_msdos () #ifndef HAVE_X_WINDOWS /* The following two are from xfns.c: */ - Qbar = intern ("bar"); - staticpro (&Qbar); - Qhbar = intern ("hbar"); - staticpro (&Qhbar); - Qcursor_type = intern ("cursor-type"); - staticpro (&Qcursor_type); Qreverse = intern ("reverse"); staticpro (&Qreverse); DEFVAR_LISP ("dos-unsupported-char-glyph", &Vdos_unsupported_char_glyph, doc: /* *Glyph to display instead of chars not supported by current codepage. - This variable is used only by MSDOS terminals. */); Vdos_unsupported_char_glyph = '\177'; -- 2.39.2