     ("zsh"    .  zsh-mode)
     ("perl"   .  perl-mode)
     ("tcl"    .   tcl-mode) ; JWH
-    ("python" . python-mode)) ; BM
+    ("python" . python-mode) ; BM
+    ("ruby"   . ruby-mode)) ; CLGC
   "Assoc list of compile function for some known shells.
 
 Each element look like (SHELL . MODE) This variable look like

;;    Run file with "python" (can step throught errors with compile's
;;    `next-error' command).
;;
;; @@  message-mode:
;;    Run `message-send'.
;;

    (cperl-mode            . (perl-compile      kill-compilation))
    (tcl-mode              . (tcl-compile       kill-compilation)) ; JWH
    (python-mode           . (python-compile    kill-compilation)) ; BM
    (ruby-mode             . (ruby-compile      kill-compilation)) ; CLGC
    ;(message-mode          . (message-compile   kill-compilation))
    (fundamental-mode      . (guess-compile     nil)) ; bound dynamically
    (text-mode             . (guess-compile     nil)) ; itou
