* Makefile.in (timer.o, sorted-doc.c): Link with alloca.o, if it's
appropriate.
line source
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms.el -- Forms Mode - A GNU Emacs Major Mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; SCCS Status : @(#)@ forms 1.2.7
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Author : Johan Vromans
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Created On : 1989
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Last Modified By: Johan Vromans
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Last Modified On: Mon Jul 1 14:13:20 1991
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Update Count : 15
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Status : OK
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; This file is part of GNU Emacs.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; GNU Emacs is distributed in the hope that it will be useful,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; but WITHOUT ANY WARRANTY. No author or distributor
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; accepts responsibility to anyone for the consequences of using it
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; or for whether it serves any particular purpose or works at all,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; unless he says so in writing. Refer to the GNU Emacs General Public
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; License for full details.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Everyone is granted permission to copy, modify and redistribute
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; GNU Emacs, but only under the conditions described in the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; GNU Emacs General Public License. A copy of this license is
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; supposed to have been given to you along with GNU Emacs so you
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; can know your rights and responsibilities.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If you don't have this copy, write to the Free Software
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; HISTORY
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; 1-Jul-1991 Johan Vromans
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Normalized error messages.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; 30-Jun-1991 Johan Vromans
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Add support for forms-modified-record-filter.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Allow the filter functions to be the name of a function.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Fix: parse--format used forms--dynamic-text destructively.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Internally optimized the forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Added support for debugging.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Stripped duplicate documentation.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; 29-Jun-1991 Johan Vromans
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Add support for functions and lisp symbols in forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Add function forms-enumerate.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (provide 'forms-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Visit a file using a form.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; === Naming conventions
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The names of all variables and functions start with 'form-'.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Names which start with 'form--' are intended for internal use, and
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; should *NOT* be used from the outside.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; All variables are buffer-local, to enable multiple forms visits
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; simultaneously.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Variable 'forms--mode-setup' is local to *ALL* buffers, for it
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; controls if forms-mode has been enabled in a buffer.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; === How it works ===
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Forms mode means visiting a data file which is supposed to consist
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; of records each containing a number of fields. The records are
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; separated by a newline, the fields are separated by a user-defined
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; field separater (default: TAB).
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; When shown, a record is transferred to an emacs buffer and
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; presented using a user-defined form. One record is shown at a
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; time.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Forms mode is a composite mode. It involves two files, and two
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; buffers.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The first file, called the control file, defines the name of the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; data file and the forms format. This file buffer will be used to
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; present the forms.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The second file holds the actual data. The buffer of this file
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; will be buried, for it is never accessed directly.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Forms mode is invoked using "forms-find-file control-file".
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Alternativily forms-find-file-other-window can be used.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; You may also visit the control file, and switch to forms mode by hand
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; with M-x forms-mode .
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Automatic mode switching is supported, so you may use "find-file"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; if you specify "-*- forms -*-" in the first line of the control file.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The control file is visited, evaluated using
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; eval-current-buffer, and should set at least the following
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; variables:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-file [string] the name of the data file.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-number-of-fields [integer]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The number of fields in each record.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-format-list [list] formatting instructions.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The forms-format-list should be a list, each element containing
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; - a string, e.g. "hello" (which is inserted \"as is\"),
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; - an integer, denoting a field number. The contents of the field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; are inserted at this point.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The first field has number one.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; - a function call, e.g. (insert "text"). This function call is
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; dynamically evaluated and should return a string. It should *NOT*
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; have side-effects on the forms being constructed.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The current fields are available to the function in the variable
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-fields, they should *NOT* be modified.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; - a lisp symbol, that must evaluate to one of the above.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Optional variables which may be set in the control file:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-field-sep [string, default TAB]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The field separator used to separate the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; fields in the data file. It may be a string.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-read-only [bool, default nil]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; 't' means that the data file is visited read-only.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If no write access to the data file is
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; possible, read-only mode is enforced.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-multi-line [string, default "^K"]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If non-null the records of the data file may
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; contain fields which span multiple lines in
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; the form.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; This variable denoted the separator character
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; to be used for this purpose. Upon display, all
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; occurrencies of this character are translated
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; to newlines. Upon storage they are translated
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; back to the separator.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-forms-scroll [bool, default t]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If non-nil: redefine scroll-up/down to perform
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-next/prev-field if in forms mode.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-forms-jump [bool, default t]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If non-nil: redefine beginning/end-of-buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; to performs forms-first/last-field if in
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms mode.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-new-record-filter [symbol, no default]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If defined: this should be the name of a
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; function that is called when a new
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; record is created. It can be used to fill in
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; the new record with default fields, for example.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Instead of the name of the function, it may
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; be the function itself.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-modified-record-filter [symbol, no default]
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; If defined: this should be the name of a
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; function that is called when a record has
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; been modified. It is called after the fields
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; are parsed. It can be used to register
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; modification dates, for example.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Instead of the name of the function, it may
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; be the function itself.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; After evaluating the control file, its buffer is cleared and used
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; for further processing.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The data file (as designated by "forms-file") is visited in a buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (forms--file-buffer) which will not normally be shown.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Great malfunctioning may be expected if this file/buffer is modified
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; outside of this package while it's being visited!
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A record from the data file is transferred from the data file,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; split into fields (into forms--the-record-list), and displayed using
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; the specs in forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A format routine 'forms--format' is built upon startup to format
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; the records.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; When a form is changed the record is updated as soon as this form
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; is left. The contents of the form are parsed using forms-format-list,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; and the fields which are deduced from the form are modified. So,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; fields not shown on the forms retain their origional values.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The newly formed record and replaces the contents of the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; old record in forms--file-buffer.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A parse routine 'forms--parser' is built upon startup to parse
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; the records.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Two exit functions exist: forms-exit (which saves) and forms-exit-no-save
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (which doesn't). However, if forms-exit-no-save is executed and the file
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; buffer has been modified, emacs will ask questions.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Other functions are:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; paging (forward, backward) by record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; jumping (first, last, random number)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; searching
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; creating and deleting records
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; reverting the form (NOT the file buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; switching edit <-> view mode v.v.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; jumping from field to field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; As an documented side-effect: jumping to the last record in the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; file (using forms-last-record) will adjust forms--total-records if
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; needed.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Commands and keymaps:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A local keymap 'forms-mode-map' is used in the forms buffer.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; As conventional, this map can be accessed with C-c prefix.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; In read-only mode, the C-c prefix must be omitted.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Default bindings:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; \C-c forms-mode-map
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; TAB forms-next-field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; SPC forms-next-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; < forms-first-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; > forms-last-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ? describe-mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; d forms-delete-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; e forms-edit-mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; i forms-insert-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; j forms-jump-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; n forms-next-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; p forms-prev-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; q forms-exit
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; s forms-search
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; v forms-view-mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; x forms-exit-no-save
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; DEL forms-prev-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Standard functions scroll-up, scroll-down, beginning-of-buffer and
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; end-of-buffer are wrapped with re-definitions, which map them to
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; next/prev record and first/last record.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Buffer-local variables forms-forms-scroll and forms-forms-jump
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; may be used to control these redefinitions.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Function save-buffer is also wrapped to perform a sensible action.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A revert-file-hook is defined to revert a forms to original.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; For convenience, TAB is always bound to forms-next-field, so you
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; don't need the C-c prefix for this command.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Global variables and constants
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defconst forms-version "1.2.7"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Version of forms-mode implementation")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-forms-scrolls t
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "If non-null: redefine scroll-up/down to be used with forms-mode.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-forms-jumps t
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "If non-null: redefine beginning/end-of-buffer to be used with forms-mode.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-mode-hooks nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Hook functions to be run upon entering forms mode.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Mandatory variables - must be set by evaluating the control file
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-file nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Name of the file holding the data.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-format-list nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "List of formatting specifications.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-number-of-fields nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Number of fields per record.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Optional variables with default values
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-field-sep "\t"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Field separator character (default TAB)")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-read-only nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Read-only mode (defaults to the write access on the data file).")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-multi-line "\C-k"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Character to separate multi-line fields (default ^K)")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-forms-scroll t
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Redefine scroll-up/down to perform forms-next/prev-record when in
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms mode.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-forms-jump t
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Redefine beginning/end-of-buffer to perform forms-first/last-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� when in forms mode.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Internal variables.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--file-buffer nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Buffer which holds the file data")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--total-records 0
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Total number of records in the data file.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--current-record 0
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Number of the record currently on the screen.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-mode-map nil ; yes - this one is global
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Keymap for form buffer.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--markers nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Field markers in the screen.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--number-of-markers 0
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Number of fields on screen.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--the-record-list nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "List of strings of the current record, as parsed from the file.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--search-regexp nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Last regexp used by forms-search.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--format nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Formatting routine.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--parser nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Forms parser routine.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--mode-setup nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Internal - keeps track of forms-mode being set-up.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-variable-buffer-local 'forms--mode-setup)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--new-record-filter nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Internal - set if a new record filter has been defined.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--modified-record-filter nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Internal - set if a modified record filter has been defined.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--dynamic-text nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Internal - holds dynamic text to insert between fields.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms-fields nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "List with fields of the current forms. First field has number 1.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; This is not a simple major mode, as usual. Therefore, forms-mode
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; takes an optional argument 'primary' which is used for the initial
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; set-up. Normal use would leave 'primary' to nil.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; A global buffer-local variable 'forms--mode-setup' has the same effect
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; but makes it possible to auto-invoke forms-mode using find-file.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Note: although it seems logical to have (make-local-variable) executed
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; where the variable is first needed, I deliberately placed all calls
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; in the forms-mode function.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-mode (&optional primary)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Major mode to visit files in a field-structured manner using a form.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� Commands (prefix with C-c if not in read-only mode):
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� \\{forms-mode-map}"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive) ; no - 'primary' is not prefix arg
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; Primary set-up: evaluate buffer and check if the mandatory
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; variables have been set.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or primary (not forms--mode-setup))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (kill-all-local-variables)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; make mandatory variables
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-file)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-number-of-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; make optional variables
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-field-sep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-read-only)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-multi-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-forms-scroll)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-forms-jump)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fmakunbound 'forms-new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; eval the buffer, should set variables
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (eval-current-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; check if the mandatory variables make sense.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or forms-file
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-file' has not been set"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or forms-number-of-fields
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-number-of-fields' has not been set"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or (> forms-number-of-fields 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-number-of-fields' must be > 0")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or (stringp forms-field-sep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-field-sep' is not a string"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-multi-line
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and (stringp forms-multi-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (eq (length forms-multi-line) 1))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (string= forms-multi-line forms-field-sep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-multi-line' is equal to 'forms-field-sep'"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-multi-line' must be nil or a one-character string")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; validate and process forms-format-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--number-of-markers)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--markers)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--process-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; build the formatter and parser
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--format)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--make-format)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--parser)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--make-parser)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; check if record filters are defined
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--new-record-filter
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cond
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((fboundp 'forms-new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (symbol-function 'forms-new-record-filter))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((and (boundp 'forms-new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fboundp forms-new-record-filter))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-new-record-filter)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fmakunbound 'forms-new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--modified-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--modified-record-filter
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cond
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((fboundp 'forms-modified-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (symbol-function 'forms-modified-record-filter))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((and (boundp 'forms-modified-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fboundp forms-modified-record-filter))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-modified-record-filter)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fmakunbound 'forms-modified-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; dynamic text support
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--dynamic-text)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; prepare this buffer for further processing
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq buffer-read-only nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; prevent accidental overwrite of the control file and autosave
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq buffer-file-name nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (auto-save-mode nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; and clean it
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (erase-buffer)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; make local variables
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--total-records)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--current-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--the-record-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'forms--search-rexexp)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; A bug in the current Emacs release prevents a keymap
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; which is buffer-local from being used by 'describe-mode'.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; Hence we'll leave it global.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;(make-local-variable 'forms-mode-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-mode-map ; already defined
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-mode-map (make-keymap))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--mode-commands forms-mode-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--change-commands))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; find the data file
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--file-buffer (find-file-noselect forms-file))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; count the number of records, and set see if it may be modified
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (ro)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--total-records
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (bury-buffer (current-buffer))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ro buffer-read-only)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (count-lines (point-min) (point-max))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if ro
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-read-only t)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; set the major mode indicator
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq major-mode 'forms-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq mode-name "Forms")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'minor-mode-alist) ; needed?
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--set-minor-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--set-keymaps)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer-modified-p nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; We have our own revert function - use it
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-local-variable 'revert-buffer-function)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq revert-buffer-function 'forms-revert-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; setup the first (or current) record to show
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (< forms--current-record 1)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record 1))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record forms--current-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; user customising
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (run-hooks 'forms-mode-hooks)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; be helpful
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--help)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; initialization done
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--mode-setup t))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms-process-format-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Validates forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Sets forms--number-of-markers and forms--markers.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--process-format-list ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Validate forms-format-list and set some global variables."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--debug "forms-forms-list before 1st pass:\n"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 'forms-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; it must be non-nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or forms-format-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-format-list' has not been set"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; it must be a list ...
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or (listp forms-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "'forms-format-list' is not a list"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--number-of-markers 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-list forms-format-list) ; the list of format elements
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (this-item 0) ; element in list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (field-num 0)) ; highest field number
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-format-list nil) ; gonna rebuild
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while the-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((el (car-safe the-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (rem (cdr-safe the-list)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; if it is a symbol, eval it first
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and (symbolp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (boundp el))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq el (eval el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cond
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; try string ...
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((stringp el)) ; string is OK
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; try numeric ...
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((numberp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or (<= el 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (> el forms-number-of-fields))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Forms error: field number %d out of range 1..%d"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� el forms-number-of-fields))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--number-of-markers (1+ forms--number-of-markers))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (> el field-num)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq field-num el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; try function
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((listp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or (fboundp (car-safe el))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Forms error: not a function: %s"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prin1-to-string (car-safe el)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; else
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (t
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Invalid element in 'forms-format-list': %s"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prin1-to-string el))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; advance to next element of the list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-list rem)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-format-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (append forms-format-list (list el) nil)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--debug "forms-forms-list after 1st pass:\n"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 'forms-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; concat adjacent strings
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-format-list (forms--concat-adjacent forms-format-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--debug "forms-forms-list after 2nd pass:\n"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 'forms-format-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 'forms--number-of-markers)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--markers (make-vector forms--number-of-markers nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Build the format routine from forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The format routine (forms--format) will look like
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (lambda (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (setq forms--dynamic-text nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; "text: "
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (insert "text: ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; 6
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (aset forms--markers 0 (point-marker))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (insert (elt arg 5))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; "\nmore text: "
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (insert "\nmore text: ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; (tocol 40)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (let ((the-dyntext (tocol 40)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (insert the-dyntext)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (setq forms--dynamic-text (append forms--dynamic-text
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (list the-dyntext))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; 9
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (aset forms--markers 1 (point-marker))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (insert (elt arg 8))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ... )
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--make-format ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Generate format function for forms"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--format (forms--format-maker forms-format-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--debug 'forms--format))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--format-maker (the-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Returns the parser function for forms"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-marker 0))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` (lambda (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--dynamic-text nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (,@ (apply 'append
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (mapcar 'forms--make-format-elt the-format-list)))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--make-format-elt (el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cond ((stringp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((insert (, el)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((numberp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prog1
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((aset forms--markers (, the-marker) (point-marker))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert (elt arg (, (1- el))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-marker (1+ the-marker))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((listp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prog1
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((let ((the-dyntext (, el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert the-dyntext)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--dynamic-text (append forms--dynamic-text
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (list the-dyntext)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� )))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--concat-adjacent (the-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Concatenate adjacent strings in the-list and return the resulting list"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (consp the-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-rest (forms--concat-adjacent (cdr the-list))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and (stringp (car the-list)) (stringp (car the-rest)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cons (concat (car the-list) (car the-rest))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cdr the-rest))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cons (car the-list) the-rest)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; forms--make-parser.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Generate parse routine from forms-format-list.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; The parse routine (forms--parser) will look like (give or take
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; a few " " .
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (lambda nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (let (here)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (goto-char (point-min))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; "text: "
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (if (not (looking-at "text: "))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (error "Parse error: cannot find \"text: \""))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (forward-char 6) ; past "text: "
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; 6
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; "\nmore text: "
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (setq here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (if (not (search-forward "\nmore text: " nil t nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (error "Parse error: cannot find \"\\nmore text: \""))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (aset the-recordv 5 (buffer-substring here (- (point) 12)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; (tocol 40)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (let ((the-dyntext (car-safe forms--dynamic-text)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (if (not (looking-at (regexp-quote the-dyntext)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (error "Parse error: not looking at \"%s\"" the-dyntext))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (forward-char (length the-dyntext))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (setq forms--dynamic-text (cdr-safe forms--dynamic-text)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ...
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; ;; final flush (due to terminator sentinel, see below)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; (aset the-recordv 7 (buffer-substring (point) (point-max)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--make-parser ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Generate parser function for forms"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--parser (forms--parser-maker forms-format-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--debug 'forms--parser))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--parser-maker (the-format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Returns the parser function for forms"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-field nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (seen-text nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the--format-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; add a terminator sentinel
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the--format-list (append the-format-list (list nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` (lambda nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (here)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char (point-min))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (,@ (apply 'append
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (mapcar 'forms--make-parser-elt the--format-list))))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--make-parser-elt (el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cond
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((stringp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prog1
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if the-field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((setq here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (not (search-forward (, el) nil t nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Parse error: cannot find \"%s\"" (, el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (aset the-recordv (, (1- the-field))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (buffer-substring here
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (- (point) (, (length el)))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((if (not (looking-at (, (regexp-quote el))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Parse error: not looking at \"%s\"" (, el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forward-char (, (length el))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq seen-text t)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-field nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((numberp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if the-field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Cannot parse adjacent fields %d and %d"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the-field el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-field el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((null el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if the-field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((aset the-recordv (, (1- the-field))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (buffer-substring (point) (point-max)))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((listp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prog1
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if the-field
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((let ((here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (the-dyntext (car-safe forms--dynamic-text)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (not (search-forward the-dyntext nil t nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Parse error: cannot find \"%s\"" the-dyntext))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (aset the-recordv (, (1- the-field))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (buffer-substring here
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (- (point) (length the-dyntext))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--dynamic-text (cdr-safe forms--dynamic-text)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (` ((let ((the-dyntext (car-safe forms--dynamic-text)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (not (looking-at (regexp-quote the-dyntext)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (error "Parse error: not looking at \"%s\"" the-dyntext))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forward-char (length the-dyntext))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--dynamic-text (cdr-safe forms--dynamic-text))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq seen-text t)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-field nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--set-minor-mode ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq minor-mode-alist
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-read-only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� " View"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--set-keymaps ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Set the keymaps used in this mode."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-read-only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (use-local-map forms-mode-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (use-local-map (make-sparse-keymap))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key (current-local-map) "\C-c" forms-mode-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key (current-local-map) "\t" 'forms-next-field)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--mode-commands (map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Fill map with all commands."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\t" 'forms-next-field)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map " " 'forms-next-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "d" 'forms-delete-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "e" 'forms-edit-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "i" 'forms-insert-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "j" 'forms-jump-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "n" 'forms-next-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "p" 'forms-prev-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "q" 'forms-exit)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "s" 'forms-search)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "v" 'forms-view-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "x" 'forms-exit-no-save)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "<" 'forms-first-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map ">" 'forms-last-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "?" 'describe-mode)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\177" 'forms-prev-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ; (define-key map "\C-c" map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\e" 'ESC-prefix)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\C-x" ctl-x-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\C-u" 'universal-argument)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (define-key map "\C-h" help-map)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� )
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Changed functions
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Emacs (as of 18.55) lacks the functionality of buffer-local
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; funtions. Therefore we save the original meaning of some handy
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; functions, and replace them with a wrapper.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--change-commands ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Localize some commands."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; scroll-down -> forms-prev-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp 'forms--scroll-down)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'forms--scroll-down (symbol-function 'scroll-down))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'scroll-down
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(lambda (&optional arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and forms--mode-setup
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-forms-scroll)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-prev-record arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--scroll-down arg)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; scroll-up -> forms-next-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp 'forms--scroll-up)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'forms--scroll-up (symbol-function 'scroll-up))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'scroll-up
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(lambda (&optional arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and forms--mode-setup
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-forms-scroll)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-next-record arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--scroll-up arg)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; beginning-of-buffer -> forms-first-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp 'forms--beginning-of-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'forms--beginning-of-buffer (symbol-function 'beginning-of-buffer))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'beginning-of-buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(lambda ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and forms--mode-setup
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-forms-jump)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-first-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--beginning-of-buffer)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; end-of-buffer -> forms-end-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp 'forms--end-of-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'forms--end-of-buffer (symbol-function 'end-of-buffer))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'end-of-buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(lambda ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and forms--mode-setup
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-forms-jump)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-last-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--end-of-buffer)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; save-buffer -> forms--save-buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp 'forms--save-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'forms--save-buffer (symbol-function 'save-buffer))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fset 'save-buffer
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(lambda (&optional arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "p")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms--mode-setup
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--save-buffer arg)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--save-buffer arg)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� )
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--help ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Initial help."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; We should use
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;(message (substitute-command-keys (concat
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;"\\[forms-next-record]:next"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;" \\[forms-prev-record]:prev"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;" \\[forms-first-record]:first"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;" \\[forms-last-record]:last"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;" \\[describe-mode]:help"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;" \\[forms-exit]:exit")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; but it's too slow ....
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-read-only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "SPC:next DEL:prev <:first >:last ?:help q:exit")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "C-c n:next C-c p:prev C-c <:first C-c >:last C-c ?:help C-c q:exit")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--trans (subj arg rep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Translate in SUBJ all chars ARG into char REP. ARG and REP should
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� be single-char strings."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((i 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (x (length subj))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (re (regexp-quote arg))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (k (string-to-char rep)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while (setq i (string-match re subj i))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (aset subj i k)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq i (1+ i)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--exit (query &optional save)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((buf (buffer-name forms--file-buffer)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (and save
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (buffer-modified-p forms--file-buffer))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-buffer)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (delete-auto-save-file-if-necessary)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (kill-buffer (current-buffer)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (get-buffer buf) ; not killed???
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if save
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Problem saving buffers?")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (delete-auto-save-file-if-necessary)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (kill-buffer (current-buffer)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--get-record ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Fetch the current record from the file buffer."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; This function is executed in the context of the forms--file-buffer.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or (bolp)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beginning-of-line nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((here (point)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (prog2
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (end-of-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (buffer-substring here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char here))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--show-record (the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Format THE-RECORD according to forms-format-list,
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� and display it in the current buffer."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; split the-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (the-result
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (start-pos 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� found-pos
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (field-sep-length (length forms-field-sep)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-multi-line
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--trans the-record forms-multi-line "\n"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; add an extra separator (makes splitting easy)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-record (concat the-record forms-field-sep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while (setq found-pos (string-match forms-field-sep the-record start-pos))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((ent (substring the-record start-pos found-pos)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-result
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (append the-result (list ent)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq start-pos (+ field-sep-length found-pos))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--the-record-list the-result))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq buffer-read-only nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (erase-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; verify the number of fields, extend forms--the-record-list if needed
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (= (length forms--the-record-list) forms-number-of-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Record has %d fields instead of %d."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (length forms--the-record-list) forms-number-of-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (< (length forms--the-record-list) forms-number-of-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--the-record-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (append forms--the-record-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (make-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (- forms-number-of-fields
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (length forms--the-record-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "")))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; call the formatter function
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-fields (append (list nil) forms--the-record-list nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (funcall forms--format forms--the-record-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; prepare
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char (point-min))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer-modified-p nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq buffer-read-only forms-read-only)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq mode-line-process
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (concat " " forms--current-record "/" forms--total-records)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--parse-form ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Parse contents of form into list of strings."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; The contents of the form are parsed, and a new list of strings
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; is constructed.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; A vector with the strings from the original record is
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; constructed, which is updated with the new contents. Therefore
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; fields which were not in the form are not modified.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; Finally, the vector is transformed into a list for further processing.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (the-recordv)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; build the vector
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-recordv (vconcat forms--the-record-list))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; parse the form and update the vector
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((forms--dynamic-text forms--dynamic-text))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (funcall forms--parser))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms--modified-record-filter
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; As a service to the user, we add a zeroth element so she
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; can use the same indices as in the forms definition.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-fields (vconcat [nil] the-recordv)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-fields (funcall forms--modified-record-filter the-fields))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cdr (append the-fields nil)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; transform to a list and return
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (append the-recordv nil))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--update ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Update current record with contents of form. As a side effect: sets
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms--the-record-list ."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-read-only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Read-only buffer!")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; build new record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--the-record-list (forms--parse-form))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (mapconcat 'identity forms--the-record-list forms-field-sep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; handle multi-line fields, if allowed
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-multi-line
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--trans the-record "\n" forms-multi-line))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; a final sanity check before updating
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (string-match "\n" the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Multi-line fields in this record - update refused!")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; Insert something before kill-line is called. See kill-line
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; doc. Bugfix provided by Ignatios Souvatzis.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert "*")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beginning-of-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (kill-line nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beginning-of-line))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--checkmod ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Check if this form has been modified, and call forms--update if so."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (buffer-modified-p nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((here (point)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--update)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer-modified-p nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char here))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Start and exit
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-find-file (fn)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Visit file FN in forms mode"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "fForms file: ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (find-file-read-only fn)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or forms--mode-setup (forms-mode t)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-find-file-other-window (fn)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Visit file FN in form mode in other window"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "fFbrowse file in other window: ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (find-file-other-window fn)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (eval-current-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (or forms--mode-setup (forms-mode t)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-exit (query)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Normal exit. Modified buffers are saved."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--exit query t))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-exit-no-save (query)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Exit without saving buffers."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--exit query nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Navigating commands
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-next-record (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Advance to the ARGth following record."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record (+ forms--current-record (prefix-numeric-value arg)) t))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-prev-record (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Advance to the ARGth previous record."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record (- forms--current-record (prefix-numeric-value arg)) t))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-jump-record (arg &optional relative)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Jump to a random record."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "NRecord number: ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; verify that the record number is within range
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or (> arg forms--total-records)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (<= arg 0))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; don't give the message if just paging
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (not relative)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Record number %d out of range 1..%d"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� arg forms--total-records))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� )
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; flush
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; calculate displacement
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((disp (- arg forms--current-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cur forms--current-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; forms--show-record needs it now
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; get the record and show it
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--show-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beginning-of-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; move, and adjust the amount if needed (shouldn't happen)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if relative
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (zerop disp)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq cur (+ cur disp (- (forward-line disp)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq cur (+ cur disp (- (goto-line arg)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--get-record)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; this shouldn't happen
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (/= forms--current-record cur)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record cur)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Stuck at record %d." cur))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-first-record ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Jump to first record."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record 1))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-last-record ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Jump to last record. As a side effect: re-calculates the number
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� of records in the data file."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ((numrec
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (count-lines (point-min) (point-max)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (= numrec forms--total-records)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--total-records numrec)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "Number of records reset to %d." forms--total-records)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record forms--total-records))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Other commands
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-view-mode ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Visit buffer read-only."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms-read-only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod) ; sync
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-read-only t)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-mode)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-edit-mode ()
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Make form suitable for editing, if possible."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((ro forms-read-only))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� buffer-read-only)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-read-only t)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message "No write access to \"%s\"" forms-file)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms-read-only nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (equal ro forms-read-only)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-mode))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; Sample:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; (defun my-new-record-filter (the-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; ;; numbers are relative to 1
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; (aset the-fields 4 (current-time-string))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; (aset the-fields 6 (user-login-name))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; the-list)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; (setq forms-new-record-filter 'my-new-record-filter)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-insert-record (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Create a new record before the current one. With ARG: store the
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� record after the current one.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� If a function forms-new-record-filter is defined, or forms-new-record-filter
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� contains the name of a function, it is called to
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� fill (some of) the fields with default values."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ; The above doc is not true, but for documentary purposes only
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((ln (if arg (1+ forms--current-record) forms--current-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the-list the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms--new-record-filter
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; As a service to the user, we add a zeroth element so she
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;; can use the same indices as in the forms definition.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-fields (make-vector (1+ forms-number-of-fields) "")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-fields (funcall forms--new-record-filter the-fields))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-list (cdr (append the-fields nil))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-list (make-list forms-number-of-fields "")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-record
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (mapconcat
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 'identity
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the-list
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms-field-sep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-line ln)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (open-line 1)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (beginning-of-line))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record ln))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--total-records (1+ forms--total-records))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record forms--current-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-delete-record (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Deletes a record. With ARG: don't ask."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or arg
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (y-or-n-p "Really delete this record? "))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((ln forms--current-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-line ln)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (kill-line 1))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--total-records (1- forms--total-records))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (> forms--current-record forms--total-records)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record forms--total-records))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record forms--current-record)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message ""))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-search (regexp)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Search REGEXP in file buffer."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (list (read-string (concat "Search for"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms--search-regexp
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (concat " ("
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� forms--search-regexp
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ")"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ": "))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (equal "" regexp)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq regexp forms--search-regexp))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--checkmod)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let (the-line the-record here
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (fld-sep forms-field-sep))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer forms--file-buffer)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (end-of-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (null (re-search-forward regexp nil t))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char here)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (message (concat "\"" regexp "\" not found."))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-record (forms--get-record))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-line (1+ (count-lines (point-min) (point))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--current-record the-line)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms--show-record the-record)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (re-search-forward regexp nil t))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq forms--search-regexp regexp))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-revert-buffer (&optional arg noconfirm)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Reverts current form to un-modified."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "P")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or noconfirm
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (yes-or-no-p "Revert form to unmodified? "))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer-modified-p nil)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-jump-record forms--current-record))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-next-field (arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Jump to ARG-th next field."
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (interactive "p")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((i 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (here (point))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� there
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (cnt 0))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (zerop arg)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq cnt 1)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq cnt (+ cnt arg)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (catch 'done
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while (< i forms--number-of-markers)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (or (null (setq there (aref forms--markers i)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (<= there here))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (<= (setq cnt (1- cnt)) 0)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (progn
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char there)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (throw 'done t))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq i (1+ i))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char (aref forms--markers 0)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Special service
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms-enumerate (the-fields)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Take a quoted list of symbols, and set their values to the numbers
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� 1, 2 and so on. Returns the higest number.
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� Usage: (setq forms-number-of-fields
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (forms-enumerate
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� '(field1 field2 field2 ...)))"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((the-index 0))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while the-fields
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-index (1+ the-index))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((el (car-safe the-fields)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq the-fields (cdr-safe the-fields))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set el the-index)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� the-index))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Debugging
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;;
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defvar forms--debug nil
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "*Enables forms-mode debugging if not nil.")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (defun forms--debug (&rest args)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "Internal - debugging routine"
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if forms--debug
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((ret nil))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (while args
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((el (car-safe args)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq args (cdr-safe args))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (stringp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ret (concat ret el))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ret (concat ret (prin1-to-string el) " = "))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (boundp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (let ((vel (eval el)))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ret (concat ret (prin1-to-string vel) "\n")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ret (concat ret "<unbound>" "\n")))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (if (fboundp el)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (setq ret (concat ret (prin1-to-string (symbol-function el))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� "\n"))))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (save-excursion
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (set-buffer (get-buffer-create "*forms-mode debug*"))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (goto-char (point-max))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� (insert ret)))))
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩���
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; Local Variables:
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; eval: (headers)
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; eval: (setq comment-start ";;; ")
+ ��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��渇��膩��活�o申�鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃初姐�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申鐃緒申����鐃初��膩��鰹申鐃順�渇��膩��� ;;; End: