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
0cc89026
Commit
0cc89026
authored
Jul 15, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
f98955ea
Changes
13
Hide whitespace changes
Inline
Side-by-side
Showing
13 changed files
with
46 additions
and
46 deletions
+46
-46
lisp/emulation/mlconvert.el
lisp/emulation/mlconvert.el
+2
-2
lisp/loadup.el
lisp/loadup.el
+2
-2
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+4
-4
lisp/register.el
lisp/register.el
+5
-5
lisp/startup.el
lisp/startup.el
+1
-1
lisp/subr.el
lisp/subr.el
+5
-5
lisp/term/sun-mouse.el
lisp/term/sun-mouse.el
+5
-5
lisp/term/sup-mouse.el
lisp/term/sup-mouse.el
+3
-3
lisp/term/vt100.el
lisp/term/vt100.el
+2
-2
lisp/term/vt200.el
lisp/term/vt200.el
+2
-2
lisp/term/wyse50.el
lisp/term/wyse50.el
+4
-4
lisp/term/x-win.el
lisp/term/x-win.el
+10
-10
lisp/window.el
lisp/window.el
+1
-1
No files found.
lisp/emulation/mlconvert.el
View file @
0cc89026
...
...
@@ -248,8 +248,8 @@
(
ml-expansion
'file-modified-time
"you-lose-on-file-modified-time"
)
(
ml-expansion
'needs-checkpointing
"you-lose-on-needs-checkpointing"
)
(
ml-expansion
'lines-on-screen
"set-
screen
-height"
)
(
ml-expansion
'columns-on-screen
"set-
screen
-width"
)
(
ml-expansion
'lines-on-screen
"set-
frame
-height"
)
(
ml-expansion
'columns-on-screen
"set-
frame
-width"
)
(
ml-expansion
'dumped-emacs
"t"
)
...
...
lisp/loadup.el
View file @
0cc89026
...
...
@@ -40,8 +40,8 @@
(
garbage-collect
)
(
load
"window"
)
(
garbage-collect
)
(
if
(
fboundp
'delete-
screen
)
(
load
"
screen
"
))
(
if
(
fboundp
'delete-
frame
)
(
load
"
frame
"
))
(
garbage-collect
)
(
load
"paths.el"
)
;Don't get confused if someone compiled paths by mistake.
(
garbage-collect
)
...
...
lisp/mail/sendmail.el
View file @
0cc89026
...
...
@@ -647,10 +647,10 @@ The seventh argument ACTIONS is a list of actions to take
(
mail
noerase
to
subject
in-reply-to
cc
replybuffer
sendactions
))
;;;###autoload
(
defun
mail-other-
screen
(
&optional
noerase
to
subject
in-reply-to
cc
replybuffer
sendactions
)
"Like `mail' command, but display mail buffer in another
screen
."
(
defun
mail-other-
frame
(
&optional
noerase
to
subject
in-reply-to
cc
replybuffer
sendactions
)
"Like `mail' command, but display mail buffer in another
frame
."
(
interactive
"P"
)
(
let
((
pop-up-
screen
s
t
))
(
let
((
pop-up-
frame
s
t
))
(
pop-to-buffer
"*mail*"
))
(
mail
noerase
to
subject
in-reply-to
cc
replybuffer
sendactions
))
...
...
@@ -659,7 +659,7 @@ The seventh argument ACTIONS is a list of actions to take
(
define-key
ctl-x-4-map
"m"
'mail-other-window
)
;;;###autoload
(
define-key
ctl-x-5-map
"m"
'mail-other-
screen
)
(
define-key
ctl-x-5-map
"m"
'mail-other-
frame
)
;;; Do not add anything but external entries on this page.
...
...
lisp/register.el
View file @
0cc89026
...
...
@@ -22,7 +22,7 @@
(
defvar
register-alist
nil
"Alist of elements (NAME . CONTENTS), one for each Emacs register.
NAME is a character (a number). CONTENTS is a string, number,
screen
configuration, mark or list.
frame
configuration, mark or list.
A list represents a rectangle; its elements are strings."
)
(
defun
get-register
(
char
)
...
...
@@ -40,11 +40,11 @@ A list represents a rectangle; its elements are strings.")
(
defun
point-to-register
(
char
arg
)
"Store current location of point in register REGISTER.
With prefix argument, store current
screen
configuration.
With prefix argument, store current
frame
configuration.
Use \\[jump-to-register] to go to that location or restore that configuration.
Argument is a character, naming the register."
(
interactive
"cPoint to register: \nP"
)
(
set-register
char
(
if
arg
(
current-
screen
-configuration
)
(
point-marker
))))
(
set-register
char
(
if
arg
(
current-
frame
-configuration
)
(
point-marker
))))
(
fset
'register-to-point
'jump-to-register
)
(
defun
jump-to-register
(
char
)
...
...
@@ -53,13 +53,13 @@ Argument is a character, naming the register."
(
interactive
"cJump to register: "
)
(
let
((
val
(
get-register
char
)))
(
condition-case
()
(
set-
screen
-configuration
val
)
(
set-
frame
-configuration
val
)
(
error
(
if
(
markerp
val
)
(
progn
(
switch-to-buffer
(
marker-buffer
val
))
(
goto-char
val
))
(
error
"Register doesn't contain a buffer position or
screen
configuration"
))))))
(
error
"Register doesn't contain a buffer position or
frame
configuration"
))))))
;(defun number-to-register (arg char)
; "Store a number in a register.
...
...
lisp/startup.el
View file @
0cc89026
...
...
@@ -76,7 +76,7 @@ altering command-line-args-left to remove them.")
(
defvar
before-init-hook
nil
"Functions to call after handling urgent options but before loading init file.
The
screen
system uses this to open
screen
s to display messages while
The
frame
system uses this to open
frame
s to display messages while
Emacs loads the user's initialization file."
)
(
defvar
after-init-hook
nil
...
...
lisp/subr.el
View file @
0cc89026
...
...
@@ -28,19 +28,19 @@ even if it is active."
(
eq
base-window
(
next-window
base-window
(
if
nomini
'arg
)))))
(
defun
walk-windows
(
proc
&optional
minibuf
all-
screen
s
)
(
defun
walk-windows
(
proc
&optional
minibuf
all-
frame
s
)
"Cycle through all visible windows, calling PROC for each one.
PROC is called with a window as argument.
Optional second arg MINIBUF t means count the minibuffer window
even if not active. If MINIBUF is neither t nor nil it means
not to count the minibuffer even if it is active.
Optional third arg ALL-
SCREEN
S t means include all windows in all
screen
s;
otherwise cycle within the selected
screen
."
Optional third arg ALL-
FRAME
S t means include all windows in all
frame
s;
otherwise cycle within the selected
frame
."
(
let*
((
walk-windows-start
(
selected-window
))
(
walk-windows-current
walk-windows-start
))
(
while
(
progn
(
setq
walk-windows-current
(
next-window
walk-windows-current
minibuf
all-
screen
s
))
(
next-window
walk-windows-current
minibuf
all-
frame
s
))
(
funcall
proc
walk-windows-current
)
(
not
(
eq
walk-windows-current
walk-windows-start
))))))
...
...
@@ -205,7 +205,7 @@ The normal global definition of the character C-x indirects to this keymap.")
(
define-key
ctl-x-map
"4"
'ctl-x-4-prefix
)
(
defvar
ctl-x-5-map
(
make-sparse-keymap
)
"Keymap for
screen
commands."
)
"Keymap for
frame
commands."
)
(
fset
'ctl-x-5-prefix
ctl-x-5-map
)
(
define-key
ctl-x-map
"5"
'ctl-x-5-prefix
)
...
...
lisp/term/sun-mouse.el
View file @
0cc89026
...
...
@@ -218,7 +218,7 @@ Handles wrapped and horizontally scrolled lines correctly."
(
defun
minibuffer-window-p
(
window
)
"True iff this WINDOW is minibuffer."
(
=
(
screen
-height
)
(
=
(
frame
-height
)
(
nth
3
(
window-edges
window
))
; The bottom edge.
))
...
...
@@ -336,11 +336,11 @@ Returns list (window x y) where x and y are relative to window."
(
te
(
nth
1
we
))
(
re
(
nth
2
we
))
(
be
(
nth
3
we
)))
(
if
(
=
re
(
screen
-width
))
(
if
(
=
re
(
frame
-width
))
;; include the continuation column with this window
(
setq
re
(
1+
re
)))
(
if
(
=
be
(
screen
-height
))
;; include partial line at bottom of
screen
with this window
(
if
(
=
be
(
frame
-height
))
;; include partial line at bottom of
frame
with this window
;; id est, if window is not multple of char size.
(
setq
be
(
1+
be
)))
...
...
@@ -375,7 +375,7 @@ Returns one of (text scrollbar modeline minibuffer)"
(
defun
window-line-end
(
w
x
y
)
"Return WINDOW column (ignore X) containing end of line Y"
(
eval-in-window
w
(
save-excursion
(
move-to-loc
(
screen
-width
)
y
))))
(
eval-in-window
w
(
save-excursion
(
move-to-loc
(
frame
-width
)
y
))))
;;;
;;; The encoding of mouse events into a mousemap.
...
...
lisp/term/sup-mouse.el
View file @
0cc89026
...
...
@@ -75,7 +75,7 @@ on modeline on \"scroll bar\" in minibuffer
(
window
(
sup-pos-to-window
x
y
))
(
edges
(
window-edges
window
))
(
old-window
(
selected-window
))
(
in-minibuf-p
(
eq
y
(
1-
(
screen
-height
))))
(
in-minibuf-p
(
eq
y
(
1-
(
frame
-height
))))
(
same-window-p
(
and
(
not
in-minibuf-p
)
(
eq
window
old-window
)))
(
in-modeline-p
(
eq
y
(
1-
(
nth
3
edges
))))
(
in-scrollbar-p
(
>=
x
(
1-
(
nth
2
edges
)))))
...
...
@@ -190,8 +190,8 @@ X and Y are 0-based character positions in the window."
)
(
defun
sup-pos-to-window
(
x
y
)
"Find window corresponding to
screen
coordinates.
X and Y are 0-based character positions on the
screen
."
"Find window corresponding to
frame
coordinates.
X and Y are 0-based character positions on the
frame
."
(
let
((
edges
(
window-edges
))
(
window
nil
))
(
while
(
and
(
not
(
eq
window
(
selected-window
)))
...
...
lisp/term/vt100.el
View file @
0cc89026
...
...
@@ -49,7 +49,7 @@ but only if you give this command."
;;; Controlling the screen width.
(
defconst
vt100-wide-mode
(
=
(
screen
-width
)
132
)
(
defconst
vt100-wide-mode
(
=
(
frame
-width
)
132
)
"t if vt100 is in 132-column mode."
)
(
defun
vt100-wide-mode
(
&optional
arg
)
...
...
@@ -59,4 +59,4 @@ but only if you give this command."
(
if
(
null
arg
)
(
not
vt100-wide-mode
)
(
>
(
prefix-numeric-value
arg
)
0
)))
(
send-string-to-terminal
(
if
vt100-wide-mode
"\e[?3h"
"\e[?3l"
))
(
set-
screen
-width
(
if
vt100-wide-mode
132
80
)))
(
set-
frame
-width
(
if
vt100-wide-mode
132
80
)))
lisp/term/vt200.el
View file @
0cc89026
(
defun
terminal-80-columns
()
(
interactive
)
(
send-string-to-terminal
"\033[?3l"
)
(
set-
screen
-width
80
))
(
set-
frame
-width
80
))
(
defun
terminal-132-columns
()
(
interactive
)
(
send-string-to-terminal
"\033[?3h"
)
(
set-
screen
-width
132
))
(
set-
frame
-width
132
))
lisp/term/wyse50.el
View file @
0cc89026
...
...
@@ -48,12 +48,12 @@ With an argument N, move to the Nth line from the bottom of the window."
(
defun
wyse-50-toggle-screen-width
()
"Alternate between 80 and 132 columns."
(
interactive
)
(
if
(
<=
(
screen
-width
)
80
)
(
if
(
<=
(
frame
-width
)
80
)
(
progn
(
send-string-to-terminal
"\e`;"
)
(
set-
screen
-width
131
))
(
set-
frame
-width
131
))
(
send-string-to-terminal
"\e`:"
)
(
set-
screen
-width
79
)))
(
set-
frame
-width
79
)))
;;; Define the escape sequences for the function keys.
...
...
@@ -162,7 +162,7 @@ With an argument N, move to the Nth line from the bottom of the window."
(
setq
kill-emacs-hook
(
function
(
lambda
()
(
interactive
)
(
send-string-to-terminal
(
concat
"\ea23R"
(
1+
(
screen
-width
))
"C\eG0"
)))))
(
concat
"\ea23R"
(
1+
(
frame
-width
))
"C\eG0"
)))))
(
defun
enable-arrow-keys
()
"To be called by term-setup-hook. Overrides 6 Emacs standard keys
...
...
lisp/term/x-win.el
View file @
0cc89026
...
...
@@ -61,7 +61,7 @@
(
if
(
not
(
eq
window-system
'x
))
(
error
"Loading x-win.el but not compiled for X"
))
(
require
'
screen
)
(
require
'
frame
)
(
require
'mouse
)
(
setq
command-switch-alist
...
...
@@ -118,34 +118,34 @@
(
let
((
aelt
(
assoc
switch
x-switch-definitions
)))
(
if
aelt
(
if
(
nth
2
aelt
)
(
setq
default-
screen
-alist
(
setq
default-
frame
-alist
(
cons
(
cons
(
nth
1
aelt
)
(
nth
2
aelt
))
default-
screen
-alist
))
(
setq
default-
screen
-alist
default-
frame
-alist
))
(
setq
default-
frame
-alist
(
cons
(
cons
(
nth
1
aelt
)
(
car
x-invocation-args
))
default-
screen
-alist
)
default-
frame
-alist
)
x-invocation-args
(
cdr
x-invocation-args
))))))
;; Handler for switches of the form "-switch n"
(
defun
x-handle-numeric-switch
(
switch
)
(
let
((
aelt
(
assoc
switch
x-switch-definitions
)))
(
if
aelt
(
setq
default-
screen
-alist
(
setq
default-
frame
-alist
(
cons
(
cons
(
nth
1
aelt
)
(
string-to-int
(
car
x-invocation-args
)))
default-
screen
-alist
)
default-
frame
-alist
)
x-invocation-args
(
cdr
x-invocation-args
)))))
;; Handle the geometry option
(
defun
x-handle-geometry
(
switch
)
(
setq
initial-
screen
-alist
(
append
initial-
screen
-alist
(
setq
initial-
frame
-alist
(
append
initial-
frame
-alist
(
x-geometry
(
car
x-invocation-args
)))
x-invocation-args
(
cdr
x-invocation-args
)))
(
defvar
x-display-name
nil
"The X display name specifying server and X
screen
."
)
"The X display name specifying server and X
frame
."
)
(
defun
x-handle-display
(
switch
)
(
setq
x-display-name
(
car
x-invocation-args
)
...
...
@@ -442,7 +442,7 @@ This returns ARGS with the arguments that have been processed removed."
;;; the display.
(
set-input-mode
t
nil
t
)
(
setq
screen
-creation-function
'x-create-
screen
)
(
setq
frame
-creation-function
'x-create-
frame
)
(
setq
suspend-hook
'
(
lambda
()
(
error
"Suspending an emacs running under X makes no sense"
)))
...
...
lisp/window.el
View file @
0cc89026
...
...
@@ -40,7 +40,7 @@ even if it is active."
(
walk-windows
(
function
(
lambda
(
w
)
(
setq
count
(
+
count
1
))))
'nomini
)
(
let
((
size
(
/
(
screen
-height
)
count
)))
(
let
((
size
(
/
(
frame
-height
)
count
)))
(
walk-windows
(
function
(
lambda
(
w
)
(
select-window
w
)
(
enlarge-window
(
-
size
(
window-height
)))))
...
...
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