X-Spam-Check-By:	sourceware.org
MIME-Version:	1.0
Subject:	xemacs forms not like emacs forms
Date:	Tue, 17 Apr 2007 11:00:46 -0500
Message-ID:	<D9CD06436FCA4448987708EF46975C19717276@ssdmx.ssd.fsi.com>
From:	"Rockefeller, Harry" <harryr AT ssd DOT fsi DOT com>
To:	<cygwin AT cygwin DOT com>
X-IsSubscribed:	yes
Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id:	<cygwin.cygwin.com>
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sourceware.org/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
X-MIME-Autoconverted:	from quoted-printable to 8bit by delorie.com id l3IHB4AR001366

I define a user function to move between fields in my form (record):

(defun hr-tocol (target &optional fill)
 "Produces a string to skip to column TARGET.
  Prepends newline if needed.
  The optional FILL should be a character, used to fill to the column."
   (if (null fill)
       (setq fill ? ))
   (if (< target (current-column))
       (concat "\n" (make-string target fill))
       (make-string (- target (current-column)) fill)))

I use it in the forms-format-list list like this:

       "\nJob Number: " 2 '(hr-tocol 33) "Next Major Milestone and date:
" 4
       "\n      Name: " 3 '(hr-tocol 33) "Number of milestones missed: "
5
                          '(hr-tocol 33) "Hours behind schedule: " 6

It runs correctly in emacs but not xemacs.  I get this error in xemacs
when I try to save the form:

Parse error: not looking at 'Number of milestones missed: '

I can force the save to succeed by editing field 3 to have no
whitespace,
but then that breaks starting up the forms mode the next time.  It only
loads the last record up to field 3.

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -