changeset 1954:059d99d03aae

* term/x-win.el (scroll-bar-mode, scroll-bar-mode): Move these functions to scrolbar.el. * scrollbar.el (scroll-bar-mode, scroll-bar-mode): Here they are. Make scroll-bar-mode set the {vertical,horizontal}-scrollbars parameters in default-frame-alist, and modify all extant screens using the correct parameter names.

--- a/lisp/scroll-bar.el	Wed Feb 24 23:37:46 1993 +0000
+++ b/lisp/scroll-bar.el	Thu Feb 25 00:38:55 1993 +0000
@@ -39,6 +39,36 @@
   (truncate (/ (* (float (car num-denom)) whole) (cdr num-denom))))
 
 
+;;;; Helpful functions for enabling and disabling scroll bars.
+(defvar scroll-bar-mode nil)
+
+(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))))
+  (mapcar
+   (function
+    (lambda (param-name)
+      (let ((parameter (assq param-name default-frame-alist)))
+	(if (consp parameter)
+	    (setcdr parameter scroll-bar-mode)
+	  (setq default-frame-alist
+		(cons (cons param-name scroll-bar-mode)
+		      default-frame-alist))))))
+   '(vertical-scrollbars horizontal-scrollbars))
+  (let ((frames (frame-list)))
+    (while frames
+      (modify-frame-parameters
+       (car frames)
+       (list (cons 'vertical-scrollbars scroll-bar-mode)
+	     (cons 'horizontal-scrollbars scroll-bar-mode)))
+      (setq frames (cdr frames)))))
+
 ;;;; Buffer navigation using the scrollbar.
 
 (defun scrollbar-set-window-start (event)

--- a/lisp/term/x-win.el	Wed Feb 24 23:37:46 1993 +0000
+++ b/lisp/term/x-win.el	Thu Feb 25 00:38:55 1993 +0000
@@ -415,25 +415,6 @@
 	   (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.