From 06f2ce90874ba6729d76330c599db252438fe421 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 16 Oct 2017 21:12:27 +0200
Subject: [PATCH] examples/tclspice, cleanup "wish" trampoline and add emacs
 mode specification

---
 examples/tclspice/tcl-testbench1/tcl-testbench1.sh | 3 +--
 examples/tclspice/tcl-testbench2/tcl-testbench2.sh | 3 +--
 examples/tclspice/tcl-testbench3/tcl-testbench3.sh | 3 +--
 examples/tclspice/tcl-testbench4/tcl-testbench4.sh | 5 ++---
 examples/tclspice/tcl/test_vectoblt.sh             | 3 +--
 5 files changed, 6 insertions(+), 11 deletions(-)

diff --git a/examples/tclspice/tcl-testbench1/tcl-testbench1.sh b/examples/tclspice/tcl-testbench1/tcl-testbench1.sh
index 55a0c2b7d..6c74f5e64 100755
--- a/examples/tclspice/tcl-testbench1/tcl-testbench1.sh
+++ b/examples/tclspice/tcl-testbench1/tcl-testbench1.sh
@@ -1,7 +1,6 @@
 #!/bin/sh
-# WishFix \
+# -*- mode: tcl -*- \
         exec wish -f "$0" ${1+"$@"}
-	###
 
 # old name:  analyse-20070504-0.tcl
 package require BLT
diff --git a/examples/tclspice/tcl-testbench2/tcl-testbench2.sh b/examples/tclspice/tcl-testbench2/tcl-testbench2.sh
index 3ce81cdb3..458e903d6 100755
--- a/examples/tclspice/tcl-testbench2/tcl-testbench2.sh
+++ b/examples/tclspice/tcl-testbench2/tcl-testbench2.sh
@@ -1,7 +1,6 @@
 #!/bin/sh
-# WishFix \
+# -*- mode: tcl -*- \
 	exec wish -f "$0" ${1+"$@"}
-###
 
 package require BLT
 load ../../../src/.libs/libspice.so
diff --git a/examples/tclspice/tcl-testbench3/tcl-testbench3.sh b/examples/tclspice/tcl-testbench3/tcl-testbench3.sh
index 553d8fa19..e440d8d1e 100755
--- a/examples/tclspice/tcl-testbench3/tcl-testbench3.sh
+++ b/examples/tclspice/tcl-testbench3/tcl-testbench3.sh
@@ -1,7 +1,6 @@
 #!/bin/sh
-# WishFix \
+# -*- mode: tcl -*- \
         exec wish -f "$0" ${1+"$@"}
-	###
 
 package require BLT
 load ../../../src/.libs/libspice.so
diff --git a/examples/tclspice/tcl-testbench4/tcl-testbench4.sh b/examples/tclspice/tcl-testbench4/tcl-testbench4.sh
index da5c0fa2d..810db8d71 100755
--- a/examples/tclspice/tcl-testbench4/tcl-testbench4.sh
+++ b/examples/tclspice/tcl-testbench4/tcl-testbench4.sh
@@ -1,4 +1,3 @@
 #!/bin/sh
-# WishFix \
-	exec wish vspicechart.tcl example.cir
-###
+
+exec wish vspicechart.tcl example.cir
diff --git a/examples/tclspice/tcl/test_vectoblt.sh b/examples/tclspice/tcl/test_vectoblt.sh
index cac950acd..28f04b964 100755
--- a/examples/tclspice/tcl/test_vectoblt.sh
+++ b/examples/tclspice/tcl/test_vectoblt.sh
@@ -1,7 +1,6 @@
 #!/bin/sh
-# WishFix \
+# -*- mode: tcl -*- \
         exec wish -f "$0" ${1+"$@"}
-        ###
 
 package require BLT
 load ../../../src/.libs/libspice.so