Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-report.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 8fc7fe29b841
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-report.el 4 ;; File: efs-report.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: $Revision: 1.9 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Function to report efs bugs in a usable way. 8 ;; Description: Function to report efs bugs in a usable way.
9 ;; Author: Andy Norman, Dawn 9 ;; Author: Andy Norman, Dawn
10 ;; Created: Tue May 18 08:34:45 1993 10 ;; Created: Tue May 18 08:34:45 1993
11 ;; Modified: Sun Nov 27 18:41:45 1994 by sandy on gandalf
12 ;; Language: Emacs-Lisp 11 ;; Language: Emacs-Lisp
13 ;; 12 ;;
14 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 13 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15 14
16 (provide 'efs-report) 15 (provide 'efs-report)
21 ;;; Variables 20 ;;; Variables
22 21
23 (defconst efs-report-version 22 (defconst efs-report-version
24 (concat (substring "$efs release: 1.15 $" 14 -2) 23 (concat (substring "$efs release: 1.15 $" 14 -2)
25 "/" 24 "/"
26 (substring "$Revision: 1.1 $" 11 -2))) 25 (substring "$Revision: 1.9 $" 11 -2)))
27 26
28 (defconst efs-report-salutations 27 (defconst efs-report-salutations
29 ["Dear bug team:" 28 ["Dear bug team:"
30 "Ciao bug team:" 29 "Ciao bug team:"
31 "Salut bug team:" 30 "Salut bug team:"
161 (if (or (fboundp 'yow) (load "yow" t t)) (yow) "")) 160 (if (or (fboundp 'yow) (load "yow" t t)) (yow) ""))
162 (point)) 161 (point))
163 ?\n ?\ ) 162 ?\n ?\ )
164 (insert subj))))) 163 (insert subj)))))
165 164
165 ;;;###autoload
166 (defun efs-report-bug (&optional default-host default-user blurb no-confirm) 166 (defun efs-report-bug (&optional default-host default-user blurb no-confirm)
167 "Submit a bug report for efs." 167 "Submit a bug report for efs."
168 (interactive) 168 (interactive)
169 (let (;; reporter-confirm-p and reporter-package-abbrev appeared once 169 (let (;; reporter-confirm-p and reporter-package-abbrev appeared once
170 ;; as fluid vars in reporter.el. They aren't used any longer, 170 ;; as fluid vars in reporter.el. They aren't used any longer,