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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e2814ca08c9239a0f662af9cc54fe435eac6ccf..c0566f0b7b151bffeed74733979f16e4d4225481 100644 (file)
--- 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 1167d852a54b698c585631acfb39dc49cfceac88..5c821d64a74bd5708cf41e0e56e1a74ab94aa29a 100644 (file)
--- 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 @@
 \f
 ;;; 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)))))
 
 \f
 ;; Helper functions for font-lock.