From: Geoff Voelker <voelker@cs.washington.edu>
Date: Mon, 7 Dec 1998 19:27:14 +0000 (+0000)
Subject: (buffer-undo-list) [windows-nt]: Use different relative path.
X-Git-Tag: emacs-20.4~1121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9847e6c13b4ce0eca9748444385de3658425a50;p=emacs.git

(buffer-undo-list) [windows-nt]: Use different relative path.
---

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 1f42285d451..dbc8966d08c 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -226,9 +226,13 @@
   (princ ")))\n" (current-buffer))
   (write-region (point-min) (point-max)
 		(expand-file-name
-		 (if (eq system-type 'ms-dos)
-		     "../lib-src/fns.el"
-		   (format "../lib-src/fns-%s.el" emacs-version))
+		 (cond 
+		  ((eq system-type 'ms-dos)
+		   "../lib-src/fns.el")
+		  ((eq system-type 'windows-nt)
+		   (format "../../../lib-src/fns-%s.el" emacs-version))
+		  (t
+		   (format "../lib-src/fns-%s.el" emacs-version)))
 		 invocation-directory))
   (erase-buffer))
 (setq load-history nil)