diff lisp/w32-fns.el @ 67794:09f3c0ac0073

(w32-batch-update-autoloads): New function.

--- a/lisp/w32-fns.el	Sat Dec 24 06:52:56 2005 +0000
+++ b/lisp/w32-fns.el	Sat Dec 24 12:49:52 2005 +0000
@@ -456,6 +456,18 @@
 (setq interprogram-cut-function 'x-select-text)
 (setq interprogram-paste-function 'x-get-selection-value)
 
+
+;;;; Support for build process
+(defun w32-batch-update-autoloads ()
+  "Like `batch-update-autoloads', but takes the name of the autoloads file
+from the command line.
+
+This is required because some Windows build environments, such as MSYS,
+munge command-line arguments that include file names to a horrible mess
+that Emacs is unable to cope with."
+  (let ((generated-autoload-file
+	 (expand-file-name (pop command-line-args-left))))
+    (batch-update-autoloads)))
 
 ;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
 ;;; w32-fns.el ends here