[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5fe9a1a85a: ; Fix doc string of 'loaddefs-generate'
From: |
Eli Zaretskii |
Subject: |
master 5fe9a1a85a: ; Fix doc string of 'loaddefs-generate' |
Date: |
Thu, 15 Sep 2022 02:13:06 -0400 (EDT) |
branch: master
commit 5fe9a1a85ae6d54196031157a735352f6ab655ff
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
; Fix doc string of 'loaddefs-generate'
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Doc fix.
(Bug#57815)
---
lisp/emacs-lisp/loaddefs-gen.el | 4 ++--
src/w32fns.c | 45 +++++++++++++++++++++++++++++++++++++++++
2 files changed, 47 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 005a46c2d7..5819a26eb5 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -512,7 +512,7 @@ If COMPILE, don't include a \"don't compile\" cookie."
(defun loaddefs-generate (dir output-file &optional excluded-files
extra-data include-package-version
generate-full)
- "Generate loaddefs files for Lisp files in the directories DIRS.
+ "Generate loaddefs files for Lisp files in one or more directories given by
DIR.
DIR can be either a single directory or a list of directories.
The autoloads will be written to OUTPUT-FILE. If any Lisp file
@@ -520,7 +520,7 @@ binds `generated-autoload-file' as a file-local variable,
write
its autoloads into the specified file instead.
The function does NOT recursively descend into subdirectories of the
-directory or directories specified by DIRS.
+directories specified by DIR.
Optional argument EXCLUDED-FILES, if non-nil, should be a list of
files, such as preloaded files, whose autoloads should not be written
diff --git a/src/w32fns.c b/src/w32fns.c
index 745458d0a0..57296bd4e0 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -10447,6 +10447,51 @@ w32_get_resource (const char *key, const char *name,
LPDWORD lpdwtype)
return (NULL);
}
+#ifdef WINDOWSNT
+
+/***********************************************************************
+ Wallpaper
+ ***********************************************************************/
+
+#if 0
+
+typedef BOOL (WINAPI * SystemParametersInfoW_Proc) (UINT,UINT,PVOID,UINT);
+static SystemParametersInfoW_Proc system_parameters_info_w_fn;
+
+DEFUN ("w32-set-wallpaper", Fw32_set_wallpaper, Sw32_set_wallpaper, 1, 1, 0,
+ doc: /* Set the desktop wallpaper image to IMAGE-FILE. */)
+ (Lisp_Object image_file)
+{
+ Lisp_Object encoded = ENCODE_FILE (Fexpand_file_name (image_file, Qnil));
+ char *fname = SSDATA (encoded);
+
+ if (w32_unicode_filenames)
+ {
+ }
+ else
+ {
+ char fname_a[MAX_PATH];
+
+ if (filename_to_ansi (fname, fname_a) != 0)
+ error ("Wallpaper file %s does not exist or cannot be accessed", fname);
+
+ BOOL result = SystemParametersInfoA (SPI_SETDESKWALLPAPER, 0, fname_a,
+ SPIF_SENDCHANGE);
+ if (!result)
+ {
+ DWORD err = GetLastError ();
+ if (err)
+ error ("Could not set wallpaper: %s", w32_strerror (err));
+ else
+ error ("Could not set wallpaper");
+ }
+ }
+ return Qnil;
+}
+#endif
+
+#endif
+
/***********************************************************************
Initialization
***********************************************************************/
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 5fe9a1a85a: ; Fix doc string of 'loaddefs-generate',
Eli Zaretskii <=