Mercurial > hg > xemacs-beta
annotate netinstall/mklink2.c @ 4942:46f0df723e09
(for main branch) Indent all `with-*' expressions correctly
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2010-01-22 Ben Wing <ben@xemacs.org>
* lisp-mode.el:
* lisp-mode.el (lisp-indent-function):
If the function begins with `with-', assume it is a macro or
special form whose last argument is a body. Call
`lisp-indent-specform' with a flag indicating that it should indent
all arguments as a body instead of with normal (full) indent.
* lisp-mode.el (lisp-indent-specform):
Add an optional flag argument indicating that all non-distinguished
arguments, not just the first, should be indented as a body. This
is useful when the number of distinguished (i.e. pre-body) arguments
isn't known, and is used for this purpose by `lisp-indent-function'.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Fri, 22 Jan 2010 04:18:20 -0600 |
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 } |