aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1997-07-21 05:59:08 +0000
committerRichard M. Stallman1997-07-21 05:59:08 +0000
commit96a84970c34f09a091132ddbf4a184a3b079cf59 (patch)
treed72705b87ca6822bfc66a1f2b034098faf91433b /lisp
parent2124851f281f6c2569bc39d263dd5eb45c31f630 (diff)
downloademacs-96a84970c34f09a091132ddbf4a184a3b079cf59.tar.gz
emacs-96a84970c34f09a091132ddbf4a184a3b079cf59.zip
(frame-initialize): Don't alter vertical-scroll-bars
parameter here.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/frame.el8
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index f2face1788d..cd23db06c08 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -169,19 +169,13 @@ These supersede the values given in `default-frame-alist'."
169 (progn 169 (progn
170 (setq frame-initial-frame-alist 170 (setq frame-initial-frame-alist
171 (append initial-frame-alist default-frame-alist)) 171 (append initial-frame-alist default-frame-alist))
172 ;; Record these with their default values
173 ;; if they don't have any values explicitly.
174 (or (assq 'vertical-scroll-bars frame-initial-frame-alist)
175 (setq frame-initial-frame-alist
176 (cons '(vertical-scroll-bars . t)
177 frame-initial-frame-alist)))
178 (or (assq 'horizontal-scroll-bars frame-initial-frame-alist) 172 (or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
179 (setq frame-initial-frame-alist 173 (setq frame-initial-frame-alist
180 (cons '(horizontal-scroll-bars . t) 174 (cons '(horizontal-scroll-bars . t)
181 frame-initial-frame-alist))) 175 frame-initial-frame-alist)))
182 (setq default-minibuffer-frame 176 (setq default-minibuffer-frame
183 (setq frame-initial-frame 177 (setq frame-initial-frame
184 (make-frame initial-frame-alist))) 178 (make-frame frame-initial-frame-alist)))
185 ;; Delete any specifications for window geometry parameters 179 ;; Delete any specifications for window geometry parameters
186 ;; so that we won't reapply them in frame-notice-user-settings. 180 ;; so that we won't reapply them in frame-notice-user-settings.
187 ;; It would be wrong to reapply them then, 181 ;; It would be wrong to reapply them then,