Return to grow-vers.el CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp

Annotation of 43BSD/contrib/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 Richard M. Stallman.
                      4: 
                      5: ;; This file is part of GNU Emacs.
                      6: 
                      7: ;; GNU Emacs is distributed in the hope that it will be useful,
                      8: ;; but WITHOUT ANY WARRANTY.  No author or distributor
                      9: ;; accepts responsibility to anyone for the consequences of using it
                     10: ;; or for whether it serves any particular purpose or works at all,
                     11: ;; unless he says so in writing.  Refer to the GNU Emacs General Public
                     12: ;; License for full details.
                     13: 
                     14: ;; Everyone is granted permission to copy, modify and redistribute
                     15: ;; GNU Emacs, but only under the conditions described in the
                     16: ;; GNU Emacs General Public License.   A copy of this license is
                     17: ;; supposed to have been given to you along with GNU Emacs so you
                     18: ;; can know your rights and responsibilities.  It should be in a
                     19: ;; file named COPYING.  Among other things, the copyright notice
                     20: ;; and this notice must be preserved on all copies.
                     21: 
                     22: 
                     23: (insert-file-contents "lisp/version.el")
                     24: 
                     25: (re-search-forward "emacs-version \"[0-9.]*")
                     26: (insert ".0")
                     27: 
                     28: ;; Delete the share-link with the current version
                     29: ;; so that we do not alter the current version.
                     30: (delete-file "lisp/version.el")
                     31: (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.