Mercurial > hg > xemacs-beta
annotate netinstall/mklink2.c @ 930:eaedf30d9d76
[xemacs-hg @ 2002-07-23 08:34:59 by youngs]
2002-07-15 Jerry James <james@xemacs.org>
* make-docfile.c: Change whitespace and organization to reduce the
size of the diff against FSF Emacs sources and synch to Emacs 21.2.
Remove unused DO_REALLOC.
Mark XEmacs changes and additions more clearly.
Reintroduce previously deleted Emacs code inside #if 0 ... #endif.
* make-docfile.c (next_extra_elc): Replace goto with do-while.
* make-docfile.c (main): Put XEmacs-only args in one place.
* make-docfile.c (write_c_args): Change buff to buf to match
Emacs. Replace pointer arithmetic with simpler array syntax.
* make-docfile.c (scan_c_file): Note that DEFSIMPLE and DEFPRED no
longer exist. Correct the "name too long" test (off by one).
Die with message if a DEFUN has no docstring instead of hanging.
* make-docfile.c (scan_lisp_file): Introduce while loops used in
Emacs sources to skip consecutive blank lines.
2002-07-21 John Paul Wallington <jpw@xemacs.org>
* process.el (substitute-env-vars): New function; sync with
GNU Emacs 21.1.50.
(setenv): Add optional arg SUBSTITUTE-ENV-VARS; sync with
GNU Emacs 21.1.50.
2002-07-20 Mike Sperber <mike@xemacs.org>
* eval.c (run_post_gc_hook): Use more correct flags when running
post-gc-hook.
2002-07-20 Mike Sperber <mike@xemacs.org>
* process-unix.c (child_setup): Don't try to close file
descriptors for chid process once again---it's already being done
in close_process_descs.
(unix_create_process): Call begin_dont_check_for_quit to inhibit
unwanted interaction (and thus breaking of X event synchronicity)
in the child.
2002-07-15 Jerry James <james@xemacs.org>
* lisp.h: Make Qdll_error visible globally.
* symbols.c (check_sane_subr): Revert 2002-06-26 change.
Check only if !initialized.
* symbols.c (check_module_subr): Add parameter. Duplicate
check_sane_subr checks, but signal an error instead of asserting.
* symbols.c (defsubr): Use check_module_subr parameter.
* symbols.c (defsubr_macro): Ditto.
author | youngs |
---|---|
date | Tue, 23 Jul 2002 08:35:11 +0000 |
parents | 3078fd1074e8 |
children |
rev | line source |
---|---|
448 | 1 #include "win32.h" |
2 #include "shlobj.h" | |
3 | |
4 /* This part of the code must be in C because the C++ interface to COM | |
5 doesn't work. */ | |
6 | |
7 void | |
8 make_link_2 (char *exepath, char *args, char *icon, char *lname) | |
9 { | |
10 IShellLink *sl; | |
11 IPersistFile *pf; | |
12 WCHAR widepath [_MAX_PATH]; | |
13 | |
14 CoCreateInstance (&CLSID_ShellLink, NULL, | |
15 CLSCTX_INPROC_SERVER, &IID_IShellLink, (LPVOID *) & sl); | |
16 sl->lpVtbl->QueryInterface (sl, &IID_IPersistFile, (void **) &pf); | |
17 | |
18 sl->lpVtbl->SetPath (sl, exepath); | |
19 sl->lpVtbl->SetArguments (sl, args); | |
20 sl->lpVtbl->SetIconLocation (sl, icon, 0); | |
21 | |
22 MultiByteToWideChar (CP_ACP, 0, lname, -1, widepath, _MAX_PATH); | |
23 pf->lpVtbl->Save (pf, widepath, TRUE); | |
24 | |
25 pf->lpVtbl->Release (pf); | |
26 sl->lpVtbl->Release (sl); | |
27 } |