Mercurial > hg > xemacs-beta
comparison lisp/vm/vm-license.el @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children | 05472e90ae02 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 1 ;;; Code to show VM's warranty and copying restrictions | |
| 2 ;;; Copyright (C) 1989, 1994 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 (provide 'vm-license) | |
| 19 | |
| 20 (defun vm-show-copying-restrictions (&optional warranty) | |
| 21 (interactive) | |
| 22 (require 'info) | |
| 23 (let ((pop-up-windows (eq vm-mutable-windows t)) | |
| 24 (pop-up-frames vm-mutable-frames)) | |
| 25 (or | |
| 26 (condition-case () | |
| 27 (progn (Info-goto-node "(vm)License") t) | |
| 28 (error nil)) | |
| 29 (condition-case () | |
| 30 (progn (Info-goto-node "(vm.info)License") t) | |
| 31 (error nil)) | |
| 32 (error "VM Info documentation appears not to be installed")) | |
| 33 (vm-display (current-buffer) t nil nil) | |
| 34 (vm-display nil nil '(vm-show-copying-restrictions vm-show-no-warranty) | |
| 35 (list this-command)) | |
| 36 (if warranty | |
| 37 (let ((case-fold-search nil)) | |
| 38 (search-forward "NO WARRANTY\n" nil t) | |
| 39 (forward-line -1) | |
| 40 (set-window-start (selected-window) (point)))))) | |
| 41 | |
| 42 (defun vm-show-no-warranty () | |
| 43 "Display \"NO WARRANTY\" section of the GNU General Public License." | |
| 44 (interactive) | |
| 45 (vm-show-copying-restrictions t)) |