From xemacs-m  Wed Feb  5 16:46:55 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA07504
	for <xemacs-beta@xemacs.org>; Wed, 5 Feb 1997 16:46:54 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id OAA32077;
	Wed, 5 Feb 1997 14:58:00 -0800
To: xemacs-beta@xemacs.org
Cc: Daniel.Pfeiffer@Informatik.START.dbp.de
Subject: Re: sh-mode exceeds `max-lisp-eval-depth'
References: <rxsd8ufidy2.fsf@midnight.ecf.teradyne.com>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Adrian Aichner's message of 05 Feb 1997 14:23:49 +0100
Mime-Version: 1.0 (generated by tm-edit 7.101)
Content-Type: text/plain; charset=US-ASCII
Date: 05 Feb 1997 14:58:00 -0800
Message-ID: <m2pvyelv2f.fsf@altair.xemacs.org>
Lines: 38
X-Mailer: Gnus v5.4.11/XEmacs 20.0

> Running
> (emacs-version)
> "XEmacs 20.0 [Lucid] (sparc-sun-solaris2.5, Mule) of Tue Feb  4 1997
> on engine"
 ...
> 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:

This is XEmacs' way of saying ``don't use csh for programming''. :-)

Characters and integers are not equivalent in v20.  The following
patch seems to work.

Index: lisp/utils/skeleton.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/utils/skeleton.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 skeleton.el
--- skeleton.el	1996/12/18 22:43:01	1.1.1.1
+++ skeleton.el	1997/02/05 22:52:30
@@ -391,7 +391,8 @@
 
 
 (defun skeleton-internal-1 (element &optional literal)
-  (cond ((char-or-string-p element)
+  (cond ((or (integerp element)
+	     (char-or-string-p element))
 	 (if (and (integerp element)	; -num
 		  (< element 0))
 	     (if skeleton-untabify

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

