Mercurial > emacs

comparison src/lread.c @ 83314:d07fdd5d7d4e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 441-446) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-441 Update reference to renamed Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-442 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-443 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-444 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-445 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-446 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-354
author Karoly Lorentey <lorentey@elte.hu>
date Sat, 25 Jun 2005 15:00:08 +0000
parents 5ae8a8b0a308 4089414d3208
children ebfb2856c8e6
comparison
equal deleted inserted replaced
83313:bdcbdec78dd3 83314:d07fdd5d7d4e
2844 if (bytecodeflag && load_force_doc_strings) 2844 if (bytecodeflag && load_force_doc_strings)
2845 { 2845 {
2846 if (i == COMPILED_BYTECODE) 2846 if (i == COMPILED_BYTECODE)
2847 { 2847 {
2848 if (!STRINGP (item)) 2848 if (!STRINGP (item))
2849 error ("invalid byte code"); 2849 error ("Invalid byte code");
2850 2850
2851 /* Delay handling the bytecode slot until we know whether 2851 /* Delay handling the bytecode slot until we know whether
2852 it is lazily-loaded (we can tell by whether the 2852 it is lazily-loaded (we can tell by whether the
2853 constants slot is nil). */ 2853 constants slot is nil). */
2854 ptr[COMPILED_CONSTANTS] = item; 2854 ptr[COMPILED_CONSTANTS] = item;
2866 STRING_SET_CHARS (bytestr, SBYTES (bytestr)); 2866 STRING_SET_CHARS (bytestr, SBYTES (bytestr));
2867 STRING_SET_UNIBYTE (bytestr); 2867 STRING_SET_UNIBYTE (bytestr);
2868 2868
2869 item = Fread (bytestr); 2869 item = Fread (bytestr);
2870 if (!CONSP (item)) 2870 if (!CONSP (item))
2871 error ("invalid byte code"); 2871 error ("Invalid byte code");
2872 2872
2873 otem = XCONS (item); 2873 otem = XCONS (item);
2874 bytestr = XCAR (item); 2874 bytestr = XCAR (item);
2875 item = XCDR (item); 2875 item = XCDR (item);
2876 free_cons (otem); 2876 free_cons (otem);