home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / emacs-15.0.3 / lisp / grow-vers.el < prev    next >
Text File  |  1990-07-19  |  1KB  |  32 lines
  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 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)
  32.