Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3738a371
Commit
3738a371
authored
Jan 09, 1996
by
Erik Naggum
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(Fwrite_char, Fprin1, Fprin1_to_string, Fprinc, Fprint): Harmonize
arguments with documentation.
parent
7efd36fc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
25 additions
and
25 deletions
+25
-25
src/print.c
src/print.c
+25
-25
No files found.
src/print.c
View file @
3738a371
...
...
@@ -325,10 +325,10 @@ print_string (string, printcharfun)
}
DEFUN
(
"write-char"
,
Fwrite_char
,
Swrite_char
,
1
,
2
,
0
,
"Output character CHAR to stream PRINTCHARFUN.
\n
\
"Output character CHAR
ACTER
to stream PRINTCHARFUN.
\n
\
PRINTCHARFUN defaults to the value of `standard-output' (which see)."
)
(
ch
,
printcharfun
)
Lisp_Object
ch
,
printcharfun
;
(
ch
aracter
,
printcharfun
)
Lisp_Object
ch
aracter
,
printcharfun
;
{
struct
buffer
*
old
=
current_buffer
;
int
old_point
=
-
1
;
...
...
@@ -337,11 +337,11 @@ PRINTCHARFUN defaults to the value of `standard-output' (which see).")
if
(
NILP
(
printcharfun
))
printcharfun
=
Vstandard_output
;
CHECK_NUMBER
(
ch
,
0
);
CHECK_NUMBER
(
ch
aracter
,
0
);
PRINTPREPARE
;
PRINTCHAR
(
XINT
(
ch
));
PRINTCHAR
(
XINT
(
ch
aracter
));
PRINTFINISH
;
return
ch
;
return
ch
aracter
;
}
/* Used from outside of print.c to print a block of SIZE chars at DATA
...
...
@@ -491,8 +491,8 @@ DEFUN ("prin1", Fprin1, Sprin1, 1, 2, 0,
Quoting characters are printed when needed to make output that `read'
\n
\
can handle, whenever this is possible.
\n
\
Output stream is PRINTCHARFUN, or value of `standard-output' (which see)."
)
(
obj
,
printcharfun
)
Lisp_Object
obj
,
printcharfun
;
(
obj
ect
,
printcharfun
)
Lisp_Object
obj
ect
,
printcharfun
;
{
struct
buffer
*
old
=
current_buffer
;
int
old_point
=
-
1
;
...
...
@@ -506,9 +506,9 @@ Output stream is PRINTCHARFUN, or value of `standard-output' (which see).")
printcharfun
=
Vstandard_output
;
PRINTPREPARE
;
print_depth
=
0
;
print
(
obj
,
printcharfun
,
1
);
print
(
obj
ect
,
printcharfun
,
1
);
PRINTFINISH
;
return
obj
;
return
obj
ect
;
}
/* a buffer which is used to hold output being built by prin1-to-string */
...
...
@@ -519,8 +519,8 @@ DEFUN ("prin1-to-string", Fprin1_to_string, Sprin1_to_string, 1, 2, 0,
any Lisp object. Quoting characters are used when needed to make output
\n
\
that `read' can handle, whenever this is possible, unless the optional
\n
\
second argument NOESCAPE is non-nil."
)
(
obj
,
noescape
)
Lisp_Object
obj
,
noescape
;
(
obj
ect
,
noescape
)
Lisp_Object
obj
ect
,
noescape
;
{
struct
buffer
*
old
=
current_buffer
;
int
old_point
=
-
1
;
...
...
@@ -531,18 +531,18 @@ second argument NOESCAPE is non-nil.")
printcharfun
=
Vprin1_to_string_buffer
;
PRINTPREPARE
;
print_depth
=
0
;
print
(
obj
,
printcharfun
,
NILP
(
noescape
));
print
(
obj
ect
,
printcharfun
,
NILP
(
noescape
));
/* Make Vprin1_to_string_buffer be the default buffer after PRINTFINSH */
PRINTFINISH
;
set_buffer_internal
(
XBUFFER
(
Vprin1_to_string_buffer
));
obj
=
Fbuffer_string
();
obj
ect
=
Fbuffer_string
();
GCPRO1
(
obj
);
GCPRO1
(
obj
ect
);
Ferase_buffer
();
set_buffer_internal
(
old
);
UNGCPRO
;
return
obj
;
return
obj
ect
;
}
DEFUN
(
"princ"
,
Fprinc
,
Sprinc
,
1
,
2
,
0
,
...
...
@@ -550,8 +550,8 @@ DEFUN ("princ", Fprinc, Sprinc, 1, 2, 0,
No quoting characters are used; no delimiters are printed around
\n
\
the contents of strings.
\n
\
Output stream is PRINTCHARFUN, or value of standard-output (which see)."
)
(
obj
,
printcharfun
)
Lisp_Object
obj
,
printcharfun
;
(
obj
ect
,
printcharfun
)
Lisp_Object
obj
ect
,
printcharfun
;
{
struct
buffer
*
old
=
current_buffer
;
int
old_point
=
-
1
;
...
...
@@ -562,9 +562,9 @@ Output stream is PRINTCHARFUN, or value of standard-output (which see).")
printcharfun
=
Vstandard_output
;
PRINTPREPARE
;
print_depth
=
0
;
print
(
obj
,
printcharfun
,
0
);
print
(
obj
ect
,
printcharfun
,
0
);
PRINTFINISH
;
return
obj
;
return
obj
ect
;
}
DEFUN
(
"print"
,
Fprint
,
Sprint
,
1
,
2
,
0
,
...
...
@@ -572,8 +572,8 @@ DEFUN ("print", Fprint, Sprint, 1, 2, 0,
Quoting characters are printed when needed to make output that `read'
\n
\
can handle, whenever this is possible.
\n
\
Output stream is PRINTCHARFUN, or value of `standard-output' (which see)."
)
(
obj
,
printcharfun
)
Lisp_Object
obj
,
printcharfun
;
(
obj
ect
,
printcharfun
)
Lisp_Object
obj
ect
,
printcharfun
;
{
struct
buffer
*
old
=
current_buffer
;
int
old_point
=
-
1
;
...
...
@@ -587,11 +587,11 @@ Output stream is PRINTCHARFUN, or value of `standard-output' (which see).")
#endif
/* MAX_PRINT_CHARS */
if
(
NILP
(
printcharfun
))
printcharfun
=
Vstandard_output
;
GCPRO1
(
obj
);
GCPRO1
(
obj
ect
);
PRINTPREPARE
;
print_depth
=
0
;
PRINTCHAR
(
'\n'
);
print
(
obj
,
printcharfun
,
1
);
print
(
obj
ect
,
printcharfun
,
1
);
PRINTCHAR
(
'\n'
);
PRINTFINISH
;
#ifdef MAX_PRINT_CHARS
...
...
@@ -599,7 +599,7 @@ Output stream is PRINTCHARFUN, or value of `standard-output' (which see).")
print_chars
=
0
;
#endif
/* MAX_PRINT_CHARS */
UNGCPRO
;
return
obj
;
return
obj
ect
;
}
/* The subroutine object for external-debugging-output is kept here
...
...
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