comparison lisp/code-files.el @ 1111:184461bc8de4

[xemacs-hg @ 2002-11-18 06:52:23 by ben] warning fixes, etc. * s/cygwin32.h: -fvtable-thunks is obsolete in GCC 3 and generates warnings. * s/mingw32.h: * s/windowsnt.h: Comment fixes. * emodules.h: Fix warnings from redefining symbols. * eval.c: Fix C++ errors -- no automatic casting between function pointers and void *, function declarations inside of functions not allowed. * event-Xt.c (emacs_Xt_enqueue_focus_event): Warning fixes. * fileio.c (Ffile_truename): Warning fixes. Use LOCAL_TO_WIN32_FILE_FORMAT rather than duplicating it. * glyphs-x.c: Fix style. * intl-auto-encap-win32.c: * intl-auto-encap-win32.h: * intl-encap-win32.c: * intl-encap-win32.c (qxeRegConnectRegistry): * syswindows.h (RegConnectRegistry): DdeCreateStringHandle needs to be manual due to new Cygwin bug. * intl-win32.c: wcslen/wcscmp don't seem to exist under G++ 3, Cygwin. * lisp.h: * lisp-union.h: * lisp-disunion.h: * process-unix.c (unix_send_process): Ugh, C needs volatile and C++ must not have volatile. Remove previous volatile hacks, which don't seem to be working any more. * sheap.c (STATIC_HEAP_SLOP): Try to get a working Cygwin build with old unexec. * sheap.c (more_static_core): No NL's in literals allowed. * symbols.c (Fset): Fix C++ errors. * syswindows.h: Fix Cygwin complaints now that some missing structs have been added. aclocal.m4: Disable shared library modules under Cygwin for the moment, since we need some more tricky coding done and I don't have the time right now. configure.in, configure.usage: code-files.el, loadhist.el: Fix warnings. package-get.el: Fix warnings. NOTE: This was already fixed awhile ago, but reverted by Steve Y. Please be careful. postgresql/Makefile.in.in: Removed. Move common stuff into modues/common/Makefile.common. (Also add extraclean target and a couple of other fixes in that file.) postgresql/configure.ac: Extract out common configure stuff into modules/common/configure-{pre,post}.ac. postgresql/postgresql.c: Fix warning. ldap/Makefile.in.in: Removed. Move common stuff into modues/common/Makefile.common. (Also add extraclean target and a couple of other fixes in that file.) ldap/configure.ac: Extract out common configure stuff into modules/common/configure-{pre,post}.ac. common/Makefile.common: Common stuff is here.
author ben
date Mon, 18 Nov 2002 06:53:08 +0000
parents 25e260cb7994
children 68169b2a743e
comparison
equal deleted inserted replaced
1110:49065a0d2943 1111:184461bc8de4
231 Print messages at start and end of loading unless 231 Print messages at start and end of loading unless
232 optional third arg NOMESSAGE is non-nil. 232 optional third arg NOMESSAGE is non-nil.
233 If optional fourth arg NOSUFFIX is non-nil, don't try adding 233 If optional fourth arg NOSUFFIX is non-nil, don't try adding
234 suffixes .elc, .el, or .ell to the specified name FILE. 234 suffixes .elc, .el, or .ell to the specified name FILE.
235 Return t if file exists." 235 Return t if file exists."
236 (declare (special load-modules-quietly))
236 (let* ((filename (substitute-in-file-name file)) 237 (let* ((filename (substitute-in-file-name file))
237 (handler (find-file-name-handler filename 'load)) 238 (handler (find-file-name-handler filename 'load))
238 (path nil)) 239 (path nil))
239 (if handler 240 (if handler
240 (funcall handler 'load filename noerror nomessage nosuffix) 241 (funcall handler 'load filename noerror nomessage nosuffix)
276 (locate-file filename module-load-path 277 (locate-file filename module-load-path
277 (and (not nosuffix) 278 (and (not nosuffix)
278 '(".ell" ".dll" ".so" "")))) 279 '(".ell" ".dll" ".so" ""))))
279 (if (featurep 'modules) 280 (if (featurep 'modules)
280 (let ((load-modules-quietly nomessage)) 281 (let ((load-modules-quietly nomessage))
281 (load-module filename)) 282 (declare-fboundp (load-module filename)))
282 (signal 'file-error '("This XEmacs does not support modules"))) 283 (signal 'file-error '("This XEmacs does not support modules")))
283 (and (null noerror) 284 (and (null noerror)
284 (signal 'file-error (list "Cannot open load file" filename)))) 285 (signal 'file-error (list "Cannot open load file" filename))))
285 )))) 286 ))))
286 287