Mercurial > hg > xemacs-beta
annotate netinstall/mklink2.c @ 5036:9624523604c5
Use better types when ESCAPECHAR is specified, split_string_by_ichar_1
src/ChangeLog addition:
2010-02-19 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (split_string_by_ichar_1):
Use better types (e.g., not an Ichar for a buffer size) in this
function when dealing with ESCAPECHAR.
tests/ChangeLog addition:
2010-02-19 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el:
Change the #'split-string-by-char text to use US federal
government information instead of a couple of sentences from the
OED; the latter would probably have qualified as non-infringement,
but with the former the question won't arise.
(The German text in the same tests is from a very public domain
19th-century work.)
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Fri, 19 Feb 2010 23:46:53 +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 } |