procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ps-mode-maintainer-address): New constant.

Browse source 
(ps-mode-submit-bug-report): New function. Entry added to menu.
This commit is contained in:
Gerd Moellmann 1999-11-10 22:14:06 +00:00
parent bfd2209f52
commit aebf9ad1d2
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/progmodes/ps-mode.el
View file

@ -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.