diff options
Diffstat (limited to 'lisp/inc-vers.el')
-rw-r--r-- | lisp/inc-vers.el | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lisp/inc-vers.el b/lisp/inc-vers.el index 13a4fb17e80..bd23aa8a728 100644 --- a/lisp/inc-vers.el +++ b/lisp/inc-vers.el @@ -18,7 +18,18 @@ ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -(insert-file-contents "../lisp/version.el") +;; Find the file version.el in the path for lisp files, +;; and set version-file. +(setq version-file nil) +(setq temp (mapcar '(lambda (dir) + (cons dir (file-exists-p (expand-file-name "version.el" dir)))) + load-path)) +(while temp + (and (cdr (car temp)) (null version-file) + (setq version-file (expand-file-name "version.el" (car (car temp))))) + (setq temp (cdr temp))) + +(insert-file-contents version-file) (re-search-forward "emacs-version \"[^\"]*[0-9]+\"") (forward-char -1) @@ -36,7 +47,7 @@ (progn (skip-chars-forward "^\"") (point)))) -(write-region (point-min) (point-max) "../lisp/version.el" nil 'nomsg) +(write-region (point-min) (point-max) version-file nil 'nomsg) (erase-buffer) (set-buffer-modified-p nil) |