(ps-mode-submit-bug-report): Added list

of customizable variables to bug report message. Added
system-type to package name in bug report.

2 files changed, 23 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e2814ca08c..c0566f0b7b1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+1999-11-12  Peter Kleiweg  <kleiweg@let.rug.nl>
+
+        * progmodes/ps-mode.el (ps-mode-submit-bug-report): Added list
+        of customizable variables to bug report message. Added
+        system-type to package name in bug report.
+        
 1999-11-12  Gerd Moellmann  <gerd@gnu.org>
 
         * buff-menu.el (list-buffers-noselect): Use abbreviate-file-name
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index 1167d852a54..5c821d64a74 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.1d, 9 Nov 1999
+;; Version:    1.1e, 11 Nov 1999
 ;; Keywords:   PostScript, languages
 
 ;; This file is part of GNU Emacs.
@@ -30,7 +30,7 @@
 
 ;;; Code:
 
-(defconst ps-mode-version "1.1d, 9 Nov 1999")
+(defconst ps-mode-version "1.1e, 11 Nov 1999")
 (defconst ps-mode-maintainer-address "Peter Kleiweg <kleiweg@let.rug.nl>")
 
 (require 'easymenu)
@@ -544,11 +544,23 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
   "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))
+    (let ((reporter-prompt-for-summary-p nil)
+          (reporter-dont-compact-list '(ps-mode-print-function
+                                        ps-run-font-lock-keywords-2)))
       (reporter-submit-bug-report
        ps-mode-maintainer-address
-       (concat "ps-mode.el " ps-mode-version)
-       nil))))
+       (format "ps-mode.el %s [%s]" ps-mode-version system-type)
+       '(ps-mode-auto-indent
+         ps-mode-tab
+         ps-mode-paper-size
+         ps-mode-print-function
+         ps-run-prompt
+         ps-run-font-lock-keywords-2
+         ps-run-x
+         ps-run-dumb
+         ps-run-init
+         ps-run-error-line-numbers
+         ps-run-tmp-dir)))))
 
 
 ;; Helper functions for font-lock.