# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 927584757 0
# Node ID 0b882049980c8f2fc262cc88bac9b709c85ef433
# Parent  c9cc4db4508f8b1a543fe5849676d1114cef085d
(crisp-submit-bug-report): Function deleted.  Binding deleted also.

diff -r c9cc4db4508f -r 0b882049980c lisp/emulation/crisp.el
--- a/lisp/emulation/crisp.el	Mon May 24 22:23:35 1999 +0000
+++ b/lisp/emulation/crisp.el	Mon May 24 22:25:57 1999 +0000
@@ -3,6 +3,7 @@
 ;; Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc.
 
 ;; Author: Gary D. Foster <gfoster@suzieq.ml.org>
+;; Maintainer: FSF (unless Foster can be recontacted)
 ;; Keywords: emulations brief crisp
 
 ;; This file is part of GNU Emacs.
@@ -265,8 +266,6 @@
 						 (move-to-window-line -1)))
 (define-key crisp-mode-map [(meta end)]        'end-of-line)
 
-(define-key crisp-mode-map [(control c) (b)]   'crisp-submit-bug-report)
-
 (defun crisp-version (&optional arg)
   "Version number of the CRiSP emulator package.
 If ARG, insert results at point."
@@ -359,27 +358,6 @@
       (save-buffers-kill-emacs)
     (call-interactively 'execute-extended-command)))
 
-;; bug reporter
-
-(defun crisp-submit-bug-report ()
-  "Submit via mail a bug report on CRiSP Mode."
-  (interactive)
-  ;; load in reporter
-  (let ((reporter-prompt-for-summary-p t)
-	(reporter-dont-compact-list '(c-offsets-alist)))
-    (and
-     (if (y-or-n-p "Do you want to submit a report on CRiSP Mode? ")
-	 t (message "") nil)
-     (require 'reporter)
-     (reporter-submit-bug-report
-      crisp-mode-help-address
-      (concat "CRiSP Mode [" crisp-version "]")
-      nil
-      nil
-      nil
-      "Dear Gary,"
-      ))))
-
 ;; Now enable the mode
 
 ;;;###autoload