# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 909719806 0
# Node ID ae5eea3cc3148f26ec5a5b6cf9496a480a9a6524
# Parent  e782dce34a198be58f7b189e6c2517c475e319d4
Remove a dangling reference to a directory on the
build machine.

diff -r e782dce34a19 -r ae5eea3cc314 lisp/w32-fns.el
--- a/lisp/w32-fns.el	Fri Oct 30 03:56:25 1998 +0000
+++ b/lisp/w32-fns.el	Fri Oct 30 03:56:46 1998 +0000
@@ -193,6 +193,21 @@
 
 (add-hook 'before-init-hook 'w32-init-info)
 
+;;; The variable source-directory is used to initialize Info-directory-list.
+;;; However, the common case is that Emacs is being used from a binary
+;;; distribution, and the value of source-directory is meaningless in that
+;;; case.  Even worse, source-directory can refer to a directory on a drive
+;;; on the build machine that happens to be a removable drive on the user's
+;;; machine.  When this happens, Emacs tries to access the removable drive
+;;; and produces the abort/retry/ignore dialog.  Since we do not use
+;;; source-directory, set it to something that is a reasonable approximation
+;;; on the user's machine.
+
+(add-hook 'before-init-hook 
+	  '(lambda ()
+	     (setq source-directory (file-name-as-directory 
+				     (expand-file-name ".." exec-directory)))))
+
 ;; Avoid creating auto-save file names containing invalid characters.
 (fset 'original-make-auto-save-file-name
       (symbol-function 'make-auto-save-file-name))