From xemacs-m  Wed Feb  5 07:24:29 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 HAA27999
	for <xemacs-beta@xemacs.org>; Wed, 5 Feb 1997 07:24:28 -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 IAA09402; Wed, 5 Feb 1997 08:27:36 -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 OAA22780; Wed, 5 Feb 1997 14:23:50 +0100 (MET)
Received: by midnight.eng.ecf.teradyne.com (SMI-8.6/SMI-SVR4)
	id OAA03530; Wed, 5 Feb 1997 14:23:51 +0100
To: XEmacs Beta Mailing List <xemacs-beta@xemacs.org>
Cc: Daniel.Pfeiffer@Informatik.START.dbp.de
Subject: sh-mode exceeds `max-lisp-eval-depth'
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.101)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Feb__5_14:23:48_1997-1"
Content-Transfer-Encoding: 7bit
From: Adrian Aichner <aichner@ecf.teradyne.com>
Date: 05 Feb 1997 14:23:49 +0100
Message-ID: <rxsd8ufidy2.fsf@midnight.ecf.teradyne.com>
Lines: 61
X-Mailer: Red Gnus v0.84/XEmacs 20.0

--Multipart_Wed_Feb__5_14:23:48_1997-1
Content-Type: text/plain; charset=US-ASCII


Running
(emacs-version)
"XEmacs 20.0 [Lucid] (sparc-sun-solaris2.5, Mule) of Tue Feb  4 1997
on engine"

sh-mode as loaded from
(locate-library "sh-script")
"/xemacs-20.0/lisp/modes/sh-script.elc"

fails to insert any shell-statement as demonstrated by a
for-statement. I has seen the same problem for other statements and
for Bourne Shell also.


--Multipart_Wed_Feb__5_14:23:48_1997-1
Content-Type: text/plain; charset=US-ASCII

xemacs -no-init-file -no-site-file &
Options -> General Options -> Debug On Error
C-x C-f /tmp/hw.csh (a file which does not exist)
M-x sh-mode (which will insert magic number #! /bin/csh -f in my case)
C-c C-f i
This will leave Buffer hw.csh and a *Backtrace* as follows:

--Multipart_Wed_Feb__5_14:23:48_1997-1
Content-Type: text/plain; charset=US-ASCII

#! /bin/csh -f
foreach i (  )
    $i

--Multipart_Wed_Feb__5_14:23:48_1997-1
Content-Type: text/plain; charset=X-CTEXT

Signaling: (error "Lisp nesting exceeds `max-lisp-eval-depth'")
  skeleton-internal-1(-4 t)
489 LINES WITH "  skeleton-internal-1(-4 t)" DELETED
  skeleton-internal-1(-4 t)
  skeleton-internal-1((- (min sh-indentation (current-column))) t)
  skeleton-internal-1(<)
  byte-code("	@!" [skeleton-internal-1 skeleton] 2)
  skeleton-internal-list(("Index variable: " "foreach " str " ( " _ " )" n > _ | ?\$ & (sh-remember-variable str) n < "end") nil)
  (let ((< ...)) (skeleton-internal-list skeleton str))
)
  eval((let ((< ...)) (skeleton-internal-list skeleton str)))
  skeleton-insert(("Index variable: " "foreach " str " ( " _ " )" n > _ | ?\$ & (sh-remember-variable str) n < "end") nil nil)
  skeleton-proxy-new(((csh "Index variable: " "foreach " str " ( " _ " )" n > _ | ?\$ & (sh-remember-variable str) n < "end") (es eval sh-modify rc 3 " = ") (rc eval sh-modify sh 1 "for( " 5 " ) {" 15 ?\}) (sh "Index variable: " "for " str " in " _ "; do" n > _ | ?\$ & (sh-remember-variable str) n < "done")) nil nil)
  sh-for(nil nil)
  call-interactively(sh-for)

-- 
  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_Wed_Feb__5_14:23:48_1997-1--

