diff options
| -rw-r--r-- | buildbot-view.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/buildbot-view.el b/buildbot-view.el index e1b8e55..dd0d4b0 100644 --- a/buildbot-view.el +++ b/buildbot-view.el @@ -37,6 +37,17 @@ (beginning-of-line 1))) (define-key buildbot-view-mode-map "n" 'buildbot-view-next-header) +(defun buildbot-view-next-header-same-thing (n) + (interactive "p") + (when-let + ((type (get-text-property (point) 'type))) + (dotimes (_ n) + (buildbot-view-next-header 1) + (while (not (eq (get-text-property (point) 'type) type)) + (buildbot-view-next-header 1))))) +(define-key buildbot-view-mode-map (kbd "M-n") + 'buildbot-view-next-header-same-thing) + (defun buildbot-view-previous-header (n) (interactive "p") (beginning-of-line 1) @@ -46,6 +57,17 @@ (re-search-backward buildbot-view-header-regex))) (define-key buildbot-view-mode-map "p" 'buildbot-view-previous-header) +(defun buildbot-view-previous-header-same-thing (n) + (interactive "p") + (when-let + ((type (get-text-property (point) 'type))) + (dotimes (_ n) + (buildbot-view-previous-header 1) + (while (not (eq (get-text-property (point) 'type) type)) + (buildbot-view-previous-header 1))))) +(define-key buildbot-view-mode-map (kbd "M-p") + 'buildbot-view-previous-header-same-thing) + (defun buildbot-view-format-revision-info (revision-info) (propertize (format |