[augeas-devel] [PATCH] Clean comment definition

[Raphael Pinson]

# HG changeset patch
# User Raphael Pinson <raphink at gmail.com>
# Date 1218620749 -7200
# Node ID dfd5adfc91ea543fe4250f4186e42aa0aac47820
# Parent  311a5cee52239fc27a496e8e42f761b8c1741d87
Clean comment definition

diff -r 311a5cee5223 -r dfd5adfc91ea lenses/sudoers.aug
--- a/lenses/sudoers.aug	Tue Aug 12 17:58:04 2008 -0700
+++ b/lenses/sudoers.aug	Wed Aug 13 11:45:49 2008 +0200
@@ -50,8 +50,8 @@ let sto_to_spc = store /[^() \t\n\\\\]+/
 
 (* define comments and empty lines *)
 let comment = 
-  let value_to_eol = del /[ \t]*/ " " . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ in
-  [ label "comment" . del /[ \t]*#/ "# " .  value_to_eol . eol ]
+  let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ in
+  [ label "comment" . del /[ \t]*#[ \t]*/ "# " . sto_to_eol . eol ]
  
 let empty   = [ del /[ \t]*#?[ \t]*\n/ "" ]