mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the actual settings of vertical-scroll-bars.
This commit is contained in:
Richard M. Stallman 1994-05-23 09:19:28 +00:00
parent d953b88c35
commit a8bb588200
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/frame.el
View file

@ -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)))