diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2009-07-20 11:51:50 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2009-07-20 11:51:50 +0000 |
| commit | 71b94fa3e8d73c40e298409fa5fd6501383d38a6 (patch) | |
| tree | 504323f26750574f581a8a7b904409b46019e45d /otherlibs/labltk/browser/lexical.ml | |
| parent | 591d89e773efe451f509ecd059cba49c15f2cae2 (diff) | |
merge changes from ocaml3111rc0 to ocaml3111
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9319 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/browser/lexical.ml')
| -rw-r--r-- | otherlibs/labltk/browser/lexical.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/otherlibs/labltk/browser/lexical.ml b/otherlibs/labltk/browser/lexical.ml index a2573ef7c..72f1957ec 100644 --- a/otherlibs/labltk/browser/lexical.ml +++ b/otherlibs/labltk/browser/lexical.ml @@ -39,6 +39,8 @@ let tag ?(start=tstart) ?(stop=tend) tw = let tpos c = (Text.index tw ~index:start, [`Char c]) in let text = Text.get tw ~start ~stop in let buffer = Lexing.from_string text in + Location.init buffer ""; + Location.input_name := ""; List.iter tags ~f:(fun tag -> Text.tag_remove tw ~start ~stop ~tag); let last = ref (EOF, 0, 0) in |