diff options
Diffstat (limited to 'vm-license.el')
-rw-r--r-- | vm-license.el | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/vm-license.el b/vm-license.el deleted file mode 100644 index 7060c8a..0000000 --- a/vm-license.el +++ /dev/null @@ -1,47 +0,0 @@ -;;; Code to show VM's warranty and copying restrictions -;;; Copyright (C) 1989, 1994 Kyle E. Jones -;;; -;;; This program is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 1, or (at your option) -;;; any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program; if not, write to the Free Software -;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - -;;(provide 'vm-license) - -(defun vm-show-copying-restrictions (&optional warranty) - (interactive) - (require 'info) - (let ((pop-up-windows (eq vm-mutable-windows t)) - (pop-up-frames (and vm-mutable-frames vm-frame-per-help))) - (or - (condition-case () - (progn (Info-goto-node "(vm)License") t) - (error nil)) - (condition-case () - (progn (Info-goto-node "(vm.info)License") t) - (error nil)) - (error "VM Info documentation appears not to be installed")) - (vm-display (current-buffer) t nil nil) - (vm-display nil nil '(vm-show-copying-restrictions vm-show-no-warranty) - (list this-command)) - (if warranty - (let ((case-fold-search nil)) - (search-forward "NO WARRANTY\n" nil t) - (forward-line -1) - (set-window-start (selected-window) (point)))))) - -(defun vm-show-no-warranty () - "Display \"NO WARRANTY\" section of the GNU General Public License." - (interactive) - (vm-show-copying-restrictions t)) - -(provide 'vm-license) |