(setq tem (cdr tem))))
(princ ")))\n" (current-buffer))
(write-region (point-min) (point-max)
- (expand-file-name (format "fns-%s.el" emacs-version)))
+ (expand-file-name
+ (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)
(set-buffer-modified-p nil)