From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 10 Nov 1999 22:14:06 +0000 (+0000)
Subject: (ps-mode-maintainer-address): New constant.
X-Git-Tag: emacs-pretest-21.0.90~6132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aebf9ad1d25132d1d8293555b9fdaccf25937398;p=emacs.git

(ps-mode-maintainer-address): New constant.
(ps-mode-submit-bug-report): New function. Entry added to menu.
---

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 82e31226dd9..1167d852a54 100644
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -5,7 +5,7 @@
 ;; Author:     Peter Kleiweg <kleiweg@let.rug.nl>
 ;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl>
 ;; Created:    20 Aug 1997
-;; Version:    1.1c, 5 Nov 1999
+;; Version:    1.1d, 9 Nov 1999
 ;; Keywords:   PostScript, languages
 
 ;; This file is part of GNU Emacs.
@@ -30,7 +30,8 @@
 
 ;;; Code:
 
-(defconst ps-mode-version "1.1c, 5 Nov 1999")
+(defconst ps-mode-version "1.1d, 9 Nov 1999")
+(defconst ps-mode-maintainer-address "Peter Kleiweg <kleiweg@let.rug.nl>")
 
 (require 'easymenu)
 
@@ -394,6 +395,10 @@ If nil, the following are tried in turn, until success:
     "---"
     ["Customize for PostScript"
      (customize-group "PostScript")
+     t]
+    "---"
+    ["Submit Bug Report"
+     ps-mode-submit-bug-report
      t]))
 
 
@@ -535,6 +540,16 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
   (interactive)
   (message " *** PostScript Mode (ps-mode) Version %s *** " ps-mode-version))
 
+(defun ps-mode-submit-bug-report ()
+  "Submit via mail a bug report on PostScript mode"
+  (interactive)
+  (when (y-or-n-p "Submit bug report on PostScript mode? ")  
+    (let ((reporter-prompt-for-summary-p nil))
+      (reporter-submit-bug-report
+       ps-mode-maintainer-address
+       (concat "ps-mode.el " ps-mode-version)
+       nil))))
+
 
 ;; Helper functions for font-lock.