[elpa] externals/debbugs 3c40b4f 027/311: (debbugs-toggle-sort): Don't move point around so much.

[Stefan Monnier]

branch: externals/debbugs
commit 3c40b4f3b4f9968ec49cf43cab4dab120790bd72
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    (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  <michael.albinus@gmx.de>
 
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))))