changeset 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 c605ef77f290
children e2da7cf7aa74
files src/ChangeLog src/scrollbar.c
diffstat 2 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Mon Feb 10 22:52:17 2003 +0000
+++ b/src/ChangeLog	Tue Feb 11 08:56:59 2003 +0000
@@ -1,3 +1,8 @@
+2003-02-07  Mike Sperber  <mike@xemacs.org>
+
+	* scrollbar.c (specifier_vars_of_scrollbar): 
+	(specifier_vars_of_scrollbar): TTY devices don't have scrollbars.
+
 2003-01-28  Martin Buchholz  <martin@xemacs.org>
 
 	* config.h.in (_ALL_SOURCE): Guard against multiple definition.
--- 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,