diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2018-05-29 20:52:17 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-05-29 20:52:17 +0300 |
| commit | 5be83e343f9f0f3487793b54ff95bc89ee6b824a (patch) | |
| tree | de6c30ce8ef10deb795a9d391a9769acda6c92f0 /src/w32.h | |
| parent | fd6f08840eb095465dfe555785eee228306ab876 (diff) | |
| download | emacs-5be83e343f9f0f3487793b54ff95bc89ee6b824a.tar.gz emacs-5be83e343f9f0f3487793b54ff95bc89ee6b824a.tar.bz2 emacs-5be83e343f9f0f3487793b54ff95bc89ee6b824a.zip | |
Allow access to MS-Windows Registry from Lisp programs
* src/w32.c (g_b_init_reg_open_key_ex_w)
(g_b_init_reg_query_value_ex_w)
(g_b_init_expand_environment_strings_w): New init flags.
(globals_of_w32): Initialize them at startup.
(RegOpenKeyExW_Proc, RegQueryValueExW_Proc)
(ExpandEnvironmentStringsW_Proc): New function typedefs.
(reg_open_key_ex_w, reg_query_value_ex_w)
(expand_environment_strings_w): New wrapper function.
(w32_read_registry): New function.
* src/w32fns.c (Fw32_read_registry) [WINDOWSNT]: New primitive.
(syms_of_w32fns) [WINDOWSNT]: Defsubr it. DEFSYM "HKLM", "HKCU",
etc. root keys.
* etc/NEWS: Mention the new primitive.
Diffstat (limited to 'src/w32.h')
| -rw-r--r-- | src/w32.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/w32.h b/src/w32.h index 1e416ceead7..fe8689a07b4 100644 --- a/src/w32.h +++ b/src/w32.h @@ -227,6 +227,8 @@ extern int w32_compare_strings (const char *, const char *, char *, int); /* Return a cryptographically secure seed for PRNG. */ extern int w32_init_random (void *, ptrdiff_t); +extern Lisp_Object w32_read_registry (HKEY, Lisp_Object, Lisp_Object); + #ifdef HAVE_GNUTLS #include <gnutls/gnutls.h> |