
(defun vm-show-copying-restrictions (&optional warranty) (interactive) (byte-code "Б€ГД!€БЕЖЏ† БЗИЏ† ЙК!€…+ ЛМБВ#€НО!€ПР `\"‡" [warranty nil t require info (byte-code "БВ!€А‡" [t Info-goto-node "(vm)License"] 2) ((error (byte-code "А‡" [nil] 1))) (byte-code "БВ!€А‡" [t Info-goto-node "(vm.info)License"] 2) ((error (byte-code "А‡" [nil] 1))) error "VM Info documentation appears not to be installed" search-forward "NO WARRANTY
" forward-line -1 set-window-start selected-window] 8))

(defun vm-show-no-warranty nil "\
Display \"NO WARRANTY\" section of the GNU General Public License." (interactive) (byte-code "Б€ВА!‡" [t nil vm-show-copying-restrictions] 2))