Skip to content

GitLab

Commit a8bb5882 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(frame-initialize): Record in frame-initial-frame-alist 

the actual settings of vertical-scroll-bars.
parent d953b88c
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 0 deletions
lisp/frame.el
View file @ a8bb5882
......@@ -130,6 +130,16 @@ 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)))
......
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