--- a/src/elisp/urweb-mode.el	Sat May 05 13:08:26 2012 -0400
+++ b/src/elisp/urweb-mode.el	Sat May 05 19:57:54 2012 -0400
@@ -67,6 +67,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
+(require 'compile)
 (require 'urweb-util)
 (require 'urweb-move)
 (require 'urweb-defs)
@@ -394,6 +395,8 @@
   ;; Compatibility.  FIXME: we should use `-' in Emacs-CVS.
   (unless (boundp 'skeleton-positions) (set (make-local-variable '@) nil))
 
+  (local-set-key (kbd "C-c C-c") 'compile)
+
   (urweb-mode-variables))
 
 (defun urweb-mode-variables ()
@@ -903,8 +906,6 @@
 	(urweb-skip-siblings))
       fullname)))
 
-
-
 (provide 'urweb-mode)
 
 ;;; urweb-mode.el ends here