[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima RunMaxima.tcl, 1.29, 1.29.4.1

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory sc8-pr-cvs16:/tmp/cvs-serv7966

Modified Files:
      Tag: RELEASE-5_12_0-BRANCH
	RunMaxima.tcl 
Log Message:
Interprets lines beginning by ?? or ?! as manual searches and pass
them to Maxima without waiting for a semicolon or dollar sign.


Index: RunMaxima.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/RunMaxima.tcl,v
retrieving revision 1.29
retrieving revision 1.29.4.1
diff -u -d -r1.29 -r1.29.4.1
--- RunMaxima.tcl	25 Feb 2007 19:02:12 -0000	1.29
+++ RunMaxima.tcl	9 Apr 2007 21:55:51 -0000	1.29.4.1
@@ -46,7 +46,7 @@
     set expr [string trimright [$w get lastStart end] \n]
     # puts "command-line: ([$w index lastStart], [$w index end])"
     # puts "command: $expr"
-    if { ![regexp {^[ \n\t]*:|[;\$][ \t]*$|^\?[ \t]+[^ \t]} $expr] } {
+    if { ![regexp {^[ \n\t]*:|[;\$][ \t]*$|^\?[\?!]?[ \t]+[^ \t]} $expr] } {
 	$w insert insert "\n"
 	$w see insert
 	if { [catch {set atprompt [oget $w atMaximaPrompt]}] } {