[Emacs-diffs] Changes to emacs/src/editfns.c

[Kenichi Handa]

Index: emacs/src/editfns.c
diff -c emacs/src/editfns.c:1.352 emacs/src/editfns.c:1.353
*** emacs/src/editfns.c:1.352   Tue Feb  4 09:03:12 2003
--- emacs/src/editfns.c Fri Apr  4 05:47:15 2003
***************
*** 3240,3245 ****
--- 3240,3247 ----
    }
  
    CHECK_STRING (args[0]);
+   /* We may have to change "%S" to "%s". */
+   args[0] = Fcopy_sequence (args[0]);
  
    /* If we start out planning a unibyte result,
       and later find it has to be multibyte, we jump back to retry.  */
***************
*** 3326,3331 ****
--- 3328,3338 ----
                goto retry;
              }
            args[n] = tem;
+           /* If we restart the loop, we should not come here again
+              because args[n] is now a string and calling
+              Fprin1_to_string on it produces superflous double
+              quotes.  So, change "%S" to "%s" now.  */
+           *format = 's';
            goto string;
          }
        else if (SYMBOLP (args[n]))