Mercurial > emacs

comparison lisp/progmodes/ps-mode.el @ 26421:a89f2624e1eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ps-mode-submit-bug-report): Added list of customizable variables to bug report message. Added system-type to package name in bug report.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 12 Nov 1999 13:00:00 +0000
parents 541f35936e05
children dcb6f87d8280
comparison
equal deleted inserted replaced
26420:00b7d6135be4 26421:a89f2624e1eb
3 ;; Copyright (C) 1999 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999 Free Software Foundation, Inc.
4 4
5 ;; Author: Peter Kleiweg <kleiweg@let.rug.nl> 5 ;; Author: Peter Kleiweg <kleiweg@let.rug.nl>
6 ;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl> 6 ;; Maintainer: Peter Kleiweg <kleiweg@let.rug.nl>
7 ;; Created: 20 Aug 1997 7 ;; Created: 20 Aug 1997
8 ;; Version: 1.1d, 9 Nov 1999 8 ;; Version: 1.1e, 11 Nov 1999
9 ;; Keywords: PostScript, languages 9 ;; Keywords: PostScript, languages
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 (defconst ps-mode-version "1.1d, 9 Nov 1999") 33 (defconst ps-mode-version "1.1e, 11 Nov 1999")
34 (defconst ps-mode-maintainer-address "Peter Kleiweg <kleiweg@let.rug.nl>") 34 (defconst ps-mode-maintainer-address "Peter Kleiweg <kleiweg@let.rug.nl>")
35 35
36 (require 'easymenu) 36 (require 'easymenu)
37 37
38 ;; Define core `PostScript' group. 38 ;; Define core `PostScript' group.
542 542
543 (defun ps-mode-submit-bug-report () 543 (defun ps-mode-submit-bug-report ()
544 "Submit via mail a bug report on PostScript mode" 544 "Submit via mail a bug report on PostScript mode"
545 (interactive) 545 (interactive)
546 (when (y-or-n-p "Submit bug report on PostScript mode? ") 546 (when (y-or-n-p "Submit bug report on PostScript mode? ")
547 (let ((reporter-prompt-for-summary-p nil)) 547 (let ((reporter-prompt-for-summary-p nil)
548 (reporter-dont-compact-list '(ps-mode-print-function
549 ps-run-font-lock-keywords-2)))
548 (reporter-submit-bug-report 550 (reporter-submit-bug-report
549 ps-mode-maintainer-address 551 ps-mode-maintainer-address
550 (concat "ps-mode.el " ps-mode-version) 552 (format "ps-mode.el %s [%s]" ps-mode-version system-type)
551 nil)))) 553 '(ps-mode-auto-indent
554 ps-mode-tab
555 ps-mode-paper-size
556 ps-mode-print-function
557 ps-run-prompt
558 ps-run-font-lock-keywords-2
559 ps-run-x
560 ps-run-dumb
561 ps-run-init
562 ps-run-error-line-numbers
563 ps-run-tmp-dir)))))
552 564
553 565
554 ;; Helper functions for font-lock. 566 ;; Helper functions for font-lock.
555 567
556 ;; When this function is called, point is at an opening bracket. 568 ;; When this function is called, point is at an opening bracket.