Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
exmh
exmh-lassign.patch
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 {}]
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor