diff options
author | psg <> | 2003-09-03 02:32:39 +0000 |
---|---|---|
committer | psg <> | 2003-09-03 02:32:39 +0000 |
commit | f4af2745d8a2fc1d34f08bee2867ff4cdd9c074f (patch) | |
tree | 41d79b6a29193f6a263fa87fd8eaa891c26ebec3 | |
parent | b4d94f1f14b77642479bae8c0c635b3d0ba0217d (diff) |
Bug fix: debian-changelog mode to support inserting bug title in changlog
entry, such as this entry right here. Thanks to Junichi Uekawa (Closes:
#207852). Updated dpkg-dev-el's debian-changelog-mode.el and debbugs-el's
debian-bug.el.
-rw-r--r-- | debian-bug.el | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/debian-bug.el b/debian-bug.el index deb3a3c..e41c804 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -198,6 +198,9 @@ ;; template. ;; V1.42 31May2003 Peter S Galbraith <psg@debian.org> ;; Add `d-i', `ipv6' and `lfs' tags. +;; V1.43 01Sep2003 Peter S Galbraith <psg@debian.org> +;; debian-bug-build-bug-menu: Create closing changlog entries in +;; debian-bug-open-alist cdr's. ;; ---------------------------------------------------------------------------- ;;; Todo (Peter's list): @@ -1573,12 +1576,13 @@ If SUBMENU is t, then check for current sexp submenu only." (goto-char (point-min)) (while (re-search-forward - "\\(<H2>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">#\\(.+\\)</a>\\)" + "\\(<H2>\\(.+\\)</H2>\\)\\|\\(<li><a href=\"\\(bugreport.cgi\\?bug=\\([0-9]+\\)\\)\">\\(#[0-9]+: \\(.+\\)\\)</a>\\)" nil t) (let ((type (match-string 2)) ;;(URL (match-string 4)) (bugnumber (match-string 5)) - (description (match-string 6))) + (description (match-string 6)) + (shortdescription (match-string 7))) (cond (type (setq bugs-are-open-flag (not (string-match "resolved" type))) @@ -1587,9 +1591,18 @@ If SUBMENU is t, then check for current sexp submenu only." (insert "\"-\"\n\"" type "\"\n"))) (t (setq bug-alist (cons (list bugnumber description) bug-alist)) - (if bugs-are-open-flag - (setq bug-open-alist - (cons (list bugnumber description) bug-open-alist))) + (when bugs-are-open-flag + (when (and (re-search-forward "Reported by: <a href=[^>]+>" + nil t) + (or (looking-at ""\\(.*\\)" <") + (looking-at "\\(.*\\) <"))) + (setq shortdescription + (concat "Bug fix: \"" shortdescription + "\", thanks to " (match-string 1) + " (Closes: #" bugnumber ")."))) + (setq bug-open-alist + (cons + (list bugnumber shortdescription) bug-open-alist))) (save-excursion (set-buffer debian-bug-tmp-buffer) (insert |