mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Extend emacs-version based on which executable files exist.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-07 14:18:17 +00:00
parent 0a3e18a0a9
commit de78a7baa8
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/loadup.el
View File

@ -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