mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Geoff Voelker 1998-12-07 19:27:14 +00:00
parent c7e73b89dc
commit e9847e6c13
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/loadup.el
View File

@ -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)