1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
Author: Alexander Zangerl <az@debian.org>
Subject: move ONLY internal scripts into /usr/share/exmh/ (via install(dir,bin)
--- a/lib/background.tcl
+++ b/lib/background.tcl
@@ -95,8 +95,8 @@ proc Background_Startup {} {
Background_DoPeriodic
return
}
- global mh_path argv0 wish
- set prog ${argv0}-bg
+ global mh_path argv0 wish install
+ set prog $install(dir,bin)/exmh-bg
Exmh_Status "Starting: $prog"
set cmd [list exec $wish -f $prog [winfo name .] $exmh(library) $mh_path &]
if [catch {
--- a/lib/editor.tcl
+++ b/lib/editor.tcl
@@ -313,7 +313,7 @@ proc EditDialogDone {act id {hide hide}}
proc EditStart { draft {type prog} } {
# Start the editor, reusing an existing session if possible
- global editor exmh mhProfile pgp
+ global editor exmh mhProfile pgp install
Exmh_Debug EditStart $draft $type
@@ -373,7 +373,7 @@ proc EditStart { draft {type prog} } {
exmh-async* {
global wish argv0
Exmh_Status "Starting ASYNC $editor($type) ..." warn
- eval {exec $wish -f ${argv0}-async -- [winfo name .]} \
+ eval {exec $wish -f $install(dir,bin)/exmh-async -- [winfo name .]} \
[lrange $editor($type) 1 end] {$draft &}
return 0 ;# Asynchronous edit
}
--- a/lib/seditExtras.tcl
+++ b/lib/seditExtras.tcl
@@ -678,7 +678,7 @@ proc SeditFormatNewPart { t f {doit 0} }
destroy $f
}
proc SeditSpell { draft f t } {
- global sedit editor wish argv0
+ global sedit editor wish argv0 install
set parent [file root $f]
if {[winfo exists $parent.spell]} {
destroy $parent.spell
--- a/lib/seditSel.tcl
+++ b/lib/seditSel.tcl
@@ -130,7 +130,7 @@ proc SeditSelFmtArg {t} {
proc SeditSelSpell { f t } {
- global sedit editor wish argv0
+ global sedit editor wish argv0 install
set parent [file root $f]
catch {[destroy $parent.spell]}
|
