diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-14 16:16:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-14 16:16:04 +0000 |
| commit | 06d7dff28f565c8da149bf62720baf3f91355969 (patch) | |
| tree | 35c1dbd51106a9a18261cdfc9112ab1506c81434 /lisp/frame.el | |
| parent | cd494de4978c67d6ef37713ef6e26e482799df42 (diff) | |
| download | emacs-06d7dff28f565c8da149bf62720baf3f91355969.tar.gz | |
(frame-notice-user-settings): When making a minibufferless
frame, don't copy `name' parm explicitly unless it was explicit before.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index e1fb765a13b..1fba93e184f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -246,9 +246,13 @@ These supersede the values given in `default-frame-alist'.") (while (not (cdr (assq 'visibility (frame-parameters frame-initial-frame)))) (sleep-for 1)) + (setq parms (frame-parameters frame-initial-frame)) + ;; Get rid of `name' unless it was specified explicitly before. + (or (assq 'name frame-initial-frame-alist) + (setq parms (delq (assq 'name parms) parms))) (setq parms (append initial-frame-alist default-frame-alist - (frame-parameters frame-initial-frame) + parms nil)) ;; Get rid of `reverse', because that was handled ;; when we first made the frame. |