diff options
| author | Richard M. Stallman | 1994-05-23 09:19:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-23 09:19:28 +0000 |
| commit | a8bb588200d92f2719ef0cde3062f7778c53b24f (patch) | |
| tree | ee5aa0707b089e1d51d7a8883d076b862fe912ea | |
| parent | d953b88c3599ec6c66856f0749a5d5dac006d2f0 (diff) | |
| download | emacs-a8bb588200d92f2719ef0cde3062f7778c53b24f.tar.gz emacs-a8bb588200d92f2719ef0cde3062f7778c53b24f.zip | |
(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'.") | |||
| 130 | (progn | 130 | (progn |
| 131 | (setq frame-initial-frame-alist | 131 | (setq frame-initial-frame-alist |
| 132 | (append initial-frame-alist default-frame-alist)) | 132 | (append initial-frame-alist default-frame-alist)) |
| 133 | ;; Record these with their default values | ||
| 134 | ;; if they don't have any values explicitly. | ||
| 135 | (or (assq 'vertical-scroll-bars frame-initial-frame-alist) | ||
| 136 | (setq frame-initial-frame-alist | ||
| 137 | (cons '(vertical-scroll-bars . t) | ||
| 138 | frame-initial-frame-alist))) | ||
| 139 | (or (assq 'horizontal-scroll-bars frame-initial-frame-alist) | ||
| 140 | (setq frame-initial-frame-alist | ||
| 141 | (cons '(horizontal-scroll-bars . t) | ||
| 142 | frame-initial-frame-alist))) | ||
| 133 | (setq default-minibuffer-frame | 143 | (setq default-minibuffer-frame |
| 134 | (setq frame-initial-frame | 144 | (setq frame-initial-frame |
| 135 | (make-frame initial-frame-alist))) | 145 | (make-frame initial-frame-alist))) |