From: Kenichi Handa <handa@m17n.org>
Date: Sat, 20 May 2000 00:04:05 +0000 (+0000)
Subject: (print_object): Use FETCH_STRING_CHAR_ADVANCE
X-Git-Tag: emacs-pretest-21.0.90~3870
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eba90784ce2bca76105770b44da0a60063e59f94;p=emacs.git

(print_object): Use FETCH_STRING_CHAR_ADVANCE
unconditionally.
---

diff --git a/src/print.c b/src/print.c
index 2379e9d4930..6f4a2105b6e 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1434,12 +1434,7 @@ print_object (obj, printcharfun, escapeflag)
 	  {
 	    /* Here, we must convert each multi-byte form to the
 	       corresponding character code before handing it to PRINTCHAR.  */
-
-	    if (STRING_MULTIBYTE (name))
-	      FETCH_STRING_CHAR_ADVANCE (c, name, i, i_byte);
-	    else
-	      c = XSTRING (name)->data[i_byte++];
-
+	    FETCH_STRING_CHAR_ADVANCE (c, name, i, i_byte);
 	    QUIT;
 
 	    if (escapeflag)