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
1b8cac5d
Commit
1b8cac5d
authored
Sep 08, 1995
by
Richard M. Stallman
Browse files
Rename all register-name args to `register'.
parent
6ef5c4bd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
47 additions
and
43 deletions
+47
-43
lisp/register.el
lisp/register.el
+47
-43
No files found.
lisp/register.el
View file @
1b8cac5d
...
...
@@ -37,44 +37,45 @@ frame configuration, mark or list.
A list of strings represents a rectangle.
A list of the form (file . NAME) represents the file named NAME."
)
(
defun
get-register
(
char
)
"Return contents of Emacs register named
CHAR
, or nil if none."
(
cdr
(
assq
char
register-alist
)))
(
defun
get-register
(
reg
)
"Return contents of Emacs register named
REG
, or nil if none."
(
cdr
(
assq
reg
register-alist
)))
(
defun
set-register
(
cha
r
value
)
"Set contents of Emacs register named
CHA
R to VALUE. Returns VALUE.
(
defun
set-register
(
registe
r
value
)
"Set contents of Emacs register named
REGISTE
R to VALUE. Returns VALUE.
See the documentation of the variable `register-alist' for possible VALUE."
(
let
((
aelt
(
assq
cha
r
register-alist
)))
(
let
((
aelt
(
assq
registe
r
register-alist
)))
(
if
aelt
(
setcdr
aelt
value
)
(
setq
aelt
(
cons
cha
r
value
))
(
setq
aelt
(
cons
registe
r
value
))
(
setq
register-alist
(
cons
aelt
register-alist
)))
value
))
(
defun
point-to-register
(
cha
r
&optional
arg
)
(
defun
point-to-register
(
registe
r
&optional
arg
)
"Store current location of point in register REGISTER.
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-frame-configuration
)
(
point-marker
))))
(
set-register
register
(
if
arg
(
current-frame-configuration
)
(
point-marker
))))
(
defun
window-configuration-to-register
(
cha
r
&optional
arg
)
(
defun
window-configuration-to-register
(
registe
r
&optional
arg
)
"Store the window configuration of the selected frame in register REGISTER.
Use \\[jump-to-register] to restore the configuration.
Argument is a character, naming the register."
(
interactive
"cWindow configuration to register: \nP"
)
(
set-register
cha
r
(
current-window-configuration
)))
(
set-register
registe
r
(
current-window-configuration
)))
(
defun
frame-configuration-to-register
(
cha
r
&optional
arg
)
(
defun
frame-configuration-to-register
(
registe
r
&optional
arg
)
"Store the window configuration of all frames in register REGISTER.
Use \\[jump-to-register] to restore the configuration.
Argument is a character, naming the register."
(
interactive
"cFrame configuration to register: \nP"
)
(
set-register
cha
r
(
current-frame-configuration
)))
(
set-register
registe
r
(
current-frame-configuration
)))
(
defalias
'register-to-point
'jump-to-register
)
(
defun
jump-to-register
(
cha
r
&optional
delete
)
(
defun
jump-to-register
(
registe
r
&optional
delete
)
"Move point to location stored in a register.
If the register contains a file name, find that file.
\(To put a file name in a register, you must use `set-register'.)
...
...
@@ -85,7 +86,7 @@ Optional second arg non-nil (interactively, prefix argument) says to
delete any existing frames that the frame configuration doesn't mention.
\(Otherwise, these frames are iconified.)"
(
interactive
"cJump to register: \nP"
)
(
let
((
val
(
get-register
cha
r
)))
(
let
((
val
(
get-register
registe
r
)))
(
cond
((
and
(
fboundp
'frame-configuration-p
)
(
frame-configuration-p
val
))
...
...
@@ -130,16 +131,16 @@ delete any existing frames that the frame configuration doesn't mention.
; (error "Register does not contain a number"))
; (set-register char (+ arg (get-register char))))
(
defun
view-register
(
cha
r
)
(
defun
view-register
(
registe
r
)
"Display what is contained in register named REGISTER.
REGISTER is a character."
The Lisp value
REGISTER is a character."
(
interactive
"cView register: "
)
(
let
((
val
(
get-register
cha
r
)))
(
let
((
val
(
get-register
registe
r
)))
(
if
(
null
val
)
(
message
"Register %s is empty"
(
single-key-description
cha
r
))
(
message
"Register %s is empty"
(
single-key-description
registe
r
))
(
with-output-to-temp-buffer
"*Output*"
(
princ
"Register "
)
(
princ
(
single-key-description
cha
r
))
(
princ
(
single-key-description
registe
r
))
(
princ
" contains "
)
(
cond
((
integerp
val
)
...
...
@@ -180,14 +181,14 @@ REGISTER is a character."
(
princ
"Garbage:\n"
)
(
prin1
val
)))))))
(
defun
insert-register
(
cha
r
&optional
arg
)
"Insert contents of register REG. REG is a character.
(
defun
insert-register
(
registe
r
&optional
arg
)
"Insert contents of register REG
ISTER
.
(
REG
ISTER
is a character.
)
Normally puts point before and mark after the inserted text.
If optional second arg is non-nil, puts mark before and point after.
Interactively, second arg is non-nil if prefix arg is supplied."
(
interactive
"*cInsert register: \nP"
)
(
push-mark
)
(
let
((
val
(
get-register
cha
r
)))
(
let
((
val
(
get-register
registe
r
)))
(
cond
((
consp
val
)
(
insert-rectangle
val
))
...
...
@@ -201,42 +202,45 @@ Interactively, second arg is non-nil if prefix arg is supplied."
(
error
"Register does not contain text"
))))
(
if
(
not
arg
)
(
exchange-point-and-mark
)))
(
defun
copy-to-register
(
cha
r
start
end
&optional
delete-flag
)
"Copy region into register REG. With prefix arg, delete as well.
Called from program, takes four args: REG, START, END and DELETE-FLAG.
(
defun
copy-to-register
(
registe
r
start
end
&optional
delete-flag
)
"Copy region into register REG
ISTER
. With prefix arg, delete as well.
Called from program, takes four args: REG
ISTER
, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to copy."
(
interactive
"cCopy to register: \nr\nP"
)
(
set-register
cha
r
(
buffer-substring
start
end
))
(
set-register
registe
r
(
buffer-substring
start
end
))
(
if
delete-flag
(
delete-region
start
end
)))
(
defun
append-to-register
(
char
start
end
&optional
delete-flag
)
"Append region to text in register REG. With prefix arg, delete as well.
Called from program, takes four args: REG, START, END and DELETE-FLAG.
(
defun
append-to-register
(
register
start
end
&optional
delete-flag
)
"Append region to text in register REGISTER.
With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to append."
(
interactive
"cAppend to register: \nr\nP"
)
(
or
(
stringp
(
get-register
cha
r
))
(
or
(
stringp
(
get-register
registe
r
))
(
error
"Register does not contain text"
))
(
set-register
cha
r
(
concat
(
get-register
cha
r
)
(
buffer-substring
start
end
)))
(
set-register
registe
r
(
concat
(
get-register
registe
r
)
(
buffer-substring
start
end
)))
(
if
delete-flag
(
delete-region
start
end
)))
(
defun
prepend-to-register
(
char
start
end
&optional
delete-flag
)
"Prepend region to text in register REG. With prefix arg, delete as well.
Called from program, takes four args: REG, START, END and DELETE-FLAG.
(
defun
prepend-to-register
(
register
start
end
&optional
delete-flag
)
"Prepend region to text in register REGISTER.
With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions indicating what to prepend."
(
interactive
"cPrepend to register: \nr\nP"
)
(
or
(
stringp
(
get-register
cha
r
))
(
or
(
stringp
(
get-register
registe
r
))
(
error
"Register does not contain text"
))
(
set-register
cha
r
(
concat
(
buffer-substring
start
end
)
(
get-register
cha
r
)))
(
set-register
registe
r
(
concat
(
buffer-substring
start
end
)
(
get-register
registe
r
)))
(
if
delete-flag
(
delete-region
start
end
)))
(
defun
copy-rectangle-to-register
(
char
start
end
&optional
delete-flag
)
"Copy rectangular region into register REG. With prefix arg, delete as well.
Called from program, takes four args: REG, START, END and DELETE-FLAG.
(
defun
copy-rectangle-to-register
(
register
start
end
&optional
delete-flag
)
"Copy rectangular region into register REGISTER.
With prefix arg, delete as well.
Called from program, takes four args: REGISTER, START, END and DELETE-FLAG.
START and END are buffer positions giving two corners of rectangle."
(
interactive
"cCopy rectangle to register: \nr\nP"
)
(
set-register
cha
r
(
set-register
registe
r
(
if
delete-flag
(
delete-extract-rectangle
start
end
)
(
extract-rectangle
start
end
))))
...
...
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