diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-23 09:19:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-23 09:19:28 +0000 |
| commit | a8bb588200d92f2719ef0cde3062f7778c53b24f (patch) | |
| tree | ee5aa0707b089e1d51d7a8883d076b862fe912ea | |
| parent | d953b88c3599ec6c66856f0749a5d5dac006d2f0 (diff) | |
| download | emacs-a8bb588200d92f2719ef0cde3062f7778c53b24f.tar.gz | |
(frame-initialize): Record in frame-initial-frame-alist
the actual settings of vertical-scroll-bars.
| -rw-r--r-- | lisp/frame.el | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |