File exmh-lassign.patch of Package exmh

Overview Repositories Revisions Requests Users Attributes Meta

File exmh-lassign.patch of Package exmh

Index: lib/html.tcl
===================================================================
--- lib/html.tcl
+++ lib/html.tcl
@@ -209,7 +209,7 @@ proc Html_Stop {win} {
 }
 proc HtmlHit {win x y} {
     upvar #0 HM$win var
-    lassign {href name} [UrlGetLink $win $x $y]
+    exmh_lassign {href name} [UrlGetLink $win $x $y]
     UrlResolve $var(S_url) href
     URI_StartViewer $href
 }
Index: lib/html_formtag.tcl
===================================================================
--- lib/html_formtag.tcl
+++ lib/html_formtag.tcl
@@ -690,7 +690,7 @@ proc FormIterate {win formVar callback}
     upvar #0 HM[Window_GetMaster $win] var $formVar form
     foreach w [array names form widgets,*] {
         regsub ^widgets, $w {} w
-	lassign {htag param} $form(widgets,$w)
+	exmh_lassign {htag param} $form(widgets,$w)
 	if {"$htag" == "input"} {
 	    set type text
 	    HMextract_param $param type
Index: lib/html_get_http.tcl
===================================================================
--- lib/html_get_http.tcl
+++ lib/html_get_http.tcl
@@ -155,7 +155,7 @@ proc Http_poke {} {
     }
     if {$protocol == "http"} {
 	# Callback to determine if a proxy is necessary
-	lassign {proxy pport} [Http_Proxy $host]
+	exmh_lassign {proxy pport} [Http_Proxy $host]
 	if [catch {
 	    if [string length $proxy] {
 		set sock [HttpConnect $proxy $pport $data(protocol) $url]
Index: lib/html_links.tcl
===================================================================
--- lib/html_links.tcl
+++ lib/html_links.tcl
@@ -79,13 +79,13 @@ proc Url_Hit? {win x y} {
 }
 proc Url_Hit {win x y} {
     dputs Url_Hit $x $y
-    lassign {href name} [UrlGetLink $win $x $y]
+    exmh_lassign {href name} [UrlGetLink $win $x $y]
     Html_HistoryAdd $win $href
     Frame_Display $win $name $href
 }
 # This is like Url_Hit for regular hits, but it opens a new window.
 proc Url_HitNew {win x y} {
-    lassign {href target} [UrlGetLink $win $x $y]
+    exmh_lassign {href target} [UrlGetLink $win $x $y]
     Url_DisplayNew $href $win
 }
 
Index: lib/msgShow.tcl
===================================================================
--- lib/msgShow.tcl
+++ lib/msgShow.tcl
@@ -496,7 +496,7 @@ proc Hook_MsgHighlight_jcl-beautify {t {
 #	    continue
 #        }
 
-	lassign {qt_cnt qt_str} [MsgHighlightQuoteLevel $txt]
+	exmh_lassign {qt_cnt qt_str} [MsgHighlightQuoteLevel $txt]
 	if {$qt_cnt >= 5} {
 	    set qt_cnt 5
 	}
Index: lib/tclIndex
===================================================================
--- lib/tclIndex
+++ lib/tclIndex
@@ -1375,7 +1375,7 @@ set auto_index(Scan_Move) [list source [
 set auto_index(Scan_AllFolders) [list source [file join $dir scan.tcl]]
 set auto_index(setmax) [list source [file join $dir utils.tcl]]
 set auto_index(setmin) [list source [file join $dir utils.tcl]]
-set auto_index(lassign) [list source [file join $dir utils.tcl]]
+set auto_index(exmh_lassign) [list source [file join $dir utils.tcl]]
 set auto_index(ldelete) [list source [file join $dir utils.tcl]]
 set auto_index(patlsearch) [list source [file join $dir utils.tcl]]
 set auto_index(Visibility_Wait) [list source [file join $dir utils.tcl]]
Index: lib/utils.tcl
===================================================================
--- lib/utils.tcl
+++ lib/utils.tcl
@@ -23,7 +23,7 @@ proc setmin {varName value} {
 # Assign a set of variables from a list of values.
 # If there are more values than variables, they are ignored.
 # If there are fewer values than variables, the variables get the empty string.
-proc lassign {varList value} {
+proc exmh_lassign {varList value} {
     if {[string length $value] == 0} {
 	foreach var $varList {
 	    uplevel [list set $var {}]

Places

File exmh-lassign.patch of Package exmh

Places