[contrib] merge: pull request #3 from git://github.com/arthuraa/opalang

MLstate · Aug 23, 2011 · 3854ea8 · 3854ea8
2 parents 32fa369 + 1b1708b
commit 3854ea8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/utils/emacs/opa-mode.el b/utils/emacs/opa-mode.el
@@ -398,8 +398,8 @@
 (defun buffer-substring1 (pos)
   (buffer-substring pos (1+ pos)))
 
-(defun is-in-xhtml-zone (p)
-  (eq (get-text-property p 'syntax-table) opa-mode-syntax-table-xhtml))
+(defun is-in-xhtml-zone ()
+  (eq (get-text-property (point) 'syntax-table) opa-mode-syntax-table-xhtml))
 
 (defun is-in-ppdebug-zone ()
   (eq (get-text-property (point) 'face) 'opa-font-ppdebug-face))