Mercurial > emacs
changeset 23571:ae5eea3cc314
Remove a dangling reference to a directory on the
build machine.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Fri, 30 Oct 1998 03:56:46 +0000 |
| parents | e782dce34a19 |
| children | 1fa5f9f5c92e |
| files | lisp/w32-fns.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))