;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:19:45 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-license.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'vm-show-copying-restrictions #[(&optional warranty) "!\n= ɏˏ!plj$ljC$#y `\")*" [require info vm-mutable-windows t vm-mutable-frames pop-up-frames pop-up-windows nil (byte-code "!‡" [Info-goto-node "(vm)License" t] 2) ((error)) (byte-code "!‡" [Info-goto-node "(vm.info)License" t] 2) ((error)) error "VM Info documentation appears not to be installed" vm-display (vm-show-copying-restrictions vm-show-no-warranty) this-command warranty case-fold-search search-forward "NO WARRANTY\n" -1 set-window-start selected-window] 5 nil nil]) (fset 'vm-show-no-warranty #[nil "!" [vm-show-copying-restrictions t] 2 "\ Display \"NO WARRANTY\" section of the GNU General Public License." nil])