From de78a7baa872293027a23dbfb8b8edb3ec3c8cff Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jan 1994 14:18:17 +0000 Subject: Extend emacs-version based on which executable files exist. --- lisp/loadup.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/loadup.el b/lisp/loadup.el index a87190fb01..52472eb277 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -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 -- cgit v1.2.3