From 30cc206bf35a1b3bf76753bee1c06c390de4f1a4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=C3=ABl=20Cadilhac?= Date: Fri, 17 Aug 2007 10:10:11 +0000 Subject: [PATCH] (report-emacs-bug): Remove the last number of `emacs-version', use the topic prefix ``version; ''. --- lisp/ChangeLog | 5 +++++ lisp/mail/emacsbug.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 974b1a62f63..b169be42fb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-17 Micha,Ak(Bl Cadilhac + + * mail/emacsbug.el (report-emacs-bug): Remove the last number of + `emacs-version', use the topic prefix ``version; ''. + 2007-08-17 T. V. Raman (tiny change) * completion.el (symbol-under-point, symbol-before-point) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 8a11dc90cc4..89ac6dea0bb 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -75,7 +75,8 @@ 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. - (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)) -- 2.39.2