[Emacs-diffs] Changes to emacs/src/casefiddle.c,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/07/12 13:14:51

Index: casefiddle.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/casefiddle.c,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- casefiddle.c        6 Feb 2006 15:23:20 -0000       1.55
+++ casefiddle.c        12 Jul 2006 13:14:51 -0000      1.56
@@ -45,8 +45,6 @@
   if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1]))
     Fset_case_table (current_buffer->downcase_table);
 
-  while (1)
-    {
       if (INTEGERP (obj))
        {
          int flagbits = (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
@@ -112,8 +110,8 @@
            }
          return obj;
        }
-      obj = wrong_type_argument (Qchar_or_string_p, obj);
-    }
+
+  return wrong_type_argument (Qchar_or_string_p, obj);
 }
 
 DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,