Backed out premature qprev/qnext removal

hgext/mq.py

@@ -1866,6 +1866,39 b' def series(ui, repo, **opts):'
     repo.mq.qseries(repo, missing=opts['missing'], summary=opts['summary'])
     return 0
 
+def top(ui, repo, **opts):
+    """print the name of the current patch"""
+    q = repo.mq
+    t = q.applied and q.series_end(True) or 0
+    if t:
+        return q.qseries(repo, start=t-1, length=1, status='A',
+                         summary=opts.get('summary'))
+    else:
+        ui.write(_("no patches applied\n"))
+        return 1
+
+def next(ui, repo, **opts):
+    """print the name of the next patch"""
+    q = repo.mq
+    end = q.series_end()
+    if end == len(q.series):
+        ui.write(_("all patches applied\n"))
+        return 1
+    return q.qseries(repo, start=end, length=1, summary=opts.get('summary'))
+
+def prev(ui, repo, **opts):
+    """print the name of the previous patch"""
+    q = repo.mq
+    l = len(q.applied)
+    if l == 1:
+        ui.write(_("only one patch applied\n"))
+        return 1
+    if not l:
+        ui.write(_("no patches applied\n"))
+        return 1
+    return q.qseries(repo, start=l-2, length=1, status='A',
+                     summary=opts.get('summary'))
+
 def setupheaderopts(ui, opts):
     def do(opt, val):
         if not opts[opt] and opts['current' + opt]:
@@ -2580,6 +2613,8 b' cmdtable = {'
           ('d', 'date', '', _('add "Date: <given date>" to patch'))
           ] + commands.walkopts + commands.commitopts,
          _('hg qnew [-e] [-m TEXT] [-l FILE] [-f] PATCH [FILE]...')),
+    "qnext": (next, [] + seriesopts, _('hg qnext [-s]')),
+    "qprev": (prev, [] + seriesopts, _('hg qprev [-s]')),
     "^qpop":
         (pop,
          [('a', 'all', None, _('pop all patches')),
@@ -2637,6 +2672,7 b' cmdtable = {'
           ('b', 'backup', None, _('bundle unrelated changesets')),
           ('n', 'nobackup', None, _('no backups'))],
          _('hg strip [-f] [-b] [-n] REV')),
+    "qtop": (top, [] + seriesopts, _('hg qtop [-s]')),
     "qunapplied":
         (unapplied,
          [('1', 'first', None, _('show only the first patch'))] + seriesopts,

tests/test-mq

@@ -152,6 +152,9 b' hg qpush'
 echo % qapplied
 hg qapplied
 
+echo % qtop
+hg qtop
+
 echo % prev
 hg qapp -1
 

tests/test-mq-guards

@@ -59,6 +59,8 b' hg qguard c.patch'
 
 echo % should skip c.patch
 hg qpush -a
+echo % should display b.patch
+hg qtop
 
 hg qguard -n c.patch
 echo % should push c.patch
@@ -82,6 +84,9 b' hg qselect 2'
 echo % should push b.patch
 hg qpush
 hg qpush -a
+# Used to be an issue with holes in the patch sequence
+# So, put one hole on the base and ask for topmost patch.
+hg qtop
 hg qpop -a
 
 hg qselect 1 2

tests/test-mq-guards.out

@@ -34,6 +34,8 b' c.patch: -a'
 applying b.patch
 skipping c.patch - guarded by '-a'
 now at: b.patch
+% should display b.patch
+b.patch
 % should push c.patch
 applying c.patch
 now at: c.patch
@@ -64,6 +66,7 b' applying b.patch'
 now at: b.patch
 applying c.patch
 now at: c.patch
+c.patch
 popping c.patch
 popping b.patch
 patch queue now empty

tests/test-mq.out

@@ -37,7 +37,9 b' list of commands:'
  qimport      import a patch
  qinit        init a new queue repository
  qnew         create a new patch
+ qnext        print the name of the next patch
  qpop         pop the current patch off the stack
+ qprev        print the name of the previous patch
  qpush        push the next patch onto the stack
  qrefresh     update the current patch
  qrename      rename a patch
@@ -45,6 +47,7 b' list of commands:'
  qsave        save current queue state
  qselect      set or print guarded patches to push
  qseries      print the entire series file
+ qtop         print the name of the current patch
  qunapplied   print the patches not yet applied
  strip        strip a revision and all its descendants from the repository
 
@@ -141,6 +144,8 b' now at: test2.patch'
 % qapplied
 test.patch
 test2.patch
+% qtop
+test2.patch
 % prev
 test.patch
 % next