diff options
| -rw-r--r-- | grid-engine-mode.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/grid-engine-mode.el b/grid-engine-mode.el index 2cc441b..7c1242d 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -11,6 +11,11 @@ (setq mode-name "Grid Engine") (grid-engine--init-keymap) (grid-engine--init-header) + + (add-hook 'tabulated-list-revert-hook + (lambda () + (grid-engine--init-header) + (grid-engine-list-jobs))) (use-local-map grid-engine-map) (run-hooks 'grid-engine-hook)) @@ -30,6 +35,7 @@ (define-key grid-engine-map (kbd "n") 'next-logical-line) (define-key grid-engine-map (kbd "p") 'previous-logical-line) (define-key grid-engine-map (kbd "q") 'bury-buffer) + (define-key grid-engine-map (kbd "g") 'revert-buffer) (define-key grid-engine-map (kbd "<RET>") (lambda (&optional arg) (interactive) @@ -38,8 +44,6 @@ (unless (and field job) (error "[Grid Engine] point is not on a field of a job record")) (grid-engine-job-details field job arg)))) - (define-key grid-engine-map (kbd "g") - (lambda () (interactive) (grid-engine-list-jobs)))) (defun grid-engine--init-header () (grid-engine-update-list-format) |