From: Kim F. Storm <storm@cua.dk>
Date: Wed, 12 Jul 2006 13:16:32 +0000 (+0000)
Subject: (general_insert_function): Remove loop around wrong_type_argument.
X-Git-Tag: emacs-pretest-22.0.90~1506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7f34213c10aa9354d06d15eb3c1ed1021ce947f;p=emacs.git

(general_insert_function): Remove loop around wrong_type_argument.
---

diff --git a/src/editfns.c b/src/editfns.c
index 0761abd8d52..98a42855ba5 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2140,7 +2140,6 @@ general_insert_function (insert_func, insert_from_string_func,
   for (argnum = 0; argnum < nargs; argnum++)
     {
       val = args[argnum];
-    retry:
       if (INTEGERP (val))
 	{
 	  unsigned char str[MAX_MULTIBYTE_LENGTH];
@@ -2165,10 +2164,7 @@ general_insert_function (insert_func, insert_from_string_func,
 				      inherit);
 	}
       else
-	{
-	  val = wrong_type_argument (Qchar_or_string_p, val);
-	  goto retry;
-	}
+	wrong_type_argument (Qchar_or_string_p, val);
     }
 }