Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c1e67401
Commit
c1e67401
authored
May 06, 1994
by
Richard M. Stallman
Browse files
(frame-notice-user-settings): Use geometry parms from frame
when the initial specifications did not have them.
parent
791e09d8
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
17 additions
and
11 deletions
+17
-11
lisp/frame.el
lisp/frame.el
+17
-11
No files found.
lisp/frame.el
View file @
c1e67401
...
...
@@ -187,17 +187,23 @@ These supersede the values given in `default-frame-alist'.")
default-frame-alist
(
frame-parameters
frame-initial-frame
)
nil
))
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(
new
(
make-frame
;; Use the geometry args that created the existing
;; frame, rather than the parms we get for it.q
(
append
frame-initial-geometry-arguments
(
let
(
frame-initial-geometry-arguments
)
(
frame-remove-geometry-params
(
cons
'
(
reverse
.
nil
)
(
delq
(
assq
'reverse
parms
)
parms
))))))))
new
)
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(
setq
parms
(
cons
'
(
reverse
)
(
delq
(
assq
'reverse
parms
)
parms
)))
(
if
(
assq
'height
frame-initial-geometry-arguments
)
(
setq
parms
(
delq
(
assq
'height
parms
)
parms
)))
(
if
(
assq
'width
frame-initial-geometry-arguments
)
(
setq
parms
(
delq
(
assq
'width
parms
)
parms
)))
(
if
(
assq
'left
frame-initial-geometry-arguments
)
(
setq
parms
(
delq
(
assq
'left
parms
)
parms
)))
(
if
(
assq
'top
frame-initial-geometry-arguments
)
(
setq
parms
(
delq
(
assq
'top
parms
)
parms
)))
(
setq
new
(
make-frame
;; Use the geometry args that created the existing
;; frame, rather than the parms we get for it.
(
append
frame-initial-geometry-arguments
parms
)))
;; The initial frame, which we are about to delete, may be
;; the only frame with a minibuffer. If it is, create a
;; new one.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment