fix indentation
authorRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Mon, 27 Oct 2014 10:36:59 +0000 (11:36 +0100)
committerRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Mon, 27 Oct 2014 10:36:59 +0000 (11:36 +0100)
grid-engine-mode.el

index 6de65c1..be29af3 100644 (file)
   "The grid engine user.  Defaults to the logged in user's name.")
 
 (defun grid-engine-setup ()
-    (setq grid-engine-map (make-keymap))
-    ;; disable all key bindings
-    (suppress-keymap grid-engine-map)
-    (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 "<RET>")
-      (lambda (&optional arg)
-        (interactive)
-        (let ((field (get-text-property (point) 'field))
-              (job   (get-text-property (point) 'grid-engine-job)))
-          (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)))
+  (setq grid-engine-map (make-keymap))
+  ;; disable all key bindings
+  (suppress-keymap grid-engine-map)
+  (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 "<RET>")
+    (lambda (&optional arg)
+      (interactive)
+      (let ((field (get-text-property (point) 'field))
+            (job   (get-text-property (point) 'grid-engine-job)))
+        (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)))
 
   (grid-engine-update-list-format)
   (tabulated-list-init-header))