Return to grow-vers.el CVS log

Up to [Apple XNU] / GNUtools / emacs / lisp

Annotation of GNUtools/emacs/lisp/grow-vers.el, revision 1.1.1.1

1.1       root        1: ;; Load this file to add a new level (starting at zero)
                      2: ;; to the Emacs version number recorded in version.el.
                      3: ;; Copyright (C) 1985 Free Software Foundation, Inc.
                      4: 
                      5: ;; This file is part of GNU Emacs.
                      6: 
                      7: ;; GNU Emacs is free software; you can redistribute it and/or modify
                      8: ;; it under the terms of the GNU General Public License as published by
                      9: ;; the Free Software Foundation; either version 1, or (at your option)
                     10: ;; any later version.
                     11: 
                     12: ;; GNU Emacs is distributed in the hope that it will be useful,
                     13: ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
                     14: ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     15: ;; GNU General Public License for more details.
                     16: 
                     17: ;; You should have received a copy of the GNU General Public License
                     18: ;; along with GNU Emacs; see the file COPYING.  If not, write to
                     19: ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
                     20: 
                     21: 
                     22: (insert-file-contents "lisp/version.el")
                     23: 
                     24: (re-search-forward "emacs-version \"[0-9.]*")
                     25: (insert ".0")
                     26: 
                     27: ;; Delete the share-link with the current version
                     28: ;; so that we do not alter the current version.
                     29: (delete-file "lisp/version.el")
                     30: (write-region (point-min) (point-max) "lisp/version.el" nil 'nomsg)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.