From b1b6e894b77717f33af8e402eba712b9b19ef46a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 5 May 2012 19:57:54 -0400
Subject: Adjust error message format to match Emacs defaults

---
 src/elisp/urweb-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/elisp/urweb-mode.el')

diff --git a/src/elisp/urweb-mode.el b/src/elisp/urweb-mode.el
index 480ba1f6..f183a9ab 100644
--- a/src/elisp/urweb-mode.el
+++ b/src/elisp/urweb-mode.el
@@ -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 @@ This mode runs `urweb-mode-hook' just before exiting.
   ;; 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 @@ Optional argument STYLE is currently ignored."
 	(urweb-skip-siblings))
       fullname)))
 
-
-
 (provide 'urweb-mode)
 
 ;;; urweb-mode.el ends here
-- 
cgit v1.2.3