From e103ad374e8cb7ea52e27c517fca761b9810028a Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 2 Jun 2009 13:55:10 -0400
Subject: Fix relative precedence of ; and case-stuff

---
 src/elisp/urweb-move.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/elisp')

diff --git a/src/elisp/urweb-move.el b/src/elisp/urweb-move.el
index 55c6bce6..08cd19e2 100644
--- a/src/elisp/urweb-move.el
+++ b/src/elisp/urweb-move.el
@@ -81,11 +81,12 @@
 
 (defconst urweb-syntax-prec
   (urweb-preproc-alist
-   `(((";" ",") . 20)
+   `(("," . 20)
      (("=>" "d=" "=of") . (65 . 40))
      ("|" . (47 . 30))
      (("case" "of" "fn") . 45)
      (("if" "then" "else" ) . 50)
+     (";" . 53)
      (("<-") . 55)
      ("||" . 70)
      ("&&" . 80)
-- 
cgit v1.2.3