/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.317 by raeburn, Mon Jul 15 00:00:36 2002 UTC revision 1.318 by raeburn, Mon Jul 15 02:16:15 2002 UTC
# Line 714  concat (nargs, args, target_type, last_s Line 714  concat (nargs, args, target_type, last_s
714              }              }
715            toindex_byte += thislen_byte;            toindex_byte += thislen_byte;
716            toindex += thisleni - combined;            toindex += thisleni - combined;
717            SCHARS (val) -= combined;            STRING_SET_CHARS (val, SCHARS (val) - combined);
718          }          }
719        /* Copy a single-byte string to a multibyte string.  */        /* Copy a single-byte string to a multibyte string.  */
720        else if (STRINGP (this) && STRINGP (val))        else if (STRINGP (this) && STRINGP (val))
# Line 804  concat (nargs, args, target_type, last_s Line 804  concat (nargs, args, target_type, last_s
804                          && toindex_byte > 0                          && toindex_byte > 0
805                          && count_combining (SDATA (val),                          && count_combining (SDATA (val),
806                                              toindex_byte, toindex_byte - 1))                                              toindex_byte, toindex_byte - 1))
807                        SCHARS (val)--;                        STRING_SET_CHARS (val, SCHARS (val) - 1);
808                      else                      else
809                        toindex++;                        toindex++;
810                    }                    }

Legend:
Removed from v.1.317  
changed lines
  Added in v.1.318

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26