RE: post-upgrade Log no longer works.

Change the proc source def to

proc source {args} {
...
   set result [uplevel 1 "source-orig $args"]
...
}

args is special, and is a list.  The " " concatenates that list onto source-orig and creates a well-formed command for use by uplevel.

--
Brent


-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Andy Bradford
Sent: Monday, September 09, 2013 11:36 PM
Cc: Harvey Eneman; [email protected]
Subject: Re: post-upgrade Log no longer works.

Thus said "Andy Bradford" on 09 Sep 2013 23:54:19 -0600:

> Seems like a bug in Tcl proper.

I  was  wrong, it  looks  like  a bug  in  Exmh.  It renames  source  to
source-orig:

if {$exmh(sourceHook) && [info command source-orig] ==  ""} {
    rename source source-orig
    proc source {file} {
         global SourceHook
         set result [uplevel 1 [list source-orig $file]]
         set fn [file rootname [file tail $file]]
         if [info exists SourceHook($fn)] {
            if [catch {uplevel 1 $SourceHook($fn)} err] {
                Exmh_Status "Error in source hook for $fn: $err" warning
            }
         }
         return $result
    }
}

But doesn't allow for all the options to source.

I think I can  work around this by causing exmh to use  8.4, but I'm not
sure yet.

Andy
-- 
TAI64 timestamp: 40000000522ebdf5


_______________________________________________
Exmh-users mailing list
[email protected]
https://www.redhat.com/mailman/listinfo/exmh-users