comparison src/fns.c @ 53681:206ba2723812

(Fmd5): If OBJECT is a buffer different from the current one, set buffer to OBJECT temporarily.

53680:6b1881ea9daf

	args_out_of_range_3 (object, make_number (start_char),
			     make_number (end_char));
    }
  else
    {
      CHECK_BUFFER (object);

      bp = XBUFFER (object);

      if (NILP (start))
	b = BUF_BEGV (bp);
      else
	{
	  CHECK_NUMBER_COERCE_MARKER (start);
	  b = XINT (start);
	}

      if (NILP (end))
	e = BUF_ZV (bp);
      else
	{
	  CHECK_NUMBER_COERCE_MARKER (end);
	  e = XINT (end);
	}

      if (b > e)
	temp = b, b = e, e = temp;

      if (!(BUF_BEGV (bp) <= b && e <= BUF_ZV (bp)))
	args_out_of_range (start, end);

      if (NILP (coding_system))
	{
	  /* Decide the coding-system to encode the data with.

		  Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil));
	    }
	}

      object = make_buffer_string (b, e, 0);

      if (STRING_MULTIBYTE (object))
	object = code_convert_string1 (object, coding_system, Qnil, 1);
    }

53681:206ba2723812

	args_out_of_range_3 (object, make_number (start_char),
			     make_number (end_char));
    }
  else
    {
      struct buffer *prev = current_buffer;

      record_unwind_protect (Fset_buffer, Fcurrent_buffer ());

      CHECK_BUFFER (object);

      bp = XBUFFER (object);
      if (bp != current_buffer)
	set_buffer_internal (bp);

      if (NILP (start))
	b = BEGV;
      else
	{
	  CHECK_NUMBER_COERCE_MARKER (start);
	  b = XINT (start);
	}

      if (NILP (end))
	e = ZV;
      else
	{
	  CHECK_NUMBER_COERCE_MARKER (end);
	  e = XINT (end);
	}

      if (b > e)
	temp = b, b = e, e = temp;

      if (!(BEGV <= b && e <= ZV))
	args_out_of_range (start, end);

      if (NILP (coding_system))
	{
	  /* Decide the coding-system to encode the data with.

		  Fsignal (Qcoding_system_error, Fcons (coding_system, Qnil));
	    }
	}

      object = make_buffer_string (b, e, 0);
      if (prev != current_buffer)
	set_buffer_internal (prev);
      /* Discard the unwind protect for recovering the current
	 buffer.  */
      specpdl_ptr--;

      if (STRING_MULTIBYTE (object))
	object = code_convert_string1 (object, coding_system, Qnil, 1);
    }