diff src/scrollbar.c @ 1287:5d97d6110cd9

[xemacs-hg @ 2003-02-11 08:56:57 by michaels] 2003-02-07 Mike Sperber <mike@xemacs.org> * scrollbar.c (specifier_vars_of_scrollbar): (specifier_vars_of_scrollbar): TTY devices don't have scrollbars.
author michaels
date Tue, 11 Feb 2003 08:56:59 +0000
parents e22b0213b713
children 064ef1d07d63
line wrap: on
line diff
--- a/src/scrollbar.c	Mon Feb 10 22:52:17 2003 +0000
+++ b/src/scrollbar.c	Tue Feb 11 08:56:59 2003 +0000
@@ -976,7 +976,8 @@
   Vscrollbar_width = make_magic_specifier (Qnatnum);
   set_specifier_fallback
     (Vscrollbar_width,
-     list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH))));
+     list2 (Fcons (list1 (Qtty), make_int (0)),
+	    Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH))));
   set_specifier_caching (Vscrollbar_width,
 			 offsetof (struct window, scrollbar_width),
 			 vertical_scrollbar_changed_in_window,
@@ -990,7 +991,8 @@
   Vscrollbar_height = make_magic_specifier (Qnatnum);
   set_specifier_fallback
     (Vscrollbar_height,
-     list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT))));
+     list2 (Fcons (list1 (Qtty), make_int (0)),
+	    Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT))));
   set_specifier_caching (Vscrollbar_height,
 			 offsetof (struct window, scrollbar_height),
 			 some_window_value_changed,