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
1b56c309
Commit
1b56c309
authored
Mar 22, 1995
by
Karl Heuer
Browse files
(concat): Treat integers as characters, not strings.
This makes `concat' more like `insert'.
parent
f2d9e61d
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
src/fns.c
src/fns.c
+3
-3
No files found.
src/fns.c
View file @
1b56c309
...
...
@@ -222,8 +222,8 @@ The last argument is not copied, just used as the tail of the new list.")
DEFUN
(
"concat"
,
Fconcat
,
Sconcat
,
0
,
MANY
,
0
,
"Concatenate all the arguments and make the result a string.
\n
\
The result is a string whose elements are the elements of all the arguments.
\n
\
Each argument may be a string, a
list of
character
s
(integer
s
),
\n
\
or a vector
of characters (integers)."
)
Each argument may be a string, a character (integer),
or a list or vector
\n
\
of characters (integers)."
)
(
nargs
,
args
)
int
nargs
;
Lisp_Object
*
args
;
...
...
@@ -288,7 +288,7 @@ concat (nargs, args, target_type, last_special)
||
COMPILEDP
(
this
)))
{
if
(
INTEGERP
(
this
))
args
[
argnum
]
=
F
number_to_string
(
this
);
args
[
argnum
]
=
F
cons
(
this
,
Qnil
);
else
args
[
argnum
]
=
wrong_type_argument
(
Qsequencep
,
this
);
}
...
...
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