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
92840a31
Commit
92840a31
authored
Feb 07, 2002
by
Richard M. Stallman
Browse files
(list-registers): New command.
(describe-register-1): New subroutine, taken out of view-register.
parent
3be4340f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
63 additions
and
40 deletions
+63
-40
lisp/register.el
lisp/register.el
+63
-40
No files found.
lisp/register.el
View file @
92840a31
...
...
@@ -168,54 +168,77 @@ The Lisp value REGISTER is a character."
(
if
(
null
val
)
(
message
"Register %s is empty"
(
single-key-description
register
))
(
with-output-to-temp-buffer
"*Output*"
(
princ
"Register "
)
(
princ
(
single-key-description
register
))
(
princ
" contains "
)
(
cond
((
numberp
val
)
(
princ
val
))
((
markerp
val
)
(
let
((
buf
(
marker-buffer
val
)))
(
if
(
null
buf
)
(
princ
"a marker in no buffer"
)
(
princ
"a buffer position:\nbuffer "
)
(
princ
(
buffer-name
buf
))
(
princ
", position "
)
(
princ
(
marker-position
val
)))))
((
and
(
consp
val
)
(
window-configuration-p
(
car
val
)))
(
princ
"a window configuration."
))
((
and
(
consp
val
)
(
frame-configuration-p
(
car
val
)))
(
princ
"a frame configuration."
))
((
and
(
consp
val
)
(
eq
(
car
val
)
'file
))
(
princ
"the file "
)
(
prin1
(
cdr
val
))
(
princ
"."
))
((
and
(
consp
val
)
(
eq
(
car
val
)
'file-query
))
(
princ
"a file-query reference:\nfile "
)
(
prin1
(
car
(
cdr
val
)))
(
princ
",\nposition "
)
(
princ
(
car
(
cdr
(
cdr
val
))))
(
princ
"."
))
((
consp
val
)
(
describe-register-1
register
t
)))))
(
defun
list-registers
()
"Display a list of nonempty registers saying briefly what they contain."
(
interactive
)
(
let
((
list
(
copy-sequence
register-alist
)))
(
setq
list
(
sort
list
(
lambda
(
a
b
)
(
<
(
car
a
)
(
car
b
)))))
(
with-output-to-temp-buffer
"*Output*"
(
dolist
(
elt
list
)
(
when
(
get-register
(
car
elt
))
(
describe-register-1
(
car
elt
))
(
terpri
))))))
(
defun
describe-register-1
(
register
&optional
verbose
)
(
princ
"Register "
)
(
princ
(
single-key-description
register
))
(
princ
" contains "
)
(
cond
((
numberp
val
)
(
princ
val
))
((
markerp
val
)
(
let
((
buf
(
marker-buffer
val
)))
(
if
(
null
buf
)
(
princ
"a marker in no buffer"
)
(
princ
"a buffer position:\n buffer "
)
(
princ
(
buffer-name
buf
))
(
princ
", position "
)
(
princ
(
marker-position
val
)))))
((
and
(
consp
val
)
(
window-configuration-p
(
car
val
)))
(
princ
"a window configuration."
))
((
and
(
consp
val
)
(
frame-configuration-p
(
car
val
)))
(
princ
"a frame configuration."
))
((
and
(
consp
val
)
(
eq
(
car
val
)
'file
))
(
princ
"the file "
)
(
prin1
(
cdr
val
))
(
princ
"."
))
((
and
(
consp
val
)
(
eq
(
car
val
)
'file-query
))
(
princ
"a file-query reference:\n file "
)
(
prin1
(
car
(
cdr
val
)))
(
princ
",\n position "
)
(
princ
(
car
(
cdr
(
cdr
val
))))
(
princ
"."
))
((
consp
val
)
(
if
verbose
(
progn
(
princ
"the rectangle:\n"
)
(
while
val
(
princ
" "
)
(
princ
(
car
val
))
(
terpri
)
(
setq
val
(
cdr
val
))))
(
princ
"a rectangle starting with "
)
(
princ
(
car
val
))))
((
stringp
val
)
((
stringp
val
)
(
if
verbose
(
progn
(
princ
"the text:\n"
)
(
princ
val
))
(
t
(
princ
"Garbage:\n"
)
(
prin1
val
)))))))
(
princ
"text starting with\n "
)
(
string-match
"[^ \t\n].\\{,20\\}"
val
)
(
princ
(
match-string
0
val
))))
(
t
(
princ
"Garbage:\n"
)
(
if
verbose
(
prin1
val
)))))
(
defun
insert-register
(
register
&optional
arg
)
"Insert contents of register REGISTER. (REGISTER is a character.)
...
...
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