Mercurial > emacs

changeset 82429:a026094590fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Remove the last number of `emacs-version', use the topic prefix ``version; ''.
author Michaël Cadilhac <michael.cadilhac@lrde.org>
date Fri, 17 Aug 2007 10:10:00 +0000
parents 8e687f7c8e5a
children 5c17a56b467b
files lisp/mail/emacsbug.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Fri Aug 17 07:55:25 2007 +0000
+++ b/lisp/mail/emacsbug.el	Fri Aug 17 10:10:00 2007 +0000
@@ -75,7 +75,8 @@
   (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.
-  (setq topic (concat "Bug: " 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, this is a pretest
   ;; version.
   (let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version))