home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / vm / vm-5.33beta / vm-license.el < prev    next >
Encoding:
Text File  |  1991-04-21  |  1.4 KB  |  39 lines
  1. ;;; Code to show VM's warranty and copying restrictions
  2. ;;; Copyright (C) 1989 Kyle E. Jones
  3. ;;;
  4. ;;; This program is free software; you can redistribute it and/or modify
  5. ;;; it under the terms of the GNU General Public License as published by
  6. ;;; the Free Software Foundation; either version 1, or (at your option)
  7. ;;; any later version.
  8. ;;;
  9. ;;; This program is distributed in the hope that it will be useful,
  10. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ;;; GNU General Public License for more details.
  13. ;;;
  14. ;;; You should have received a copy of the GNU General Public License
  15. ;;; along with this program; if not, write to the Free Software
  16. ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18. (defun vm-show-copying-restrictions (&optional warranty)
  19.   (interactive)
  20.   (require 'info)
  21.   (or 
  22.    (condition-case ()
  23.        (progn (Info-goto-node "(vm)License") t)
  24.      (error nil))
  25.    (condition-case ()
  26.        (progn (Info-goto-node "(vm.info)License") t)
  27.      (error nil))
  28.    (error "VM Info documentation appears not to be installed"))
  29.   (if warranty
  30.       (progn
  31.     (search-forward "NO WARRANTY\n" nil t)
  32.     (forward-line -1)
  33.     (set-window-start (selected-window) (point)))))
  34.  
  35. (defun vm-show-no-warranty ()
  36.   "Display \"NO WARRANTY\" section of the GNU General Public License."
  37.   (interactive)
  38.   (vm-show-copying-restrictions t))
  39.