Mercurial > emacs
changeset 5489:3f6777439468
Extend emacs-version based on which executable files exist.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jan 1994 14:18:17 +0000 |
| parents | 8ea27d63e52b |
| children | 8e8648ef3103 |
| files | lisp/loadup.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/loadup.el Fri Jan 07 14:15:21 1994 +0000 +++ b/lisp/loadup.el Fri Jan 07 14:18:17 1994 +0000 @@ -122,6 +122,18 @@ (load "version.el") ;Don't get confused if someone compiled version.el by mistake. +;; Determine which last version number to use +;; based on the executables that now exist. +(if (and (fboundp 'dump-emacs) (not (eq system-type 'ms-dos))) + (let* ((base (concat "emacs-" emacs-version)) + (files (file-name-all-completions base default-directory)) + (versions (mapcar (function (lambda (name) + (string-to-int (substring name (1+ (length base)))))) + files))) + (setq emacs-version (format "%s.%d" + emacs-version + (1+ (apply 'max versions)))))) + ;; Note: all compiled Lisp files loaded above this point ;; must be among the ones parsed by make-docfile ;; to construct DOC. Any that are not processed