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/
