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

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

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index 706c985d52a6a907ffb1ccc3fb532ded555e9a1e..ebf874b387cd26f2595fd3cfe52fd1373f5d3743 100644 (file)
--- 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)
     )
   )