Mercurial > emacs
changeset 26402:541f35936e05
(ps-mode-maintainer-address): New constant.
(ps-mode-submit-bug-report): New function. Entry added to menu.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 10 Nov 1999 22:14:06 +0000 |
| parents | 9457656ded8b |
| children | 03830fdf5186 |
| files | lisp/progmodes/ps-mode.el |
| diffstat | 1 files changed, 17 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.