comparison src/xterm.c @ 34869:1d671133e618

(syms_of_xterm): DEFVAR_LISP x-toolkit-scroll-bars instead of x-toolkit-scroll-bars-p. (Vx_toolkit_scroll_bars): Renamed from x_toolkit_scroll_bars_p.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 27 Dec 2000 14:33:11 +0000
parents 77cda2c018e5
children bbd0e7b5043a
comparison
equal deleted inserted replaced
34868:f3c217d2fc2e 34869:1d671133e618
228 #endif 228 #endif
229 229
230 extern Lisp_Object Qhelp_echo; 230 extern Lisp_Object Qhelp_echo;
231 231
232 232
233 /* Non-zero means Emacs uses toolkit scroll bars. */ 233 /* Non-nil means Emacs uses toolkit scroll bars. */
234 234
235 int x_toolkit_scroll_bars_p; 235 Lisp_Object Vx_toolkit_scroll_bars;
236 236
237 /* If a string, XTread_socket generates an event to display that string. 237 /* If a string, XTread_socket generates an event to display that string.
238 (The display is done in read_char.) */ 238 (The display is done in read_char.) */
239 239
240 static Lisp_Object help_echo; 240 static Lisp_Object help_echo;
14004 "*Non-nil means draw block cursor as wide as the glyph under it.\n\ 14004 "*Non-nil means draw block cursor as wide as the glyph under it.\n\
14005 For example, if a block cursor is over a tab, it will be drawn as\n\ 14005 For example, if a block cursor is over a tab, it will be drawn as\n\
14006 wide as that tab on the display."); 14006 wide as that tab on the display.");
14007 x_stretch_cursor_p = 0; 14007 x_stretch_cursor_p = 0;
14008 14008
14009 DEFVAR_BOOL ("x-toolkit-scroll-bars-p", &x_toolkit_scroll_bars_p, 14009 DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
14010 "If not nil, Emacs uses toolkit scroll bars."); 14010 "What X toolkit scroll bars Emacs uses.\n\
14011 A value of nil means Emacs doesn't use X toolkit scroll bars.\n\
14012 Otherwise, value is a symbol describing the X toolkit.");
14011 #ifdef USE_TOOLKIT_SCROLL_BARS 14013 #ifdef USE_TOOLKIT_SCROLL_BARS
14012 x_toolkit_scroll_bars_p = 1; 14014 #ifdef USE_MOTIF
14015 Vx_toolkit_scroll_bars = intern ("motif");
14016 #elif defined HAVE_XAW3D
14017 Vx_toolkit_scroll_bars = intern ("xaw3d");
14013 #else 14018 #else
14014 x_toolkit_scroll_bars_p = 0; 14019 Vx_toolkit_scroll_bars = intern ("xaw");
14020 #endif
14021 #else
14022 Vx_toolkit_scroll_bars = Qnil;
14015 #endif 14023 #endif
14016 14024
14017 staticpro (&last_mouse_motion_frame); 14025 staticpro (&last_mouse_motion_frame);
14018 last_mouse_motion_frame = Qnil; 14026 last_mouse_motion_frame = Qnil;
14019 } 14027 }