comparison src/lread.c @ 22889:beddbcd21407

(read1): In reading a string, treat Qlambda like Qget_file_char.

22888:5bfe86125303

		string = make_multibyte_string (read_buffer, nchars,
						p - read_buffer);
		return Fstring_make_unibyte (string);
	      }
	  }
	else if (EQ (readcharfun, Qget_file_char))
	  /* Nowadays, reading directly from a file
	     is used only for compiled Emacs Lisp files,
	     and those always use the Emacs internal encoding.  */
	  nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
	else
	  /* In all other cases, if we read these bytes as
	     separate characters, treat them as separate characters now.  */
	  nchars = p - read_buffer;

22889:beddbcd21407

		string = make_multibyte_string (read_buffer, nchars,
						p - read_buffer);
		return Fstring_make_unibyte (string);
	      }
	  }
	else if (EQ (readcharfun, Qget_file_char)
		 || EQ (readcharfun, Qlambda))
	  /* Nowadays, reading directly from a file
	     is used only for compiled Emacs Lisp files,
	     and those always use the Emacs internal encoding.
	     Meanwhile, Qlambda is used for reading dynamic byte code
	     (compiled with byte-compile-dynamic = t).  */
	  nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
	else
	  /* In all other cases, if we read these bytes as
	     separate characters, treat them as separate characters now.  */
	  nchars = p - read_buffer;