Skip to content

GitLab

Commit 96a84970 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files
Options

(frame-initialize): Don't alter vertical-scroll-bars 

parameter here.
parent 2124851f
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 7 deletions
lisp/frame.el
View file @ 96a84970
......@@ -169,19 +169,13 @@ These supersede the values given in `default-frame-alist'."
(progn
(setq frame-initial-frame-alist
(append initial-frame-alist default-frame-alist))
;; Record these with their default values
;; if they don't have any values explicitly.
(or (assq 'vertical-scroll-bars frame-initial-frame-alist)
(setq frame-initial-frame-alist
(cons '(vertical-scroll-bars . t)
frame-initial-frame-alist)))
(or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
(setq frame-initial-frame-alist
(cons '(horizontal-scroll-bars . t)
frame-initial-frame-alist)))
(setq default-minibuffer-frame
(setq frame-initial-frame
(make-frame initial-frame-alist)))
(make-frame frame-initial-frame-alist)))
;; Delete any specifications for window geometry parameters
;; so that we won't reapply them in frame-notice-user-settings.
;; It would be wrong to reapply them then,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment