mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Qcursor_type, Qbar, Qhbar): Declare extern.

Browse source 
(syms_of_msdos): Don't intern and staticpro them.
This commit is contained in:
Kim F. Storm 2003-11-28 23:07:13 +00:00
parent fdd4014469
commit 442d3fd048
2 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2003-11-29 Kim F. Storm <storm@cua.dk>
* msdos.c (Qcursor_type, Qbar, Qhbar): Declare extern.
(syms_of_msdos): Don't intern and staticpro them.
2003-11-27 Kim F. Storm <storm@cua.dk>
* dispnew.c (buffer_posn_from_coords): Calculate and return pixel

12
src/msdos.c
View file

@ -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';