mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(frame-notice-user-settings): When making a minibufferless

Browse Source 
frame, don't copy `name' parm explicitly unless it was explicit before.
This commit is contained in:
Richard M. Stallman 1995-06-14 16:16:04 +00:00
parent cd494de497
commit 06d7dff28f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/frame.el
View File

@ -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.