Mercurial > emacs
changeset 7660:d47966265080
(frame-initialize): Record in frame-initial-frame-alist
the actual settings of vertical-scroll-bars.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 May 1994 09:19:28 +0000 |
| parents | ed3bbbdd9ef5 |
| children | 96437d76c9db |
| files | lisp/frame.el |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Mon May 23 08:23:03 1994 +0000 +++ b/lisp/frame.el Mon May 23 09:19:28 1994 +0000 @@ -130,6 +130,16 @@ (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)))