From xemacs-m  Fri Feb 28 15:32:15 1997
Received: from steadfast.teradyne.com (steadfast.teradyne.com [131.101.1.200])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA12962
	for <xemacs-beta@xemacs.org>; Fri, 28 Feb 1997 15:32:14 -0600 (CST)
Received: from engine.ecf.teradyne.com (engine.ecf.teradyne.com [131.101.192.6]) by steadfast.teradyne.com (8.7.1/8.7.1) with ESMTP id QAA13435; Fri, 28 Feb 1997 16:35:23 -0500 (EST)
Received: from midnight.eng.ecf.teradyne.com (midnight.ecf.teradyne.com [131.101.192.49]) by engine.ecf.teradyne.com (8.7.1/8.7.1) with SMTP id WAA26342; Fri, 28 Feb 1997 22:31:25 +0100 (MET)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id WAA23000; Fri, 28 Feb 1997 22:31:26 +0100
To: "Steven L. Baur" <steve@miranova.com>
Cc: XEmacs Beta Mailing List <xemacs-beta@xemacs.org>
Subject: pico-patch for sh-script.el
X-Face: 4[iHdXiTu\V3u[~\I)<f9HC);%~nG8`oUqv#uzvs6=\V{AjN6Sn
 c/qi;YLwRmEbt8Y*=j5n(urqY@chPh@J'D"QlqD!C8>*}#kYF[-tYl3VZga/HSOP|K,{L
 Rtu@f0y/=O&Cu}\:~d|P$JON?pn?j,&CnPb1z#/TL9bkAJwyol&a:SvYj-VYbM=Dtxhk9
 =w|R6U3_;SH&B<Mfy6Q%#
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Feb_28_22:31:24_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 28 Feb 1997 22:31:25 +0100
Message-ID: <rxszpwo4nyq.fsf@midnight.ecf.teradyne.com>
Lines: 64
X-Mailer: Gnus v5.4.15/XEmacs 20.1

--Multipart_Fri_Feb_28_22:31:24_1997-1
Content-Type: text/plain; charset=US-ASCII


Hello Steven,

It is against 20.1-b3 and leaves point at the correct place in the test
condition when inserting if statements (C-c C-i) in Bourne- and
Korn-Shell.

Steven, I was not able to apply the patch (for testing purposes),
because an ediff/ange-ftp issue still exists in 20.1-b3. I reported
that yesterday in gorey detail. BTW, I have byte-compiled
ediff-init.el since.

Anyway, here's the patch.

Later,

Adrian


--Multipart_Fri_Feb_28_22:31:24_1997-1
Content-Type: text/plain; charset=US-ASCII

*** 1.1	1997/02/28 20:10:46
--- sh-script.el	1997/02/28 20:28:25
***************
*** 382,389 ****
    "Word to delimit here documents.")
  
  (defvar sh-test
!   '((sh "[  ]" . 3)
!     (ksh88 "[[  ]]" . 4))
    "Initial input in Bourne if, while and until skeletons.  See `sh-feature'.")
  
  
--- 382,389 ----
    "Word to delimit here documents.")
  
  (defvar sh-test
!   '((sh "[  ]" . 2)
!     (ksh88 "[[  ]]" . 3))
    "Initial input in Bourne if, while and until skeletons.  See `sh-feature'.")


--Multipart_Fri_Feb_28_22:31:24_1997-1
Content-Type: text/plain; charset=US-ASCII

Signaling: (void-function ange-ftp-ftp-path)
  ange-ftp-ftp-path("/usr/local/xemacs-20.1-b3/lisp/modes/sh-script.el.~1.1~")
  ediff-patch-file-internal(#<buffer "sh-script.el-patch"> "/usr/local/xemacs-20.1-b3/lisp/modes/sh-script.el.~1.1~" nil)
  ediff-dispatch-file-patching-job(#<buffer "sh-script.el-patch"> "/usr/local/xemacs-20.1-b3/lisp/modes/sh-script.el.~1.1~" nil)
  ediff-patch-buffer-internal(#<buffer "sh-script.el-patch"> "sh-script.el.~1.1~")
  #<compiled-function (from "ediff.elc") nil "...(48)" [nil patch-buf require ediff-ptch ediff-get-patch-buffer ediff-patch-buffer-internal read-buffer "Which buffer to patch? " window-buffer other-window 1 must-match] 7 ("/usr/local/xemacs-20.1-b3/lisp/ediff/ediff.elc" . 25595) nil>()
  call-interactively(ediff-patch-buffer)

-- 
  Teradyne GmbH               Adrian Aichner Applications Engineer
  Semiconductor Test Group    Telephone      +49/89/418 61 (0)-208
  Dingolfinger Strasse 2      Fax            +49/89/418 61-217
  D-81673 M"UNCHEN            E-mail         aichner@ecf.teradyne.com

--Multipart_Fri_Feb_28_22:31:24_1997-1--

