Mercurial > emacs

comparison lisp/frame.el @ 25087:85b842300684

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-initialize): When setting frame-initial-frame-alist, force copying of default-frame-alist.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Jul 1999 20:01:33 +0000
parents 2eca330f89d7
children 98d218afbb10
comparison
equal deleted inserted replaced
25086:799c44a895fe 25087:85b842300684
179 ;; it has a minibuffer, but let initial-frame-alist omit the 179 ;; it has a minibuffer, but let initial-frame-alist omit the
180 ;; minibuffer spec. 180 ;; minibuffer spec.
181 (or (delq terminal-frame (minibuffer-frame-list)) 181 (or (delq terminal-frame (minibuffer-frame-list))
182 (progn 182 (progn
183 (setq frame-initial-frame-alist 183 (setq frame-initial-frame-alist
184 (append initial-frame-alist default-frame-alist)) 184 (append initial-frame-alist default-frame-alist nil))
185 (or (assq 'horizontal-scroll-bars frame-initial-frame-alist) 185 (or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
186 (setq frame-initial-frame-alist 186 (setq frame-initial-frame-alist
187 (cons '(horizontal-scroll-bars . t) 187 (cons '(horizontal-scroll-bars . t)
188 frame-initial-frame-alist))) 188 frame-initial-frame-alist)))
189 (setq default-minibuffer-frame 189 (setq default-minibuffer-frame