 (define-key scala-mode-map [(control c)(control l)] 'scala-load-file)
 (define-key scala-mode-map [(control c)(control r)] 'scala-eval-region)
 (define-key scala-mode-map [(control c)(control b)] 'scala-eval-buffer)
+
+(define-key scala-mode-map [(control c)(control c)] 'comment-region)
 
 (define-key scala-mode-map "}" 'scala-electric-brace)
 

  ;; Works only when point is at the beginning of a type (modulo
  ;; initial spaces/comments).
  (scala-forward-spaces)
  (when (looking-at "\\<class\\>") (forward-word 1) (scala-forward-spaces))
  (scala-forward-simple-type)
  (while (looking-at "\\s *\\<with\\>\\s *")
    (goto-char (match-end 0))
    (if (and (not (eobp)) (= (char-after) ?\{))
        (forward-sexp)                       ;skip refinement
      (scala-forward-simple-type)))

    ("\\<class\\|trait\\>"
     (scala-match-and-skip-ident (goto-char (match-end 0)) nil
                                 (1 font-lock-type-face nil))
     (scala-match-and-skip-type-param nil nil
                                      (1 font-lock-type-face nil t))
     (scala-match-and-skip-binding nil nil
                                   (1 font-lock-variable-name-face nil)
                                   (2 font-lock-type-face nil t)))
