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
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
0cc89026
Commit
0cc89026
authored
Jul 15, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** 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-
SCREENS t means include all windows in all screen
s;
otherwise cycle within the selected
screen
."
Optional third arg ALL-
FRAMES 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