mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-21 05:00:47 -08:00
Code Issues Projects Releases Wiki Activity

(crisp-submit-bug-report): Function deleted. Binding deleted also.

Browse source
This commit is contained in:
Richard M. Stallman 1999-05-24 22:25:57 +00:00
parent 3da6cc2655
commit 3619d13102
1 changed files with 1 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/emulation/crisp.el
View file

@ -3,6 +3,7 @@
;; Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc.
;; Author: Gary D. Foster <gfoster@suzieq.ml.org> ;; Author: Gary D. Foster <gfoster@suzieq.ml.org>
;; Maintainer: FSF (unless Foster can be recontacted)
;; Keywords: emulations brief crisp ;; Keywords: emulations brief crisp
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
@ -265,8 +266,6 @@ does not load the scroll-all package."
(move-to-window-line -1))) (move-to-window-line -1)))
(define-key crisp-mode-map [(meta end)] 'end-of-line) (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) (defun crisp-version (&optional arg)
"Version number of the CRiSP emulator package. "Version number of the CRiSP emulator package.
If ARG, insert results at point." If ARG, insert results at point."
@ -359,27 +358,6 @@ normal CRiSP binding) and when it is nil M-x will run
(save-buffers-kill-emacs) (save-buffers-kill-emacs)
(call-interactively 'execute-extended-command))) (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 ;; Now enable the mode
;;;###autoload ;;;###autoload