Mercurial > emacs

changeset 11094:1a13a256f976

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(concat): Treat integers as characters, not strings. This makes `concat' more like `insert'.
author Karl Heuer <kwzh@gnu.org>
date Wed, 22 Mar 1995 20:45:26 +0000
parents 278c796d9d7e
children 6e80a9e29466
files src/fns.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Wed Mar 22 20:39:17 1995 +0000
+++ b/src/fns.c	Wed Mar 22 20:45:26 1995 +0000
@@ -222,8 +222,8 @@
 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 characters (integers),\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 @@
 	    || COMPILEDP (this)))
 	{
 	  if (INTEGERP (this))
-            args[argnum] = Fnumber_to_string (this);
+	    args[argnum] = Fcons (this, Qnil);
 	  else
 	    args[argnum] = wrong_type_argument (Qsequencep, this);
 	}