;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Jun 19 22:01:50 1995
;;; from file /home/fsf/rms/e19/lisp/forms.el
;;; emacs version 19.28.95.3.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (error "`forms.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!ˆÀÂ!‡" [provide forms forms-mode] 2)
#@131 The version number of forms-mode (as string).  The complete RCS id is:

  $Id: forms.el,v 2.18 1995/06/18 14:43:23 jvromans Exp $
(defconst forms-version (substring "$Revision: 2.18 $" 11 -2) (#$ . 524))
#@52 Hook functions to be run upon entering Forms mode.
(defvar forms-mode-hooks nil (#$ . 734))
#@36 Name of the file holding the data.
(defvar forms-file nil (#$ . 832))
#@36 List of formatting specifications.
(defvar forms-format-list nil (#$ . 908))
#@30 Number of fields per record.
(defvar forms-number-of-fields nil (#$ . 991))
#@42 Field separator character (default TAB).
(defvar forms-field-sep "	" (#$ . 1073))
#@106 Non-nil means: visit the file in view (read-only) mode.
(Defaults to the write access on the data file).
(defvar forms-read-only nil (#$ . 1162))
#@77 If not nil: use this character to separate multi-line fields (default C-k).
(defvar forms-multi-line "" (#$ . 1314))
#@121 *Non-nil means replace scroll-up/down commands in Forms mode.
The replacement commands performs forms-next/prev-record.
(defvar forms-forms-scroll nil (#$ . -1439))
#@123 *Non-nil means redefine beginning/end-of-buffer in Forms mode.
The replacement commands performs forms-first/last-record.
(defvar forms-forms-jump nil (#$ . -1611))
#@169 The name of a function that is called after reading the data file.
This can be used to change the contents of the file to something more
suitable for forms processing.
(defvar forms-read-file-filter nil (#$ . 1783))
#@130 The name of a function that is called before writing the data file.
This can be used to undo the effects of form-read-file-hook.
(defvar forms-write-file-filter nil (#$ . 2006))
#@69 The name of a function that is called when a new record is created.
(defvar forms-new-record-filter nil (#$ . 2190))
#@72 The name of a function that is called when a record has been modified.
(defvar forms-modified-record-filter nil (#$ . 2313))
#@156 List with fields of the current forms.  First field has number 1.
This variable is for use by the filter routines only. 
The contents may NOT be modified.
(defvar forms-fields nil (#$ . 2445))
#@115 *Non-nil means: use emacs-19 text properties.
Defaults to t if this emacs is capable of handling text properties.
(defvar forms-use-text-properties (fboundp (quote set-text-properties)) (#$ . -2645))
#@75 The face (a symbol) that is used to display read-only text on the screen.
(defvar forms-ro-face (quote default) (#$ . 2851))
#@76 The face (a symbol) that is used to display read-write text on the screen.
(defvar forms-rw-face (quote region) (#$ . 2982))
#@34 Buffer which holds the file data
(defvar forms--file-buffer nil (#$ . 3113))
#@43 Total number of records in the data file.
(defvar forms--total-records 0 (#$ . 3196))
#@47 Number of the record currently on the screen.
(defvar forms--current-record 0 (#$ . 3288))
#@25 Keymap for form buffer.
(defvar forms-mode-map nil (#$ . 3385))
#@38 Keymap for form buffer in view mode.
(defvar forms-mode-ro-map nil (#$ . 3455))
#@38 Keymap for form buffer in edit mode.
(defvar forms-mode-edit-map nil (#$ . 3541))
#@30 Field markers in the screen.
(defvar forms--markers nil (#$ . 3629))
#@62 Dynamic texts (resulting from function calls) on the screen.
(defvar forms--dyntexts nil (#$ . 3704))
#@65 List of strings of the current record, as parsed from the file.
(defvar forms--the-record-list nil (#$ . 3812))
#@45 Last regexp used by forms-search functions.
(defvar forms--search-regexp nil (#$ . 3930))
#@21 Formatting routine.
(defvar forms--format nil (#$ . 4026))
#@23 Forms parser routine.
(defvar forms--parser nil (#$ . 4091))
#@43 To keep track of forms-mode being set-up.
(defvar forms--mode-setup nil (#$ . 4158))
(make-variable-buffer-local (quote forms--mode-setup))
#@58 Array that holds dynamic texts to insert between fields.
(defvar forms--dynamic-text nil (#$ . 4304))
#@57 Array with the order in which the fields are displayed.
(defvar forms--elements nil (#$ . 4412))
#@54 Face used to represent read-only data on the screen.
(defvar forms--ro-face nil (#$ . 4515))
#@55 Face used to represent read-write data on the screen.
(defvar forms--rw-face nil (#$ . 4614))
#@751 Major mode to visit files in a field-structured manner using a form.

Commands:                        Equivalent keys in read-only mode:
 TAB            forms-next-field          TAB
 \C-c TAB       forms-next-field          
 \C-c <         forms-first-record         <
 \C-c >         forms-last-record          >
 \C-c ?         describe-mode              ?
 \C-c \C-k      forms-delete-record
 \C-c \C-q      forms-toggle-read-only     q
 \C-c \C-o      forms-insert-record
 \C-c \C-l      forms-jump-record          l
 \C-c \C-n      forms-next-record          n
 \C-c \C-p      forms-prev-record          p
 \C-c \C-r      forms-search-reverse       r
 \C-c \C-s      forms-search-forward       s
 \C-c \C-x      forms-exit                 x

(defalias 'forms-mode #[(&optional primary) "„ 	„;Â ˆÃÄ!ˆÃÅ!ˆÃÆ!ˆÃÇ!ˆÃÈ!ˆÃÉ!ˆÃÊ!ˆÃË!ˆÃÌ!ˆÃÍ!ˆÃÎ!ˆÃÏ!ˆÃÐ!ˆÑÑÑÑÒÓ!ƒY ÃÔ!ˆÃÕ!ˆ×=„j ØÙÚ ÛQ!ƒp Ü ˆ‚t ÝÞ!ˆ\f„~ ÝßàP!ˆ;„Š ÝßáP!ˆƒ¢ §ƒ™ âV„­ ÝßãP!ˆ‚­ ƒ­ ÝßäP!ˆ„µ å ˆ	ƒß 	;ƒÙ 	Gæ=ƒÙ 	˜ƒß ÝßçP!ˆ‚ß ÝßèP!ˆÒé!„è Ñ\fê ˆÃë!ˆÃì!ˆÃí!ˆÃî!ˆï ˆÃð!ˆñ ˆƒÒ!„ÝßòP!ˆƒ)Ò!„)ÝßóP!ˆÃô!ˆÃõ!ˆöÑ!ˆÑ7ø ˆ×ÒÓ!ƒcÃù!ˆÃú!ˆƒ[9:‚c9:Ãû!ˆÃü!ˆÃý!ˆÃþ!ˆÃÿ!ˆ@„A  ˆB CD EF \f!;G‰HƒÖŠ;qˆ×I  JKL H !ˆJ„¿M Ñ!ˆ*GƒÒN O !ˆGCO)‚íGƒíŠ;qˆN O !ˆGO)*ÑPŠ;qˆQ p!ˆ7PR ed\")<Pƒ×)ÃS !ˆÈT DCSU  ˆV  ˆM Ñ!ˆ<âUƒ‰W XY Z \f!ƒR[ \f\\ Q‚j] ^ \f‰æUƒf_ ‚i` $a b c !d ±ˆæ=×7M Ñ!ˆ‚š=æWƒ“æ=e =!ˆL f !ˆg  ‡" [primary forms--mode-setup kill-all-local-variables make-local-variable forms-file forms-number-of-fields forms-format-list forms-field-sep forms-read-only forms-multi-line forms-forms-scroll forms-forms-jump forms-use-text-properties forms-read-file-filter forms-write-file-filter forms-new-record-filter forms-modified-record-filter nil fboundp make-face forms-ro-face forms-rw-face enable-local-eval t yes-or-no-p "Evaluate lisp code in buffer " buffer-name " to display forms " eval-current-buffer error "`enable-local-eval' inhibits buffer evaluation" "Forms control file error: " "'forms-file' has not been set" "'forms-field-sep' is not a string" 0 "'forms-number-of-fields' must be a number > 0" "'forms-number-of-fields' has not been set" forms--intuit-from-file 1 "'forms-multi-line' is equal to 'forms-field-sep'" "'forms-multi-line' must be nil or a one-character string" set-text-properties forms--process-format-list forms--format forms--markers forms--dyntexts forms--elements forms--make-format forms--parser forms--make-parser "'forms-new-record-filter' is not a function" "'forms-modified-record-filter' is not a function" forms-fields forms--dynamic-text set-visited-file-name buffer-read-only erase-buffer forms--ro-face forms--rw-face forms--file-buffer forms--total-records forms--current-record forms--the-record-list forms--search-regexp forms-mode-map forms--mode-commands forms-mode major-mode "Forms" mode-name find-file-noselect write-file-filter read-file-filter buffer-modified-p file-modified inhibit-read-only run-hooks set-buffer-modified-p make-variable-buffer-local local-write-file-hooks ro bury-buffer count-lines minor-mode-alist " View" forms--set-keymaps forms--change-commands "GNU Emacs Forms Mode version " forms-version "\n\n" file-exists-p "No records available in file \"" "\".\n\n" format "Creating new file \"%s\"\nwith %d field%s per record.\n\n" "" "s" "Use " substitute-command-keys "\\[forms-insert-record]" " to create new records.\n" forms-jump-record forms-mode-hooks forms--help] 10 (#$ . 4715) nil])
(defalias 'forms--process-format-list #[nil "„\n ÁÂÃP!ˆ<„ ÁÂÄP!ˆÅÇ\"ÉÇÉ\n\fÇƒ\n¢£‰9ƒK Ð!ƒK Ñ!;ƒu ;ƒa P‚ƒn ÒCÇ#‚§ƒË ÉX„Š Vƒ” ÁÓÔP#ˆ\nGVƒ© ÕS\"‚² \nSIˆ\nT\nƒÄ ÒCÇ#‚<ƒø Ö¢!„ä ÁÓ×Ø¢!Q!ˆƒñ ÒCÇ#‚ÁÓÙØ!Q!ˆ*‚* ƒ$ÒCÇ#§ƒ$ÒÚCÇ#,ÛÀÈ\"‡" [forms-format-list error "Forms control file error: " "'forms-format-list' has not been set" "'forms-format-list' is not a list" make-vector forms-number-of-fields nil forms--elements 0 field-num prev-item this-item the-list rem el boundp eval append "Forms format error: " "field number %d out of range 1..%d" vconcat fboundp "not a function " prin1-to-string "invalid element " "\n" forms--debug] 6])
#@39 Record start of modification command.
(defvar forms--iif-start nil (#$ . 9021))
#@56 Original properties of the character being overridden.
(defvar forms--iif-properties nil (#$ . 9107))
#@58 `insert-in-front-hooks' function for read-only segments.
(defalias 'forms--iif-hook #[(begin end) "„	 Á`T!ÂX„ ÃÂZÄ\"ƒ8 ÅS!ÇÉSÊÌÍF#ˆ)ÎÏC\"‰‡Ñ‰‡" [forms--iif-start copy-marker 2 get-text-property read-only text-properties-at forms--iif-properties t inhibit-read-only set-text-properties face forms--rw-face front-sticky (face) append forms--iif-post-command-hook post-command-hook nil] 7 (#$ . 9215)])
#@54 `post-command-hook' function for read-only segments.
(defalias 'forms--iif-post-command-hook #[nil "ÀÁ\n\"ƒ ÄÆS#ˆ)È‰‡" [delq forms--iif-hook-post-command-hook post-command-hook forms--iif-start t inhibit-read-only set-text-properties forms--iif-properties nil] 4 (#$ . 9640)])
(byte-code "À	BÂ	BÀ‡" [forms--marker current-load-list forms--dyntext] 2)
#@72 Generate `forms--format' using the information in `forms-format-list'.
(defalias 'forms--make-format #[nil "À‰ƒ) ÄÅÆÇÈÉÈÊË\f\"\"\f@§?… ÍÎ#BBÏBBB‚5 ÄÐÉÈÊÑ\f\"\"BBÓ\nÔ\"Ó	Ô\"*×Ò!‡" [0 forms--dyntext forms--marker forms-use-text-properties lambda (arg) let ((inhibit-read-only t)) append apply mapcar forms--make-format-elt-using-text-properties forms-format-list ((add-text-properties (point-min) (1+ (point-min)) (quote (front-sticky (read-only intangible))))) ((remove-text-properties (1- (point)) (point) (quote (rear-nonsticky)))) ((setq forms--iif-start nil)) (arg) forms--make-format-elt forms--format make-vector nil forms--markers forms--dyntexts forms--debug] 10 (#$ . 10008)])
#@45 Helper routine to generate format function.
(defalias 'forms--make-format-elt-using-text-properties #[(el) ";ƒ  ÁÂÃÄDÅBBÆÇÈÉÊTCÌ\"BBBBFC‡§ƒA ÍÎÏÐ‰TÑBBBÄÒÓSEDÔBBBBC‡<…i ÁÕÃÄÏÖ‰TFDØBBÆÙÈÚÊTCÛ\"BBBBFC‡" [el set-text-properties (point) progn insert ((point)) list (quote face) forms--ro-face (quote read-only) append forms--marker ((quote intangible) t (quote insert-in-front-hooks) (quote (forms--iif-hook)) (quote rear-nonsticky) (quote (face read-only insert-in-front-hooks intangible))) let ((here (point))) aset forms--markers ((point-marker)) elt arg ((or (= (point) here) (set-text-properties here (point) (list (quote face) forms--rw-face (quote front-sticky) (quote (face)))))) (point) forms--dyntexts forms--dyntext ((point)) (quote face) (quote read-only) ((quote intangible) t (quote insert-in-front-hooks) (quote (forms--iif-hook)) (quote rear-nonsticky) (quote (read-only face insert-in-front-hooks intangible)))] 10 (#$ . 10712)])
#@45 Helper routine to generate format function.
(defalias 'forms--make-format-elt #[(el) ";ƒ\n ÁDC‡§ƒ\" ÂÃ\fÅBBBÁÆÇSEDD\fT‡<…5 ÁÂÈ	FDC	T	‡" [el insert aset forms--markers forms--marker ((point-marker)) elt arg forms--dyntexts forms--dyntext] 5 (#$ . 11678)])
(byte-code "À	BÂ	BÃ	BÀ‡" [forms--field current-load-list forms--recordv forms--seen-text] 2)
#@71 Generate `forms--parser' from the information in `forms-format-list'.
(defalias 'forms--make-parser #[nil "ƒ Á‚% Â‰ÃÇÂÈÉÊËÌÍÎÌÂC\"\"\"BBBE+ÑÐ!‡" [forms-use-text-properties forms--parser-using-text-properties nil 0 forms--dyntext forms--seen-text forms--field lambda let (here) (goto-char (point-min)) apply append mapcar forms--make-parser-elt forms-format-list forms--parser forms--debug] 12 (#$ . 12045)])
#@59 Extract field info from forms when using text properties.
(defalias 'forms--parser-using-text-properties #[nil "ÀÁ‰‰GW…P \fH‰bˆÆÇ\"ƒ' 	\fHÁIˆ‚I ÊÇ\"‰ƒ> 	\fH\n{Iˆ‚I 	\fHd{Iˆ\fT‰‚ +‡" [0 nil there here i forms--markers get-text-property read-only forms--recordv forms--elements next-single-property-change] 5 (#$ . 12469)])
#@51 Helper routine to generate forms parser function.
(defalias 'forms--make-parser-elt #[(el) ";ƒ@ 	ƒ( ÂÃÄÅÆBBDÇÈEEÉÊ	SËÌÍÎGEEFE‚: ÃÄÏÐ!DDÇÑEEÒGDDÓÕ‡§ƒS 	ƒO ÇÖ	#‡Õ‡„e 	… ÉÊ	S×BBBC‡<… 	ƒ† ØÙÚÛÜEDDÝÉÊ	SÞBBBFC‚“ ØÚÛÜEDCßBBCTÓÕ‡" [el forms--field (setq here (point)) if not search-forward (nil t nil) error "Parse error: cannot find \"%s\"" aset forms--recordv buffer-substring here - (point) looking-at regexp-quote "Parse error: not looking at \"%s\"" forward-char t forms--seen-text nil "Cannot parse adjacent fields %d and %d" ((buffer-substring (point) (point-max))) let (here (point)) forms--dyntext aref forms--dyntexts (if (not (search-forward forms--dyntext nil t nil)) (error "Parse error: cannot find \"%s\"" forms--dyntext)) ((buffer-substring here (- (point) (length forms--dyntext)))) ((if (not (looking-at (regexp-quote forms--dyntext))) (error "Parse error: not looking at \"%s\"" forms--dyntext)) (forward-char (length forms--dyntext)))] 10 (#$ . 12819)])
#@62 Get number of fields and a default form using the data file.
(defalias 'forms--intuit-from-file #[nil "„d Á\n!„ ÃÄ!ˆ‚d Å\n!È	\nŠqˆË\fÍÊ!ˆ)ebˆÎ )	Ï!ˆÈÐÈGÖ×	#‰ƒb T\\‚G .Ø\nÙEÐT‰X…Š ÜÝÞ\"ßE\"‚m )‡" [forms-number-of-fields file-exists-p forms-file error "Need existing file or explicit 'forms-number-of-records'." find-file-noselect forms--file-buffer forms-read-file-filter nil the-record read-file-filter t inhibit-read-only run-hooks forms--get-record kill-buffer 0 forms-field-sep field-sep-length found-pos start-pos the-result 1 string-match "Forms file \"" "\".\n\n" forms-format-list i append format "%4d: " "\n"] 5 (#$ . 13820)])
#@36 Set the keymaps used in this mode.
(defalias 'forms--set-keymaps #[nil "À	ƒ	 \n‚\n !‡" [use-local-map forms-read-only forms-mode-ro-map forms-mode-edit-map] 2 (#$ . 14519)])
#@30 Fill the Forms mode keymaps.
(defalias 'forms--mode-commands #[nil "À Â	ÃÄ#ˆÂ	ÅÆ#ˆÂ	ÇÈ#ˆÂ	ÉÊ#ˆÂ	ËÌ#ˆÂ	ÍÎ#ˆÂ	ÏÐ#ˆÂ	ÑÒ#ˆÂ	ÓÔ#ˆÂ	ÕÖ#ˆÂ	×Ø#ˆÂ	ÙÚ#ˆÂ	ÛÐ#ˆÀ Ý!ˆÂÞ	#ˆÂÃÄ#ˆÂßÈ#ˆÂàÌ#ˆÂáÎ#ˆÂâÐ#ˆÂãÒ#ˆÂäÔ#ˆÂåÖ#ˆÂ×Ø#ˆÂÙÚ#ˆÂæç#ˆÂèÎ#ˆé!ˆê!ˆÀ +Â+ÃÄ#ˆÂ+Þ	#ˆé+!ˆì+!‡" [make-keymap forms-mode-map define-key "	" forms-next-field "" forms-delete-record "" forms-toggle-read-only "" forms-insert-record "\f" forms-jump-record "" forms-next-record "" forms-prev-record "" forms-search-backward "" forms-search-forward "" forms-exit "<" forms-first-record ">" forms-last-record "" forms-mode-ro-map suppress-keymap "" "q" "l" "n" "p" "r" "s" "x" "?" describe-mode " " forms--mode-commands1 forms--mode-menu-ro forms-mode-edit-map forms--mode-menu-edit] 4 (#$ . 14700)])
(defalias 'forms--mode-menu-ro #[(map) "À	ÂÃÄÃ!B#ˆÀ	ÅÆ#ˆÀ	ÇÈ#ˆÀ	ÉÊ#ˆÀ	ËÌ#ˆÀ	ÍÎ#ˆÀ	ÏÐ#ˆÀ	ÑÒ#ˆÀ	ÓÔ#ˆÀ	ÕÖ#ˆÀ	×Ø#ˆÀ	ÙÚ#ˆÀ	ÛÜ#ˆÀ	ÝÞ#ˆÀ	ßà#ˆÀ	áâ#ˆÀ	ãä#ˆÀ	åæ#ˆÀ	çè#ˆÀ	éê#ˆëìíî#ˆëïíð#‡" [define-key map [menu-bar forms] "Forms" make-sparse-keymap [menu-bar forms menu-forms-exit] ("Exit" . forms-exit) [menu-bar forms menu-forms-sep1] ("----") [menu-bar forms menu-forms-save] ("Save Data" . forms-save-buffer) [menu-bar forms menu-forms-print] ("Print Data" . forms-print) [menu-bar forms menu-forms-describe] ("Describe Mode" . describe-mode) [menu-bar forms menu-forms-toggle-ro] ("Toggle View/Edit" . forms-toggle-read-only) [menu-bar forms menu-forms-jump-record] ("Jump" . forms-jump-record) [menu-bar forms menu-forms-search-backward] ("Search Backward" . forms-search-backward) [menu-bar forms menu-forms-search-forward] ("Search Forward" . forms-search-forward) [menu-bar forms menu-forms-delete-record] ("Delete" . forms-delete-record) [menu-bar forms menu-forms-insert-record] ("Insert" . forms-insert-record) [menu-bar forms menu-forms-sep2] ("----") [menu-bar forms menu-forms-last-record] ("Last Record" . forms-last-record) [menu-bar forms menu-forms-first-record] ("First Record" . forms-first-record) [menu-bar forms menu-forms-prev-record] ("Previous Record" . forms-prev-record) [menu-bar forms menu-forms-next-record] ("Next Record" . forms-next-record) [menu-bar forms menu-forms-sep3] ("----") [menu-bar forms menu-forms-prev-field] ("Previous Field" . forms-prev-field) [menu-bar forms menu-forms-next-field] ("Next Field" . forms-next-field) put forms-insert-record menu-enable (not forms-read-only) forms-delete-record (not forms-read-only)] 6])
(defalias 'forms--mode-menu-edit #[(map) "À	ÂÃÄÃ!B#ˆÀ	ÅÆ#ˆÀ	ÇÈ#ˆÀ	ÉÊ#ˆÀ	ËÌ#ˆÀ	ÍÎ#ˆÀ	ÏÐ#ˆÀ	ÑÒ#ˆÀ	ÓÔ#ˆÀ	ÕÖ#ˆÀ	×Ø#ˆÀ	ÙÚ#ˆÀ	ÛÜ#ˆÀ	ÝÞ#ˆÀ	ßà#ˆÀ	áâ#ˆÀ	ãä#ˆÀ	åæ#ˆÀ	çè#ˆÀ	éê#ˆëìíî#ˆëïíð#‡" [define-key map [menu-bar forms] "Forms" make-sparse-keymap [menu-bar forms menu-forms-edit--exit] ("Exit" . forms-exit) [menu-bar forms menu-forms-edit-sep1] ("----") [menu-bar forms menu-forms-edit-save] ("Save Data" . forms-save-buffer) [menu-bar forms menu-forms-edit-print] ("Print Data" . forms-print) [menu-bar forms menu-forms-edit-describe] ("Describe Mode" . describe-mode) [menu-bar forms menu-forms-edit-toggle-ro] ("Toggle View/Edit" . forms-toggle-read-only) [menu-bar forms menu-forms-edit-jump-record] ("Jump" . forms-jump-record) [menu-bar forms menu-forms-edit-search-backward] ("Search Backward" . forms-search-backward) [menu-bar forms menu-forms-edit-search-forward] ("Search Forward" . forms-search-forward) [menu-bar forms menu-forms-edit-delete-record] ("Delete" . forms-delete-record) [menu-bar forms menu-forms-edit-insert-record] ("Insert" . forms-insert-record) [menu-bar forms menu-forms-edit-sep2] ("----") [menu-bar forms menu-forms-edit-last-record] ("Last Record" . forms-last-record) [menu-bar forms menu-forms-edit-first-record] ("First Record" . forms-first-record) [menu-bar forms menu-forms-edit-prev-record] ("Previous Record" . forms-prev-record) [menu-bar forms menu-forms-edit-next-record] ("Next Record" . forms-next-record) [menu-bar forms menu-forms-edit-sep3] ("----") [menu-bar forms menu-forms-edit-prev-field] ("Previous Field" . forms-prev-field) [menu-bar forms menu-forms-edit-next-field] ("Next Field" . forms-next-field) put forms-insert-record menu-enable (not forms-read-only) forms-delete-record (not forms-read-only)] 6])
#@32 Helper routine to define keys.
(defalias 'forms--mode-commands1 #[(map) "À	ÂÃ#ˆÀ	ÄÅ#ˆÀ	ÆÇ#ˆÀ	ÈÉ#ˆÀ	ÊË#ˆÀ	ÌÍ#ˆÀ	ÎÅ#‡" [define-key map [TAB] forms-next-field [S-tab] forms-prev-field [next] forms-next-record [prior] forms-prev-record [begin] forms-first-record [last] forms-last-record [backtab]] 4 (#$ . 18924)])
#@40 Localize some commands for Forms mode.
(defalias 'forms--change-commands #[nil "ƒ ÁÂÃÄ Å $ˆÁÆÇÄ Å $ˆƒ- ÁÉÊÄ Å $ˆÁËÌÄ Å $ˆÍÎÏ\"ˆÐÑ!ˆÒÓ‡" [forms-forms-scroll substitute-key-definition scroll-up forms-next-record current-local-map current-global-map scroll-down forms-prev-record forms-forms-jump beginning-of-buffer forms-first-record end-of-buffer forms-last-record local-set-key "" forms-save-buffer make-local-variable revert-buffer-function forms--revert-buffer t] 5 (#$ . 19242)])
#@30 Initial help for Forms mode.
(defalias 'forms--help #[nil "ÀÁÂÃÄÅÆ°!!‡" [message substitute-command-keys "\\[forms-next-record]:next" "   \\[forms-prev-record]:prev" "   \\[forms-first-record]:first" "   \\[forms-last-record]:last" "   \\[describe-mode]:help"] 7 (#$ . 19740)])
#@93 Translate in SUBJ all chars ARG into char REP.  ARG and REP should
 be single-char strings.
(defalias 'forms--trans #[(subj arg rep) "À	GÂ!Ä!	Ê		#‰	…- 		Iˆ	T	‚ ,‡" [0 subj regexp-quote arg string-to-char rep k re x i string-match] 5 (#$ . 20025)])
#@41 Internal exit from forms mode function.
(defalias 'forms--exit #[(query &optional save) "À	!Ã ˆ\fƒ Å	!ƒ Æ ˆŠ	qˆÇ ˆÈp!ˆ)É\n!ƒ3 \f…9 Ê ˆËÌ!‚9 Ç ˆÈp!)‡" [buffer-name forms--file-buffer buf forms--checkmod save buffer-modified-p forms-save-buffer delete-auto-save-file-if-necessary kill-buffer get-buffer beep message "Problem saving buffers?"] 2 (#$ . 20298)])
#@48 Fetch the current record from the file buffer.
(defalias 'forms--get-record #[nil "n„ Àyˆ`Âˆ	`{	bˆ)‡" [0 here nil] 2 (#$ . 20665)])
#@57 Format THE-RECORD and display it in the current buffer.
(defalias 'forms--show-record #[(the-record) "ÀÁÀ\nGƒ È	Ê#ˆ	\nP	Ë\n	#‰ƒ@ 	\fO\fÍ\fC\"\f\\)‚ ,ÀƒW ÑÓedÀ#ˆ)Ô ˆGU„‡ Ö ˆ×ØG#ˆGWƒ‡ ÍÙGZÚ\"\"ÍÀCÀ#!ˆebˆÝÀ!ˆß á\"R‰#‡" [nil 0 forms-field-sep field-sep-length found-pos start-pos the-result forms-multi-line forms--trans the-record "\n" string-match ent append forms--the-record-list buffer-read-only forms-use-text-properties t inhibit-read-only set-text-properties erase-buffer forms-number-of-fields beep message "Warning: this record has %d fields instead of %d" make-list "" forms-fields forms--format set-buffer-modified-p forms-read-only " " forms--current-record "/" forms--total-records mode-line-process] 5 (#$ . 20806)])
#@46 Parse contents of form into list of strings.
(defalias 'forms--parse-form #[nil "ÀÂ!\f ˆ)ƒ( ÂÇ	\"!ÉÀ\"A)‚, É	À\")‡" [nil forms--recordv vconcat forms--the-record-list forms--dynamic-text forms--parser forms-modified-record-filter [nil] the-fields append] 3 (#$ . 21612)])
#@95 Update current record with contents of form.
As a side effect: sets `forms--the-record-list'.
(defalias 'forms--update #[nil "ƒ ÁÂ!ˆÃ ‡ÄÆ ÈÉ\n#ËÌ\n!ÈÉÍ#\"ƒ, ÎÏ!ˆƒ8 ÑÒ#ˆËÒ\"ƒH ÁÓ!ˆÃ ‚c ŠqˆŠÕyˆ`)ŠÄˆ`)|ˆcˆÕyˆ)Ä)‡" [forms-read-only message "Read-only buffer!" beep nil the-record forms--parse-form forms--the-record-list mapconcat identity forms-field-sep string-match regexp-quote "" error "Field separator occurs in record - update refused!" forms-multi-line forms--trans "\n" "Multi-line fields in this record - update refused!" forms--file-buffer 0] 6 (#$ . 21907)])
#@69 Check if this form has been modified, and call forms--update if so.
(defalias 'forms--checkmod #[nil "ÀÁ!… `Ã ˆÄÁ!ˆ\nb)‡" [buffer-modified-p nil here forms--update set-buffer-modified-p] 2 (#$ . 22502)])
#@29 Visit a file in Forms mode.
(defalias 'forms-find-file #[(fn) "À‰Ã\f!ˆ† ÆÀ!*‡" [t enable-local-variables enable-local-eval find-file-read-only fn forms--mode-setup forms-mode] 2 (#$ . 22714) "fForms file: "])
#@45 Visit a file in Forms mode in other window.
(defalias 'forms-find-file-other-window #[(fn) "À‰Ã\f!ˆ† ÆÀ!*‡" [t enable-local-variables enable-local-eval find-file-other-window fn forms--mode-setup forms-mode] 2 (#$ . 22933) "fFbrowse file in other window: "])
#@59 Normal exit from Forms mode.  Modified buffers are saved.
(defalias 'forms-exit #[(query) "À	Â\"‡" [forms--exit query t] 3 (#$ . 23202) "P"])
#@46 Exit from Forms mode without saving buffers.
(defalias 'forms-exit-no-save #[(query) "À	Â\"‡" [forms--exit query nil] 3 (#$ . 23350) "P"])
#@40 Advance to the ARGth following record.
(defalias 'forms-next-record #[(arg) "À	Â!\\Ä\"‡" [forms-jump-record forms--current-record prefix-numeric-value arg t] 4 (#$ . 23495) "P"])
#@39 Advance to the ARGth previous record.
(defalias 'forms-prev-record #[(arg) "À	Â!ZÄ\"‡" [forms-jump-record forms--current-record prefix-numeric-value arg t] 4 (#$ . 23681) "P"])
#@26 Jump to a random record.
(defalias 'forms-jump-record #[(arg &optional relative) "	V„\f ÂXƒ Ã ˆ\f?…s ÅÆ	#‡Ç ˆZ	\nËŠ\fqˆÂyˆ\fƒL \nÂU„X 	\n‰y[\\\\	‚X 	\nÍ![\\\\	Î )!ˆ	U?…r 	Ã ˆÅÏ	\"*‡" [arg forms--total-records 0 beep relative message "Record number %d out of range 1..%d" forms--checkmod forms--current-record cur disp forms--show-record forms--file-buffer goto-line forms--get-record "Stuck at record %d"] 5 (#$ . 23865) "NRecord number: "])
#@23 Jump to first record.
(defalias 'forms-first-record #[nil "ÀÁ!‡" [forms-jump-record 1] 2 (#$ . 24343) nil])
#@94 Jump to last record.
As a side effect: re-calculates the number of records in the data file.
(defalias 'forms-last-record #[nil "ŠqˆÁed\")‰U„ Ä ˆ\nÅÆ\"ˆ)Ç!‡" [forms--file-buffer count-lines numrec forms--total-records beep message "Warning: number of records changed to %d" forms-jump-record] 4 (#$ . 24457) nil])
#@180 Toggles read-only mode of a forms mode buffer.
With an argument, enables read-only mode if the argument is positive.
Otherwise enables edit mode if the visited file is writeable.
(defalias 'forms-toggle-read-only #[(arg) "ƒ\f Á!ÂX‚ ƒ7 Šqˆ)ƒ* ÇÈÉ\n\"ˆË ˆ‚, Ì\fš?…5 Í )‡?…C Î ˆÇÍ ‡" [arg prefix-numeric-value 0 forms-read-only ro forms--file-buffer buffer-read-only t message "No write access to \"%s\"" forms-file beep nil forms-mode forms--checkmod] 3 (#$ . 24785) "P"])
#@221 Create a new record before the current one.
With ARG: store the record after the current one.
If `forms-new-record-filter' contains the name of a function, 
it is called to fill (some of) the fields with default values.
(defalias 'forms-insert-record #[(arg) "ƒ ÁÂ!ˆƒ \fT‚ \fÅ‰É ˆ\nƒ= Ë\fTÂ\"\n!ÎÅ\"A)‚D Ï\fÂ\"ÐÑ#ŠqˆÔ!ˆÕÖ!ˆcˆ×yˆ)+TÙ\f!‡" [forms-read-only error "" arg forms--current-record nil the-record the-list ln forms--checkmod forms-new-record-filter make-vector forms-number-of-fields the-fields append make-list mapconcat identity forms-field-sep forms--file-buffer goto-line open-line 1 0 forms--total-records forms-jump-record] 4 (#$ . 25278) "P"])
#@55 Deletes a record.  With a prefix argument: don't ask.
(defalias 'forms-delete-record #[(arg) "ƒ ÁÂ!ˆÃ ˆ\f„ ÅÆ!ƒE Š	qˆÊ!ˆËyˆ`Ìyˆ`|ˆ)SVƒ? Î!ˆ)ÏÂ!‡" [forms-read-only error "" forms--checkmod arg y-or-n-p "Really delete this record? " forms--current-record ln forms--file-buffer goto-line 0 1 forms--total-records forms-jump-record message] 2 (#$ . 25989) "P"])
#@46 Search forward for record containing REGEXP.
(defalias 'forms-search-forward #[(regexp) "Ášƒ \nÃ ˆÄ‰‰	Š\nqˆ`ÄˆËÄÌ#„9 bˆÍÎÏQ!ˆÄ‚E Ð Ñe`\"T‰	)ƒX 	Ó!ˆËÄÌ#ˆ,‰‡" [regexp "" forms--search-regexp forms--checkmod nil forms-field-sep fld-sep here the-record the-line forms--file-buffer re-search-forward t message "\"" "\" not found." forms--get-record count-lines forms--current-record forms--show-record] 4 (#$ . 26377) (list (read-string (concat "Search forward for" (if forms--search-regexp (concat " (" forms--search-regexp ")")) ": ")))])
#@47 Search backward for record containing REGEXP.
(defalias 'forms-search-backward #[(regexp) "Ášƒ \nÃ ˆÄ‰‰	Š\nqˆ`ËyˆÌÄÍ#„9 bˆÎÏÐQ!ˆÄ‚E Ñ Òe`\"T‰	)ƒX 	Ô!ˆÕÄÍ#ˆ,‰‡" [regexp "" forms--search-regexp forms--checkmod nil forms-field-sep fld-sep here the-record the-line forms--file-buffer 0 re-search-backward t message "\"" "\" not found." forms--get-record count-lines forms--current-record forms--show-record re-search-forward] 4 (#$ . 26949) (list (read-string (concat "Search backward for" (if forms--search-regexp (concat " (" forms--search-regexp ")")) ": ")))])
#@156 Forms mode replacement for save-buffer.
It saves the data buffer instead of the forms buffer.
Calls `forms-write-file-filter' before writing out the data.
(defalias 'forms-save-buffer #[(&optional args) "À ˆ	ŠqˆÄÆ!ˆ\nƒ ÈÂ!ˆÉÊ!ˆ+Ä‡" [forms--checkmod forms-read-file-filter read-file-filter forms--file-buffer t inhibit-read-only save-buffer args run-hooks set-buffer-modified-p nil] 2 (#$ . 27546) "p"])
#@38 Reverts current form to un-modified.
(defalias 'forms--revert-buffer #[(&optional arg noconfirm) "„\n ÁÂ!… ÃÄ!ˆÅ!‡" [noconfirm yes-or-no-p "Revert form to unmodified? " set-buffer-modified-p nil forms-jump-record forms--current-record] 2 (#$ . 27961) "P"])
#@28 Jump to ARG-th next field.
(defalias 'forms-next-field #[(arg) "À`ÁÀÂÀUƒ É‚ \f\\ÊË?…) \fÀHb-‡" [0 nil t inhibit-point-motion-hooks cnt there here i arg 1 done (byte-code "	GW…- 	H‰ƒ& \nX„& \fS‰ÅXƒ& \nbˆÆÇÈ\"ˆT‰‚ ‡" [i forms--markers there here cnt 0 throw done t] 4) forms--markers] 5 (#$ . 28228) "p"])
#@32 Jump to ARG-th previous field.
(defalias 'forms-prev-field #[(arg) "G`ÁÂÃ	ÂUƒ Ê‚ 	\\ËÌ?…, ‰GSHb-‡" [forms--markers nil 0 t inhibit-point-motion-hooks cnt there here i arg 1 done (byte-code "ÁV…+ S\nH‰ƒ  \fY„  S‰ÁXƒ  bˆÆÇÈ\"ˆ‚  ‡" [i 0 forms--markers there here cnt throw done t] 3)] 5 (#$ . 28563) "p"])
#@75 Send the records to the printer with 'print-buffer', one record per page.
(defalias 'forms-print #[nil "À	ÂÃXƒ; É!ˆÊ ŠËÌ!qˆÍÂ!bˆ\fcˆÃWƒ3 Ïcˆ)T‰‚ ŠÌqˆÐ ˆÑÃ!ˆÒp!ˆ)É!,‡" [t forms--current-record 1 nil record nb-record save-record inhibit-read-only forms--total-records forms-jump-record buffer-string get-buffer-create "*forms-print*" buffer-end buffer-read-only "\n\f\n" print-buffer set-buffer-modified-p kill-buffer] 5 (#$ . 28900) nil])
#@273 Take a quoted list of symbols, and set their values to sequential numbers.
The first symbol gets number 1, the second 2 and so on.
It returns the higest number.

Usage: (setq forms-number-of-fields
             (forms-enumerate
              '(field1 field2 field2 ...)))
(defalias 'forms-enumerate #[(the-fields) "À\nƒ 	T\n¢\n£	Lˆ)‚ 	)‡" [0 the-index the-fields el] 2 (#$ . 29366)])
#@43 *Enables forms-mode debugging if not nil.
(defvar forms--debug nil (#$ . -29763))
#@29 Internal debugging routine.
(defalias 'forms--debug #[(&rest args) "…g ÁƒQ ¢£\f;ƒ \n\fP‚M \nÅ\f!ÆQÇ\f!ƒ: È\f!	\nÅ	!ÊQ)‚? \nËÊQÌ\f!ƒM \nÅ\fK!ÊQ)‚ ŠÍÎ!qˆÏ ÐUƒa Ñ ˆdbˆ\nc*‡" [forms--debug nil ret args el prin1-to-string " = " boundp eval vel "\n" "<unbound>" fboundp get-buffer-create "*forms-mode debug*" buffer-size 0 emacs-lisp-mode] 3 (#$ . 29851)])