diff options
| author | Richard M. Stallman | 1995-10-30 19:28:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-30 19:28:49 +0000 |
| commit | 0c39a40329bacd385b59b897bf208aadfc8fb428 (patch) | |
| tree | ba468f0b6f3923f0e01060d86a5e041578a810c8 | |
| parent | 9993b5610cd7c82669de43fbad0bc3d022450b77 (diff) | |
| download | emacs-0c39a40329bacd385b59b897bf208aadfc8fb428.tar.gz emacs-0c39a40329bacd385b59b897bf208aadfc8fb428.zip | |
(finding existing executable versions): Add a period to the end of BASE.
| -rw-r--r-- | lisp/loadup.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/loadup.el b/lisp/loadup.el index 9e9f201d24b..e6b790691a0 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -150,7 +150,7 @@ | |||
| 150 | (if (and (or (equal (nth 3 command-line-args) "dump") | 150 | (if (and (or (equal (nth 3 command-line-args) "dump") |
| 151 | (equal (nth 4 command-line-args) "dump")) | 151 | (equal (nth 4 command-line-args) "dump")) |
| 152 | (not (eq system-type 'ms-dos))) | 152 | (not (eq system-type 'ms-dos))) |
| 153 | (let* ((base (concat "emacs-" emacs-version)) | 153 | (let* ((base (concat "emacs-" emacs-version ".")) |
| 154 | (files (file-name-all-completions base default-directory)) | 154 | (files (file-name-all-completions base default-directory)) |
| 155 | (versions (mapcar (function (lambda (name) | 155 | (versions (mapcar (function (lambda (name) |
| 156 | (string-to-int (substring name (1+ (length base)))))) | 156 | (string-to-int (substring name (1+ (length base)))))) |