Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(report-emacs-bug): Make MS-DOS a special case (there's no build number).

Browse source
This commit is contained in:
Michaël Cadilhac 2007-08-17 19:38:58 +00:00
parent 5332117f2c
commit ef77dde4c3
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -7,7 +7,8 @@
2007-08-17 Micha,Ak(Bl Cadilhac <michael@cadilhac.name>
* mail/emacsbug.el (report-emacs-bug): Remove the last number of
`emacs-version', use the topic prefix ``version; ''.
`emacs-version', use the topic prefix ``version; ''. Make MS-DOS
a special case (there's no build number).
2007-08-17 T. V. Raman <raman@users.sf.net> (tiny change)

15
lisp/mail/emacsbug.el
View file

@ -75,11 +75,16 @@ Prompts for bug subject. Leaves you in a mail buffer."
(interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
;; The syntax `version;' is preferred to `[version]' because the
;; latter could be mistakenly stripped by mailing software.
(when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
(setq topic (concat (match-string 1 emacs-version) "; " topic)))
;; If there are four numbers in emacs-version, this is a pretest
;; version.
(let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version))
(if (eq system-type 'ms-dos)
(setq topic (concat emacs-version "; " topic))
(when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
(setq topic (concat (match-string 1 emacs-version) "; " topic))))
;; If there are four numbers in emacs-version (three for MS-DOS),
;; this is a pretest version.
(let* ((pretest-p (string-match (if (eq system-type 'ms-dos)
"\\..*\\."
"\\..*\\..*\\.")
emacs-version))
(from-buffer (current-buffer))
(reporting-address (if pretest-p
report-emacs-bug-pretest-address