From bced250f60d2c322447961d9e9ba358fd8e39a00 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 27 Oct 2014 12:13:15 +0100 Subject: split grid-engine-setup --- grid-engine-mode.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/grid-engine-mode.el b/grid-engine-mode.el index 734302f..2cc441b 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -9,7 +9,8 @@ (kill-all-local-variables) (setq major-mode 'grid-engine) (setq mode-name "Grid Engine") - (grid-engine-setup) + (grid-engine--init-keymap) + (grid-engine--init-header) (use-local-map grid-engine-map) (run-hooks 'grid-engine-hook)) @@ -22,7 +23,7 @@ (defcustom grid-engine-column-order '(job-id time priority owner state) "The order of job columns to be displayed. The following keys are valid: job-id, priority, name, owner, state, time, queue, slots.") -(defun grid-engine-setup () +(defun grid-engine--init-keymap () (setq grid-engine-map (make-keymap)) ;; disable all key bindings (suppress-keymap grid-engine-map) @@ -38,8 +39,9 @@ (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))) + (lambda () (interactive) (grid-engine-list-jobs)))) +(defun grid-engine--init-header () (grid-engine-update-list-format) (tabulated-list-init-header)) -- cgit v1.2.3