|
0
|
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))
|
|
155
|
24 (pop-up-frames (and vm-mutable-frames vm-frame-per-help)))
|
|
0
|
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))
|
