mq: get rid of qnext, qprev and qtop

hgext/mq.py

@@ -1866,39 +1866,6 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]:
@@ -2613,8 +2580,6 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')),
@@ -2672,7 +2637,6 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,9 +152,6 b' hg qpush'
 echo % qapplied
 hg qapplied
 
-echo % qtop
-hg qtop
-
 echo % prev
 hg qapp -1
 

tests/test-mq-guards

@@ -59,8 +59,6 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
@@ -84,9 +82,6 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,8 +34,6 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
@@ -66,7 +64,6 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,9 +37,7 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
@@ -47,7 +45,6 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
 
@@ -144,8 +141,6 b' now at: test2.patch'
 % qapplied
 test.patch
 test2.patch
-% qtop
-test2.patch
 % prev
 test.patch
 % next