# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 716260858 0
# Node ID 178215fd8a2024455071c76823314d43aa8cdd4d
# Parent  79f020f346839f3e0984481e2874d8b5f429386e
*** empty log message ***

diff -r 79f020f34683 -r 178215fd8a20 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Fri Sep 11 23:34:08 1992 +0000
+++ b/lisp/term/x-win.el	Sat Sep 12 01:20:58 1992 +0000
@@ -415,6 +415,25 @@
 	   (setq defined-colors (cons this-color defined-colors))))
     defined-colors))
 
+(defvar scroll-bar-mode nil)
+
+;;; ??? x-create-screen needs to be changed to use scroll-bar-mode
+;;; to decide (by default) whether to make a scroll bar.
+(defun scroll-bar-mode (flag)
+  "Toggle display of vertical scroll bars on each frame.
+This command applies to all frames that exist and frames to be
+created in the future.
+With a numeric argument, if the argument is negative,
+turn off scroll bars; otherwise, turn on scroll bars."
+  (interactive "P")
+  (setq scroll-bar-mode (if (null flag) (not scroll-bar-mode)
+			  (or (not (numberp flag)) (>= flag 0))))
+  (let ((frames (frame-list)))
+    (while frames
+      (modify-frame-parameters (car frames)
+			       (list (cons 'vertical-scrollbar scroll-bar-mode)))
+      (setq frames (cdr frames)))))
+
 ;;;; Function keys
 
 ;;; Give some common function keys reasonable definitions.