Commits

Anonymous committed 5d2b7c9

[mq]: occurance-next-error-functionality

  • Participants
  • Parent commits e6a2643

Comments (0)

Files changed (1)

ropemacs/__init__.py

         text = '\n'.join(text) + '\n'
         buffer = self._make_buffer('*rope-occurrences*', text, switch=True)
         lisp.set_buffer(buffer)
+        lisp.toggle_read_only(1)
+        lisp.set(lisp["next-error-function"], lisp.rope_occurrences_next)
         lisp.local_set_key('\r', lisp.rope_occurrences_goto_occurrence)
         lisp.local_set_key('q', lisp.delete_window)
 
         resource = _interface._get_resource(filename)
         LispUtils().find_file(resource.real_path, other=True)
         lisp.goto_char(offset + 1)
-        lisp.switch_to_buffer_other_window('*rope-occurrences*')
 occurrences_goto_occurrence.interaction = ''
 
+def occurrences_next(arg, reset):
+    lisp.switch_to_buffer_other_window('*rope-occurrences*')
+    if reset:
+        lisp.goto_char(lisp.point_min())
+    lisp.forward_line(arg)
+    if lisp.eobp():
+        lisp.message("Cycling rope occurences")
+        lisp.goto_char(lisp.point_min())
+    occurrences_goto_occurrence()
+occurrences_next.interaction = ''
+
 
 DEFVARS = """\
 (defgroup ropemacs nil