comparison src/buffer.c @ 51391:61ea5c492ffb

(Fset_buffer_multibyte): Correctly recover a narrowed region when a buffer is changed to unibyte.

51390:e5fd0e74ccb2

     Lisp_Object flag;
{
  Lisp_Object tail, markers;
  struct buffer *other;
  int undo_enabled_p = !EQ (current_buffer->undo_list, Qt);
  int begv = BEGV, zv = ZV;
  int narrowed = (BEG != begv || Z != zv);
  int modified_p = !NILP (Fbuffer_modified_p (Qnil));

  if (current_buffer->base_buffer)
    error ("Cannot do `set-buffer-multibyte' on an indirect buffer");

  if (undo_enabled_p)
    current_buffer->undo_list = Qt;

  /* If the cached position is for this buffer, clear it out.  */
  clear_charpos_cache (current_buffer);

  if (narrowed)
    Fwiden ();

  if (NILP (flag))

51391:61ea5c492ffb

     Lisp_Object flag;
{
  Lisp_Object tail, markers;
  struct buffer *other;
  int undo_enabled_p = !EQ (current_buffer->undo_list, Qt);
  int begv, zv;
  int narrowed = (BEG != begv || Z != zv);
  int modified_p = !NILP (Fbuffer_modified_p (Qnil));

  if (current_buffer->base_buffer)
    error ("Cannot do `set-buffer-multibyte' on an indirect buffer");

  if (undo_enabled_p)
    current_buffer->undo_list = Qt;

  /* If the cached position is for this buffer, clear it out.  */
  clear_charpos_cache (current_buffer);

  if (NILP (flag))
    begv = BEGV_BYTE, zv = ZV_BYTE;
  else
    begv = BEGV, zv = ZV;

  if (narrowed)
    Fwiden ();

  if (NILP (flag))