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
777aaffc
Commit
777aaffc
authored
Oct 11, 1994
by
Karl Heuer
Browse files
(print): Check the substructure.
parent
7f064f5c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
10 deletions
+18
-10
src/print.c
src/print.c
+18
-10
No files found.
src/print.c
View file @
777aaffc
...
...
@@ -980,18 +980,26 @@ print (obj, printcharfun, escapeflag)
break
;
#endif
/* MULTI_FRAME */
case
Lisp_Marker
:
strout
(
"#<marker "
,
-
1
,
printcharfun
);
if
(
!
(
XMARKER
(
obj
)
->
buffer
))
strout
(
"in no buffer"
,
-
1
,
printcharfun
);
else
case
Lisp_Misc
:
switch
(
XMISC
(
obj
)
->
type
)
{
sprintf
(
buf
,
"at %d"
,
marker_position
(
obj
));
strout
(
buf
,
-
1
,
printcharfun
);
strout
(
" in "
,
-
1
,
printcharfun
);
print_string
(
XMARKER
(
obj
)
->
buffer
->
name
,
printcharfun
);
case
Lisp_Misc_Marker
:
strout
(
"#<marker "
,
-
1
,
printcharfun
);
if
(
!
(
XMARKER
(
obj
)
->
buffer
))
strout
(
"in no buffer"
,
-
1
,
printcharfun
);
else
{
sprintf
(
buf
,
"at %d"
,
marker_position
(
obj
));
strout
(
buf
,
-
1
,
printcharfun
);
strout
(
" in "
,
-
1
,
printcharfun
);
print_string
(
XMARKER
(
obj
)
->
buffer
->
name
,
printcharfun
);
}
PRINTCHAR
(
'>'
);
break
;
default:
abort
();
}
PRINTCHAR
(
'>'
);
break
;
case
Lisp_Overlay
:
...
...
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