From a8bb588200d92f2719ef0cde3062f7778c53b24f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 23 May 1994 09:19:28 +0000 Subject: [PATCH] (frame-initialize): Record in frame-initial-frame-alist the actual settings of vertical-scroll-bars. --- lisp/frame.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/frame.el b/lisp/frame.el index 4d4a226d218..554eebaf7fa 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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))) -- 2.39.5