[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ebbbf8a: Improve bug id guessing for multi-bug mailboxes
From: |
Robert Pluim |
Subject: |
[elpa] master ebbbf8a: Improve bug id guessing for multi-bug mailboxes |
Date: |
Tue, 26 Nov 2019 02:37:26 -0500 (EST) |
branch: master
commit ebbbf8ae138a91bc588666a7bcca9f8bbef12697
Author: Robert Pluim <address@hidden>
Commit: Robert Pluim <address@hidden>
Improve bug id guessing for multi-bug mailboxes
* debbugs-gnu.el (debbugs-gnu-guess-current-id): Search backwards
rather than from point-min for bug id.
---
packages/debbugs/debbugs-gnu.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 3dbd2f2..5789d80 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1576,14 +1576,13 @@ MERGED is the list of bugs merged with this one."
(setq subject ,debbugs-gnu-subject))))))))
(defun debbugs-gnu-guess-current-id ()
- "Guess the ID based on \"#23\"."
+ "Guess the ID based on \"#23\".
+Looks at current line and then backwards from point."
(save-excursion
(beginning-of-line)
(and
(or (re-search-forward "#\\([0-9]+\\)" (line-end-position) t)
- (progn
- (goto-char (point-min))
- (re-search-forward "#\\([0-9]+\\)" nil t)))
+ (re-search-backward "#\\([0-9]+\\)" nil t))
(string-to-number (match-string 1)))))
(defun debbugs-gnu-proper-bug-number (id)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master ebbbf8a: Improve bug id guessing for multi-bug mailboxes,
Robert Pluim <=