# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 942272046 0
# Node ID 541f35936e053172938961f13ea9d59d1889f223
# Parent  9457656ded8b24053823cec630a06a48b24f94e6
(ps-mode-maintainer-address): New constant.
(ps-mode-submit-bug-report): New function. Entry added to menu.

diff -r 9457656ded8b -r 541f35936e05 lisp/progmodes/ps-mode.el
--- a/lisp/progmodes/ps-mode.el	Wed Nov 10 22:05:36 1999 +0000
+++ b/lisp/progmodes/ps-mode.el	Wed Nov 10 22:14:06 1999 +0000
@@ -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 @@
     "---"
     ["Customize for PostScript"
      (customize-group "PostScript")
+     t]
+    "---"
+    ["Submit Bug Report"
+     ps-mode-submit-bug-report
      t]))
 
 
@@ -535,6 +540,16 @@
   (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.