Index: library/lib/pp.tcl
===================================================================
diff -u -ra13fd7c36e88fae335636d8f9216036efb38e790 -r81dccb2818007e6a1ed9f2c17eb58e1b7ce07a5c
--- library/lib/pp.tcl (.../pp.tcl) (revision a13fd7c36e88fae335636d8f9216036efb38e790)
+++ library/lib/pp.tcl (.../pp.tcl) (revision 81dccb2818007e6a1ed9f2c17eb58e1b7ce07a5c)
@@ -107,12 +107,14 @@
Object
} \\M|\\m]\\M)
- set :re(placeholder) {([/?][-a-zA-Z0-9:]+[/?])}
+ set :re(placeholder1) {([/][a-zA-Z0-9:]+?[/])}
+ set :re(placeholder2) {([?][^ ][-a-zA-Z0-9: .]+?[?])}
:public method flush {} {
set html [string map [list & {&} < {<} > {>}] ${:text}]
regsub -all [set :re(keyword)] $html {\1} html
- regsub -all [set :re(placeholder)] $html {\1} html
+ regsub -all [set :re(placeholder1)] $html {\1} html
+ regsub -all [set :re(placeholder2)] $html {\1} html
nx::pp puts -nonewline [:cssWrap $html]
set :text ""
}