procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix snafu with missing etc/DOC-X.

Browse source
This commit is contained in:
Eli Zaretskii 2013-04-06 18:00:01 +03:00
parent 2b57bbc042
commit c31abc6232
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/loadup.el
View file

@ -311,8 +311,18 @@
"-"
(substring name (match-end 0)))))
(if (memq system-type '(ms-dos windows-nt))
(setq name (expand-file-name
(if (fboundp 'x-create-frame) "DOC-X" "DOC") "../etc"))
(let ((name1 (expand-file-name
(if (fboundp 'x-create-frame) "DOC-X" "DOC")
"../etc")))
;; There will be no DOC-X on MS-Windows when we build
;; using the Posix Makefile's. In that case, we want
;; to create DOC-XX.YY.ZZ, as on Unix.
(if (file-exists-p name)
(setq name name1)
(setq name (concat (expand-file-name "../etc/DOC-") name))
(if (file-exists-p name)
(delete-file name))
(copy-file (expand-file-name "../etc/DOC") name t)))
(setq name (concat (expand-file-name "../etc/DOC-") name))
(if (file-exists-p name)
(delete-file name))