(bat-generic-mode-keymap): Added thio variable

(bat-generic-mode-compile): Added this function
(bat-generic-mode-run-as-comint): Added this function

1 files changed, 41 insertions, 0 deletions

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 706c985d52a..ebf874b387c 100644
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -400,6 +400,46 @@ you must reload generic-x to enable the specified modes."
   (defvar bat-generic-mode-syntax-table nil
     "Syntax table in use in bat-generic-mode buffers.")
 
+  (defvar bat-generic-mode-keymap (make-sparse-keymap)
+    "Keymap for bet-generic-mode.")
+
+  (defun bat-generic-mode-compile ()
+    "Run the current BAT file in a compilation buffer."
+    (interactive)
+    (let ((compilation-buffer-name-function
+	   (function
+	    (lambda(ign)
+	      (concat "*" (buffer-file-name) "*")))
+	      )
+	    )
+      (compile
+       (concat (w32-shell-name) " -c " (buffer-file-name)))))
+
+  (defun bat-generic-mode-run-as-comint ()
+    "Run the current BAT file in a comint buffer."
+    (interactive)
+    (require 'comint)
+    (let* ((file (buffer-file-name))
+	   (buf-name (concat "*" file "*")))
+      (save-excursion
+	(set-buffer
+	 (get-buffer-create buf-name))
+	(erase-buffer)
+	(comint-mode)
+	(comint-exec
+	 buf-name
+	 file
+	 (w32-shell-name)
+	 nil
+	 (list
+	  "-c"
+	  file
+	  )
+	 )
+	(display-buffer buf-name))))
+
+  (define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile)
+
   ;; Make underscores count as words
   (if bat-generic-mode-syntax-table
       nil
@@ -423,6 +463,7 @@ you must reload generic-x to enable the specified modes."
     (set-syntax-table	      bat-generic-mode-syntax-table)
     ;; Make keywords case-insensitive
     (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))
+    (use-local-map bat-generic-mode-keymap)
     )
   )