diff options
| -rw-r--r-- | grid-engine-mode.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/grid-engine-mode.el b/grid-engine-mode.el index 9eec231..5fa6122 100644 --- a/grid-engine-mode.el +++ b/grid-engine-mode.el @@ -63,19 +63,21 @@ (cdr (assoc key columns))) grid-engine-column-order)))) -(defun grid-engine--raise-buffer (&optional buffer) +(defun grid-engine--raise-buffer (&optional buffer mode) (when buffer (set-buffer buffer)) (goto-char (point-min)) (pop-to-buffer-same-window (current-buffer)) - (grid-engine)) + (when mode + (funcall mode))) -(defun grid-engine--split-buffer (&optional buffer) +(defun grid-engine--split-buffer (&optional buffer mode) (when buffer (set-buffer buffer)) (goto-char (point-min)) (display-buffer (current-buffer)) - (grid-engine)) + (when mode + (funcall mode))) (defun grid-engine--default-directory () (if grid-engine-host @@ -142,7 +144,7 @@ (mapcar (lambda (job) (job-to-row job)) jobs))) - (grid-engine--raise-buffer) + (grid-engine--raise-buffer nil 'grid-engine-list-mode) ;; update list (tabulated-list-print) (message nil))) |