Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
06b1a5ef
Commit
06b1a5ef
authored
Jul 10, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
79058860
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
38 additions
and
6 deletions
+38
-6
lisp/buff-menu.el
lisp/buff-menu.el
+1
-1
lisp/frame.el
lisp/frame.el
+33
-1
src/frame.c
src/frame.c
+4
-2
src/xterm.c
src/xterm.c
+0
-2
No files found.
lisp/buff-menu.el
View file @
06b1a5ef
...
...
@@ -102,7 +102,7 @@ Letters do not insert themselves; instead, they are commands.
(
error
"No buffer named \"%s\""
string
)
nil
)))))
(
defun
buffer-menu
(
arg
)
(
defun
buffer-menu
(
&optional
arg
)
"Make a menu of buffers so you can save, delete or select them.
With argument, show only buffers that are visiting files.
Type ? after invocation to get help on commands available.
...
...
lisp/frame.el
View file @
06b1a5ef
...
...
@@ -201,7 +201,39 @@ under the X Window System."
(
let
((
screen
(
selected-screen
)))
(
if
(
eq
(
screen-visible-p
screen
)
t
)
(
iconify-screen
screen
)
(
deiconify-screen
screen
))))
(
make-screen-visible
screen
))))
;;;; Screen configurations
(
defun
current-screen-configuration
()
"Return a list describing the positions and states of all screens.
Each element is a list of the form (SCREEN ALIST WINDOW-CONFIG), where
SCREEN is a screen object, ALIST is an association list specifying
some of SCREEN's parameters, and WINDOW-CONFIG is a window
configuration object for SCREEN."
(
mapcar
(
function
(
lambda
(
screen
)
(
list
screen
(
screen-parameters
screen
)
(
current-window-configuration
screen
))))
(
screen-list
)))
(
defun
set-screen-configuration
(
configuration
)
"Restore the screens to the state described by CONFIGURATION.
Each screen listed in CONFIGURATION has its position, size, window
configuration, and other parameters set as specified in CONFIGURATION."
(
let
(
screens-to-delete
)
(
mapcar
(
function
(
lambda
(
screen
)
(
let
((
parameters
(
assq
screen
configuration
)))
(
if
parameters
(
progn
(
modify-screen-parameters
screen
(
nth
1
parameters
))
(
set-window-configuration
(
nth
2
parameters
)))
(
setq
screens-to-delete
(
cons
screen
screens-to-delete
))))))
(
screen-list
))
(
mapcar
'delete-screen
screens-to-delete
)))
;;;; Convenience functions for dynamically changing screen parameters
...
...
src/frame.c
View file @
06b1a5ef
...
...
@@ -641,7 +641,9 @@ WARNING: If you use this under X, you should do `unfocus-screen' afterwards.")
#if 0
/* ??? Can this be replaced with a Lisp function?
It is used in minibuf.c. Can we get rid of that? */
It is used in minibuf.c. Can we get rid of that?
Yes. All uses in minibuf.c are gone, and parallels to these
functions have been defined in screen.el. */
DEFUN ("screen-configuration", Fscreen_configuration, Sscreen_configuration,
0, 0, 0,
...
...
@@ -872,7 +874,7 @@ store_screen_param (s, prop, val)
error
(
"Surrogate minibuffer windows must be minibuffer windows."
);
if
(
SCREEN_HAS_MINIBUF
(
s
)
||
SCREEN_MINIBUF_ONLY_P
(
s
))
error
(
"Can't change surrogate minibuffer o
n
screen
s
with
their
own minibuffer
s
."
);
error
(
"Can't change
the
surrogate minibuffer o
f a
screen with
its
own minibuffer."
);
/* Install the chosen minibuffer window, with proper buffer. */
s
->
minibuffer_window
=
val
;
...
...
src/xterm.c
View file @
06b1a5ef
...
...
@@ -3374,10 +3374,8 @@ x_make_screen_visible (s)
if
(
!
SCREEN_VISIBLE_P
(
s
))
{
#ifdef HAVE_X11
#if 0
if
(
!
EQ
(
Vx_no_window_manager
,
Qt
))
x_wm_set_window_state
(
s
,
NormalState
);
#endif
XMapWindow
(
XDISPLAY
s
->
display
.
x
->
window_desc
);
if
(
s
->
display
.
x
->
v_scrollbar
!=
0
||
s
->
display
.
x
->
h_scrollbar
!=
0
)
...
...
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