comparison src/fns.c @ 780:578cb2932d72

[xemacs-hg @ 2002-03-18 10:07:30 by ben] config.inc.samp, xemacs.mak: Deal with never-ending perl quoting problems. README: Include a long, long description of the suggested directory layout for developing XEmacs. This should probably go as part of a larger document, a "Getting Started with Developing XEmacs". #### Does such a document exist? etc\unicode\mule-ucs\*: New directory, containing translation files for the remaining charsets that are not in unicode\unicode-consortium but are in mule-ucs. etc\unicode\other\*: New directory, containing translation files made up on an ad-hoc basis. etc\unicode\README: Update. * Some ChangeLog entries from stuff that got applied long ago never got checked in, due to the nasty SCCS "oops, i forgot again ..." bug. mule\lao.el: Convert stuff to XEmacs-style. mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle encountering characters of a charset before the charset is defined. mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el. mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el, which references charsets and thus needs to be delayed until after all charsets have been created. mule\mule-msw-init-late.el: New file, some stuff from mule-msw-init.el. dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan. Load new file mule-msw-init-late. unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages extracted from mule-ucs. mule\lao.el: Convert stuff to XEmacs-style. mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle encountering characters of a charset before the charset is defined. mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el. mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el, which references charsets and thus needs to be delayed until after all charsets have been created. mule\mule-msw-init-late.el: New file, some stuff from mule-msw-init.el. mule\lao.el: Convert stuff to XEmacs-style. mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle encountering characters of a charset before the charset is defined. mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el. mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el, which references charsets and thus needs to be delayed until after all charsets have been created. mule\mule-msw-init-late.el: New file, some stuff from mule-msw-init.el. dumped-lisp.el: Load the remaining languages -- lao, indian, devanagari, tibetan. Load new file mule-msw-init-late. unicode.el: Load the new tables for Ethiopic, Vietnamese, and other languages extracted from mule-ucs. mule\lao.el: Convert stuff to XEmacs-style. mule\thai-xtis.el: Move thai-xtis-chars.el stuff to here, since we can now handle encountering characters of a charset before the charset is defined. mule\thai-xtis-chars.el: Removed, moved into thai-xtis.el. mule\mule-msw-init.el: Move some stuff into mule-msw-init-late.el, which references charsets and thus needs to be delayed until after all charsets have been created. mule\mule-msw-init-late.el: New file, some stuff from mule-msw-init.el. fns.c, lread.c: Add variable require-prints-loading-message to cause loading messages to get printed when a file is loading during a `require', which normally doesn't happen. This can be set using env var XEMACSDEBUG to debug problems with non-interactive compilation. Modify load-internal so it prints "Requiring: ..." instead of "Loading: ..." when appropriate.
author ben
date Mon, 18 Mar 2002 10:07:39 +0000
parents 943eaba38521
children e38acbeb1cae
comparison
equal deleted inserted replaced
779:a29c4eef8f00 780:578cb2932d72
60 60
61 Lisp_Object Vpath_separator; 61 Lisp_Object Vpath_separator;
62 62
63 static int internal_old_equal (Lisp_Object, Lisp_Object, int); 63 static int internal_old_equal (Lisp_Object, Lisp_Object, int);
64 Lisp_Object safe_copy_tree (Lisp_Object arg, Lisp_Object vecp, int depth); 64 Lisp_Object safe_copy_tree (Lisp_Object arg, Lisp_Object vecp, int depth);
65
66 int require_prints_loading_message;
65 67
66 static Lisp_Object 68 static Lisp_Object
67 mark_bit_vector (Lisp_Object obj) 69 mark_bit_vector (Lisp_Object obj)
68 { 70 {
69 return Qnil; 71 return Qnil;
3439 /* Value saved here is to be restored into Vautoload_queue */ 3441 /* Value saved here is to be restored into Vautoload_queue */
3440 record_unwind_protect (un_autoload, Vautoload_queue); 3442 record_unwind_protect (un_autoload, Vautoload_queue);
3441 Vautoload_queue = Qt; 3443 Vautoload_queue = Qt;
3442 3444
3443 call4 (Qload, NILP (filename) ? Fsymbol_name (feature) : filename, 3445 call4 (Qload, NILP (filename) ? Fsymbol_name (feature) : filename,
3444 Qnil, Qt, Qnil); 3446 Qnil, require_prints_loading_message ? Qrequire : Qt, Qnil);
3445 3447
3446 tem = Fmemq (feature, Vfeatures); 3448 tem = Fmemq (feature, Vfeatures);
3447 if (NILP (tem)) 3449 if (NILP (tem))
3448 invalid_state ("Required feature was not provided", feature); 3450 invalid_state ("Required feature was not provided", feature);
3449 3451
3973 DEFVAR_LISP ("path-separator", &Vpath_separator /* 3975 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3974 The directory separator in search paths, as a string. 3976 The directory separator in search paths, as a string.
3975 */ ); 3977 */ );
3976 { 3978 {
3977 char c = SEPCHAR; 3979 char c = SEPCHAR;
3978 Vpath_separator = make_string ((Intbyte *)&c, 1); 3980 Vpath_separator = make_string ((Intbyte *) &c, 1);
3979 } 3981 }
3982
3983 DEFVAR_BOOL ("require-prints-loading-message",
3984 &require_prints_loading_message /*
3985 If non-nil, every time a file is loaded by `require' a message is printed.
3986 */ );
3980 } 3987 }
3981 3988
3982 void 3989 void
3983 init_provide_once (void) 3990 init_provide_once (void)
3984 { 3991 {