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
746bd265
Commit
746bd265
authored
May 30, 1995
by
Karl Heuer
Browse files
(make-initial-minibuffer-frame): New function.
(frame-notice-user-settings): Call it.
parent
2526c290
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
lisp/frame.el
lisp/frame.el
+7
-2
No files found.
lisp/frame.el
View file @
746bd265
...
...
@@ -272,8 +272,7 @@ These supersede the values given in `default-frame-alist'.")
;; the only frame with a minibuffer. If it is, create a
;; new one.
(
or
(
delq
frame-initial-frame
(
minibuffer-frame-list
))
(
make-frame
(
append
minibuffer-frame-alist
'
((
minibuffer
.
only
)))))
(
make-initial-minibuffer-frame
nil
))
;; If the initial frame is serving as a surrogate
;; minibuffer frame for any frames, we need to wean them
...
...
@@ -364,6 +363,12 @@ These supersede the values given in `default-frame-alist'.")
;; Make sure frame-notice-user-settings does nothing if called twice.
(
setq
frame-initial-frame
nil
)))
(
defun
make-initial-minibuffer-frame
(
display
)
(
let
((
parms
(
append
minibuffer-frame-alist
'
((
minibuffer
.
only
)))))
(
if
display
(
make-frame-on-display
display
parms
)
(
make-frame
parms
))))
;; Delete from ALIST all elements whose car is KEY.
;; Return the modified alist.
(
defun
frame-delete-all
(
key
alist
)
...
...
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