 ;;   Scott Hofmann <scotth@visix.com>.
 ;;   Stefan Schoef <Stefan.Schoef@arbi.informatik.uni-oldenburg.de>.
 ;;   John W. Harwell <ccjohnh@showme.missouri.edu> - JWH.
+;;   Charles L.G. Comstock <dgtized@gmail.com> - CLGC
 ;;
 ;; @ ToDo:
 ;; =======

(defcustom python-dbg-flags ""
  "*Flags to give to python -- none."
  :type 'string
  :group 'compile-phthon)

(defvar python-compilation-error-regexp-alist
  ;; TK  (file "/directory-path/filename.tcl" line XY in ZZZ)

See variables compilation-error-regexp-alist or python-compilation-error-regexp-alist."
  (mc--shell-compile python-command python-dbg-flags python-compilation-error-regexp-alist))

(defun ruby-compile ()
  ;; CLGC
  "Run `ruby-command' with `ruby-dbg-flags' on current-buffer (`ruby-mode').

User is prompted for arguments to run their ruby program with.
If you want to step throught errors set the variable `ruby-compilation-error-regexp-alist'
to a value understandable by compile's `next-error'.
See variables compilation-error-regexp-alist or ruby-compilation-error-regexp-alist."
  (mc--shell-compile ruby-command ruby-dbg-flags ruby-compilation-error-regexp-alist))

(defun default-compile ()
  "Default function invoked by `mode-compile' (\\[mode-compile])
