branch: externals/debbugs
commit 3c40b4f3b4f9968ec49cf43cab4dab120790bd72
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
(debbugs-toggle-sort): Don't move point around so much.
---
ChangeLog | 1 +
debbugs-gnu.el | 5 +++--
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index d280416..7e11fe6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,7 @@
(debbugs-emacs): Use it.
(debbugs-toggle-sort): Make sorting work again.
(debbugs-toggle-sort): Use `debbugs-current-id'.
+ (debbugs-toggle-sort): Don't move point around so much.
2011-07-03 Michael Albinus <[email protected]>
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index e8496d0..550d4bc 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -256,7 +256,8 @@ The following commands are available:
(beginning-of-line)
(let ((buffer-read-only nil)
(before-change-functions nil)
- (current-bug (debbugs-current-id t)))
+ (current-bug (debbugs-current-id t))
+ (start-point (point)))
(setq debbugs-sort-state
(if (eq debbugs-sort-state 'number)
'state
@@ -286,7 +287,7 @@ The following commands are available:
debbugs-state-preference))
10)))))
(if (not current-bug)
- (goto-char (point-max))
+ (goto-char start-point)
(goto-char (point-min))
(re-search-forward (format "^%d" current-bug) nil t))))
