X-Spam-Check-By: sourceware.org
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain; 	charset="us-ascii"
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
Content-Transfer-Encoding: 8bit
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/