Mercurial > emacs

diff lisp/scroll-bar.el @ 83716:a73440d2f146 merge-multi-tty-to-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge multi-tty branch Revision: emacs@sv.gnu.org/emacs--devo--0--patch-866
author Miles Bader <miles@gnu.org>
date Wed, 29 Aug 2007 05:28:10 +0000
parents 65663fcd2caa
children 107ccd98fa12 14c4a6aac623
line wrap: on
line diff
--- a/lisp/scroll-bar.el	Wed Aug 29 01:14:48 2007 +0000
+++ b/lisp/scroll-bar.el	Wed Aug 29 05:28:10 2007 +0000
@@ -92,21 +92,8 @@
   (setq scroll-bar-mode value)
 
   (when scroll-bar-mode-explicit
-    ;; Apply it to default-frame-alist.
-    (let ((parameter (assq 'vertical-scroll-bars default-frame-alist)))
-      (if (consp parameter)
-	  (setcdr parameter scroll-bar-mode)
-	(setq default-frame-alist
-	      (cons (cons 'vertical-scroll-bars scroll-bar-mode)
-		    default-frame-alist))))
-
-    ;; Apply it to existing frames.
-    (let ((frames (frame-list)))
-      (while frames
-	(modify-frame-parameters
-	 (car frames)
-	 (list (cons 'vertical-scroll-bars scroll-bar-mode)))
-	(setq frames (cdr frames))))))
+    (modify-all-frames-parameters (list (cons 'vertical-scroll-bars
+					      scroll-bar-mode)))))
 
 (defcustom scroll-bar-mode default-frame-scroll-bars
   "*Specify whether to have vertical scroll bars, and on which side.