Mercurial > emacs
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 } |