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
6ed21409
Commit
6ed21409
authored
Feb 14, 2002
by
Richard M. Stallman
Browse files
(describe-register-1): Access register contents here.
parent
9b9d845d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
55 additions
and
54 deletions
+55
-54
lisp/register.el
lisp/register.el
+55
-54
No files found.
lisp/register.el
View file @
6ed21409
...
...
@@ -185,60 +185,61 @@ The Lisp value REGISTER is a character."
(
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
)
(
if
verbose
(
progn
(
princ
"the text:\n"
)
(
princ
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
)))))
(
let
((
val
(
get-register
register
)))
(
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
)
(
if
verbose
(
progn
(
princ
"the text:\n"
)
(
princ
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