diff options
| author | Gustav Hållberg <gustav@gmail.com> | 2010-05-12 20:14:14 +0200 |
|---|---|---|
| committer | Gustav Hållberg <gustav@gmail.com> | 2010-06-10 09:25:25 +0200 |
| commit | b4f12bc1acd2892a76e07bbf6ad34b2da1c455b5 (patch) | |
| tree | 959f08e162cf32a75dd92b2d5e4764aba4b14d73 | |
| parent | de8efe1efc4a495eca0614aa9f6c1910d5838f99 (diff) | |
| download | stgit-b4f12bc1acd2892a76e07bbf6ad34b2da1c455b5.tar.gz | |
stgit.el: Repair ! for historical commits
Fixes omission in 8f489f41f8ffe6e06254cefc5b352610df06cbeb.
Signed-off-by: Gustav Hållberg <gustav@gmail.com>
Signed-off-by: David Kågedal <davidk@lysator.liu.se>
| -rw-r--r-- | contrib/stgit.el | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/contrib/stgit.el b/contrib/stgit.el index 487b891..b72ba98 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -2331,16 +2331,13 @@ their position in the patch series, bottommost first. PATCHSYMS must not contain duplicate entries, unless ALLOW-DUPLICATES is not nil." - (let (sorted-patchsyms - (series (with-output-to-string - (with-current-buffer standard-output - (stgit-run-silent "series" "--noprefix")))) - start) - (while (string-match "^\\(.+\\)" series start) - (let ((patchsym (intern (match-string 1 series)))) - (when (memq patchsym patchsyms) - (setq sorted-patchsyms (cons patchsym sorted-patchsyms)))) - (setq start (match-end 0))) + (let (sorted-patchsyms) + (ewoc-map #'(lambda (patch) + (let ((name (stgit-patch->name patch))) + (when (memq name patchsyms) + (setq sorted-patchsyms (cons name sorted-patchsyms)))) + nil) + stgit-ewoc) (setq sorted-patchsyms (nreverse sorted-patchsyms)) (unless allow-duplicates |