Commit de78a7ba authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Extend emacs-version based on which executable files exist.

parent 0a3e18a0
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment