| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/forms.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:19 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/forms.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\301!\210\306\307!\210\310\311\302\312\304\301\313\314&\207" [custom-declare-group forms nil "Edit a file as a form to fill in." :group data provide forms-mode custom-declare-variable forms-mode-hook "Hook run upon entering Forms mode." :type hook] 8)
#@36 Name of the file holding the data.
(defvar forms-file nil (#$ . 846))
#@36 List of formatting specifications.
(defvar forms-format-list nil (#$ . 922))
#@30 Number of fields per record.
(defvar forms-number-of-fields nil (#$ . 1005))
#@61 If non-nil, warn about records with wrong number of fields.
(custom-declare-variable 'forms-check-number-of-fields t '(#$ . 1088) :group 'forms :type 'boolean)
#@42 Field separator character (default TAB).
(defvar forms-field-sep " " (#$ . 1254))
#@131 Non-nil means: visit the file in view (read-only) mode.
This is set automatically if the file permissions don't let you write it.
(defvar forms-read-only nil (#$ . 1343))
#@77 If not nil: use this character to separate multi-line fields (default C-k).
(defvar forms-multi-line " " (#$ . 1520))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\307&\207" [custom-declare-variable forms-forms-scroll nil "Non-nil means replace scroll-up/down commands in Forms mode.\nThe replacement commands performs forms-next/prev-record." :group forms :type boolean forms-forms-jump "Non-nil means redefine beginning/end-of-buffer in Forms mode.\nThe replacement commands performs forms-first/last-record."] 8)
#@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 (#$ . 2077))
#@132 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 (#$ . 2300))
#@69 The name of a function that is called when a new record is created.
(defvar forms-new-record-filter nil (#$ . 2486))
#@72 The name of a function that is called when a record has been modified.
(defvar forms-modified-record-filter nil (#$ . 2609))
#@155 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 (#$ . 2741))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\316&\210\300\317\320\321\304\305\306\316&\207" [custom-declare-variable forms-use-text-properties t "Non-nil means: use text properties.\nDefaults to t if this Emacs is capable of handling text properties." :group forms :type boolean forms-insert-after nil "Non-nil means: inserts of new records go after current record.\nAlso, initial position is at last record." forms-ro-face 'default "The face (a symbol) that is used to display read-only text on the screen." face forms-rw-face 'region "The face (a symbol) that is used to display read-write text on the screen."] 8)
#@34 Buffer which holds the file data
(defvar forms--file-buffer nil (#$ . 3630))
#@43 Total number of records in the data file.
(defvar forms--total-records 0 (#$ . 3713))
#@47 Number of the record currently on the screen.
(defvar forms--current-record 0 (#$ . 3805))
#@25 Keymap for form buffer.
(defvar forms-mode-map nil (#$ . 3902))
#@38 Keymap for form buffer in view mode.
(defvar forms-mode-ro-map nil (#$ . 3972))
#@38 Keymap for form buffer in edit mode.
(defvar forms-mode-edit-map nil (#$ . 4058))
#@30 Field markers in the screen.
(defvar forms--markers nil (#$ . 4146))
#@62 Dynamic texts (resulting from function calls) on the screen.
(defvar forms--dyntexts nil (#$ . 4221))
#@65 List of strings of the current record, as parsed from the file.
(defvar forms--the-record-list nil (#$ . 4329))
#@45 Last regexp used by forms-search functions.
(defvar forms--search-regexp nil (#$ . 4447))
#@21 Formatting routine.
(defvar forms--format nil (#$ . 4543))
#@23 Forms parser routine.
(defvar forms--parser nil (#$ . 4608))
#@43 To keep track of forms-mode being set-up.
(defvar forms--mode-setup nil (#$ . 4675))
(make-variable-buffer-local 'forms--mode-setup)
#@58 Array that holds dynamic texts to insert between fields.
(defvar forms--dynamic-text nil (#$ . 4814))
#@57 Array with the order in which the fields are displayed.
(defvar forms--elements nil (#$ . 4922))
#@54 Face used to represent read-only data on the screen.
(defvar forms--ro-face nil (#$ . 5025))
#@55 Face used to represent read-write data on the screen.
(defvar forms--rw-face nil (#$ . 5124))
#@741 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) "\204 \204+\306 \210\307\310!\210\307\311!\210\307\312!\210\307\313!\210\307\314!\210\307\315!\210\307\316!\210\307\317!\210\307\320!\210\307\321!\210\307\302!\210\307\303!\210\307\304!\210\307\305!\210\322\211\322\211\323\324!\203Y \307\325!\210\307\326!\210@\327=\204j \330\331\332 \333Q!\203p \334 \210\202t \335\336!\210\204} \335\337!\210 ;\204\207 \335\340!\210 \203\240 \247\203\231 \341V\204\251 \335\342!\210\202\251 \n\203\251 \335\343!\210\n\204\261 \344 \210
\203\327
;\203\323
G\345=\203\323
\230\203\327 \335\346!\210\202\327 \335\347!\210\323\350!\204\340 \322\307\351!\210\352 \210\307\353!\210\307\354!\210\307\355!\210\356 \210\307\357!\210\360 \210\f\203 \323\f!\204 \335\361!\210
\203\323
!\204\335\362!\210\307\363!\210\307\364!\210\365\322!\210\322A\366 \210\327\323\324!\203S\307\367!\210\307\370!\210\f\203K78\202S78\307\371!\210\307\372!\210\307\373!\210\307\374!\210\307\375!\210B\204o\376 \210\377C\201K D\201L !9\n E\211 F\203\300r9q\210\327\201M G H\201N \201F !\210G\204\252\201O \322!\210*E\203\274\201P \201Q E\322\327$\210)\202\327E\203\327r9q\210\201P \201Q E\322\327$\210)*\322 Ir9q\210\201R p!\210AI\201S ed\"):I\203\373\327\f)\307\201J !\210\314\201T DCJ\201U \210\201V \210\201O \322!\210:\341U\203r\201W \201X !\2039\201Y \201Z Q\202S\201[ \201\\ \211\345U\203O\201] \202R\201^ $\201_ \201` \201a !\201b \261\210\345;\327A\201O \322!\210\202\225;\345W\203|\345;\201c ;!\210\203\220\201d \210\202\225\201e \210\201f \201g \201h \"\210\201i \207" [primary forms--mode-setup forms-read-file-filter forms-write-file-filter forms-new-record-filter forms-modified-record-filter 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-insert-after forms-use-text-properties nil fboundp make-face forms-ro-face forms-rw-face t yes-or-no-p "Evaluate lisp code in buffer " buffer-name " to display forms? " eval-buffer error "`enable-local-eval' inhibits buffer evaluation" "Forms control file error: `forms-file' has not been set" "Forms control file error: `forms-field-sep' is not a string" 0 "Forms control file error: `forms-number-of-fields' must be a number > 0" "Forms control file error: `forms-number-of-fields' has not been set" forms--intuit-from-file 1 "Forms control file error: `forms-multi-line' is equal to `forms-field-sep'" "Forms control file error: `forms-multi-line' must be nil or a one-character string" set-text-properties forms--elements forms--process-format-list forms--format forms--markers forms--dyntexts forms--make-format forms--parser forms--make-parser "Forms control file error: `forms-new-record-filter' is not a function" "Forms control file error: `forms-modified-record-filter' is not a function" forms-fields forms--dynamic-text set-visited-file-name 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-commands forms-mode enable-local-eval buffer-read-only forms-mode-map major-mode mode-name write-file-filter read-file-filter file-modified inhibit-read-only ro minor-mode-alist "Forms" find-file-noselect buffer-modified-p run-hooks set-buffer-modified-p add-hook write-file-functions bury-buffer count-lines " View" forms--set-keymaps forms--change-commands "GNU Emacs Forms Mode\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-last-record forms-first-record run-mode-hooks forms-mode-hook forms-mode-hooks forms--help] 8 (#$ . 5225) nil])
(defalias 'forms--process-format-list #[nil "\204 \306\307!\210<\204 \306\310!\210\311 \312\"\312\313 \312
\203\332
\242
\243 \211 9\203< \314!\203< \315!;\203` \f;\203O \fP\202\323 \f\203Z \316\fC\312#\202\323 \247\203\247 \313X\204t V\203{ \306\317 #\210 \nGY\203\214 \320\nS\"\202\223 \n SI\210 T\f\203\241 \316\fC\312#\202\323 <\203\315 \321\242!\204\274 \306\322\242\"\210\f\203\307 \316\fC\312#\202\323 \306\323\"\210*\202 \f\203\361 \316\fC\312#\f\247\203\361 \316\324C\312#+\325\300\302\"\207" [forms-format-list forms-number-of-fields forms--elements field-num prev-item the-list error "Forms control file error: `forms-format-list' has not been set" "Forms control file error: `forms-format-list' is not a list" make-vector nil 0 boundp eval append "Forms format error: field number %d out of range 1..%d" vconcat fboundp "Forms format error: %S is not a function" "Forms format error: invalid element %S" "\n" forms--debug rem el] 5])
#@39 Record start of modification command.
(defvar forms--iif-start nil (#$ . 10892))
#@56 Original properties of the character being overridden.
(defvar forms--iif-properties nil (#$ . 10979))
#@58 `insert-in-front-hooks' function for read-only segments.
(defalias 'forms--iif-hook #[(_begin _end) "\204 \305`T!\306X\204 \307\306Z\310\"\2033 \311S!\312\313S\314 \315\316F#\210)\317\320C\f\"\211\207\321\211\207" [forms--iif-start forms--iif-properties inhibit-read-only forms--rw-face post-command-hook copy-marker 2 get-text-property read-only text-properties-at t set-text-properties face front-sticky (face) append forms--iif-post-command-hook nil] 7 (#$ . 11088)])
#@54 `post-command-hook' function for read-only segments.
(defalias 'forms--iif-post-command-hook #[nil "\304\305\" \203 \306\307 S #\210)\310\211\207" [post-command-hook forms--iif-start inhibit-read-only forms--iif-properties delq forms--iif-hook-post-command-hook t set-text-properties nil] 4 (#$ . 11578)])
#@72 Generate `forms--format' using the information in `forms-format-list'.
(defalias 'forms--make-format #[nil "\306\211\n\203' \307\310\311\312\313\314\313\315\316 \"\" @\247?\205 \317\320#BB\321BBB\2022 \307\322\314\313\315\323 \"\"BB\324 \325\"\324\325\"*\326\304!\207" [forms--dyntext forms--marker forms-use-text-properties forms-format-list forms--format forms--markers 0 lambda (arg) let ((inhibit-read-only t)) append apply mapcar forms--make-format-elt-using-text-properties ((add-text-properties (point-min) (1+ (point-min)) '(front-sticky (read-only intangible)))) ((remove-text-properties (1- (point)) (point) '(rear-nonsticky))) ((setq forms--iif-start nil)) (arg) forms--make-format-elt make-vector nil forms--debug forms--dyntexts] 10 (#$ . 11896)])
#@45 Helper routine to generate format function.
(defalias 'forms--make-format-elt-using-text-properties #[(el) ";\203# \303\304\305\306D\307BB\310\311\312\313\314 TC\315 TC\316$BBBBFC\207\247\203B \317\320\321\322 \211T\323BBB\306\324\325SED\326BBBBC\207<\205k \303\327\305\306\321\330\n\211TFD\331BB\310\332\312\333\314 TC\334 TC\335$BBBBFC\207" [el forms--marker forms--dyntext set-text-properties (point) progn insert ((point)) list 'face forms--ro-face 'read-only append ('intangible) ('insert-in-front-hooks '(forms--iif-hook) 'rear-nonsticky '(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 'face forms--rw-face 'front-sticky '(face))))) (point) forms--dyntexts ((point)) 'face 'read-only ('intangible) ('insert-in-front-hooks '(forms--iif-hook) 'rear-nonsticky '(read-only face insert-in-front-hooks intangible))] 12 (#$ . 12671)])
#@45 Helper routine to generate format function.
(defalias 'forms--make-format-elt #[(el) ";\203\n \303DC\207\247\203\" \304\305 \306BBB\303\307\310SEDD T\207<\2052 \303\304\311\nFDC\nT\207" [el forms--marker forms--dyntext insert aset forms--markers ((point-marker)) elt arg forms--dyntexts] 5 (#$ . 13651)])
#@71 Generate `forms--parser' from the information in `forms-format-list'.
(defalias 'forms--make-parser #[nil "\203 \306\202# \307\211\310\311\307\312\313\314\315\316\317\320\316\f\307C\"\"\"BBBE+\321\305!\207" [forms-use-text-properties forms--dyntext forms--seen-text forms--field forms-format-list forms--parser forms--parser-using-text-properties nil 0 lambda let (here) (goto-char (point-min)) apply append mapcar forms--make-parser-elt forms--debug] 12 (#$ . 13970)])
#@59 Extract field info from forms when using text properties.
(defalias 'forms--parser-using-text-properties #[nil "\306\307\211\211 GW\205L \nH\211b\210\310 \311\"\203% \f
\nH\307I\210\202E \312 \311\"\211\203; \f
\nH\313 \"I\210\202E \f
\nH\313 d\"I\210\nT\211\202 +\207" [there here i forms--markers forms--recordv forms--elements 0 nil get-text-property read-only next-single-property-change buffer-substring-no-properties] 6 (#$ . 14452)])
#@51 Helper routine to generate forms parser function.
(defalias 'forms--make-parser-elt #[(el) ";\203? \203( \304\305\306\307\310BBD\311\312EE\313\314 S\315\316\317\320GEEFE\202: \305\306\321\322!DD\311\323EE\324GDD\325\326\207\247\203R \203N \311\327 #\207\326\207\204d \205\227 \313\314 S\330BBBC\207<\205\227 \203\204 \331\332\303\333\334 EDD\335\313\314 S\336BBBFC\202\220 \331\303\333\334 EDC\337BBC T\325\326\207" [el forms--field forms--seen-text forms--dyntext (setq here (point)) if not search-forward (nil t nil) error "Parse error: cannot find `%s'" aset forms--recordv buffer-substring-no-properties here - (point) looking-at regexp-quote "Parse error: not looking at `%s'" forward-char t nil "Cannot parse adjacent fields %d and %d" ((buffer-substring-no-properties (point) (point-max))) let (here (point)) aref forms--dyntexts (if (not (search-forward forms--dyntext nil t nil)) (error "Parse error: cannot find `%s'" forms--dyntext)) ((buffer-substring-no-properties 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 (#$ . 14908)])
#@62 Get number of fields and a default form using the data file.
(defalias 'forms--intuit-from-file #[nil "\204X \306 !\204 \307\310!\210\202X \311 ! \312 r\nq\210\313 \314\305!\210)eb\210\315 )\316\n!\210\317\312G \320\321\f #\211\203W T\\ \202= -\322 \323E \317 T\211 X\205~ \324 \325\326 \" \327E\" \202a )\207" [forms-number-of-fields forms-file forms--file-buffer forms-read-file-filter the-record read-file-filter file-exists-p error "Need existing file or explicit `forms-number-of-fields'" find-file-noselect nil t run-hooks forms--get-record kill-buffer 0 1 string-match "Forms file \"" "\".\n\n" append format "%4d: " "\n" inhibit-read-only forms-field-sep field-sep-length found-pos start-pos forms-format-list i] 5 (#$ . 16129)])
#@36 Set the keymaps used in this mode.
(defalias 'forms--set-keymaps #[nil "\303\203 \202\n \n!\207" [forms-read-only forms-mode-ro-map forms-mode-edit-map use-local-map] 2 (#$ . 16909)])
#@30 Fill the Forms mode keymaps.
(defalias 'forms--mode-commands #[nil "\303 \304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\322#\210\303 \336 !\210\304 \337#\210\304 \340\312#\210\304 \341\316#\210\304 \342\320#\210\304 \343\322#\210\304 \344\324#\210\304 \345\326#\210\304 \346\330#\210\304 \331\332#\210\304 \333\334#\210\304 \347\350#\210\304 \351\320#\210\352 !\210\353 !\210\303 \304\n\337#\210\352\n!\210\354\n!\207" [forms-mode-map forms-mode-ro-map forms-mode-edit-map make-keymap 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 "" suppress-keymap "" "q" "l" "n" "p" "r" "s" "x" "?" describe-mode " " forms--mode-commands1 forms--mode-menu-ro forms--mode-menu-edit] 4 (#$ . 17102)])
(defalias 'forms--mode-menu-ro #[(map) "\301\302\303\304\303!B#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\353\354\355\356#\210\353\357\355\360#\207" [map define-key [menu-bar forms] "Forms" make-sparse-keymap [menu-bar forms menu-forms-exit] ("Exit Forms Mode" . 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) "\301\302\303\304\303!B#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\353\354\355\356#\210\353\357\355\360#\207" [map define-key [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) "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\305#\207" [map define-key " " 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 (#$ . 22203)])
#@40 Localize some commands for Forms mode.
(defalias 'forms--change-commands #[nil "\203 \303\304\305\"\210\303\306\307\"\210\303\310\305\"\210\303\311\307\"\210 \203& \303\312\313\"\210\303\314\315\"\210\303\316\317\"\210\320\302!\210\321\322\207" [forms-forms-scroll forms-forms-jump revert-buffer-function local-set-key [remap scroll-up] forms-next-record [remap scroll-down] forms-prev-record [remap scroll-up-command] [remap scroll-down-command] [remap beginning-of-buffer] forms-first-record [remap end-of-buffer] forms-last-record "" forms-save-buffer make-local-variable forms--revert-buffer t] 3 (#$ . 22603)])
#@30 Initial help for Forms mode.
(defalias 'forms--help #[nil "\300\301\302\303!\"\207" [message "%s" substitute-command-keys "\\[forms-next-record]:next \\[forms-prev-record]:prev \\[forms-first-record]:first \\[forms-last-record]:last \\[describe-mode]:help"] 4 (#$ . 23230)])
#@93 Translate in SUBJ all chars ARG into char REP. ARG and REP should
be single-char strings.
(defalias 'forms--trans #[(subj arg rep) "\306\307!\310 ! \311
\f#\211\205
\f\nI\210\fT\202\n +\207" [arg rep k re i subj 0 regexp-quote string-to-char string-match] 4 (#$ . 23519)])
#@41 Internal exit from forms mode function.
(defalias 'forms--exit #[(&optional save) "\303!\304 \210\n\203 \305!\203 \306 \210rq\210\307 \210\310p!\210)\311 !\2033 \n\2059 \312\313\303 !\"\2029 \307 \210\310p!)\207" [forms--file-buffer buf save buffer-name forms--checkmod buffer-modified-p forms-save-buffer delete-auto-save-file-if-necessary kill-buffer get-buffer error "Problem saving buffer %s"] 4 (#$ . 23808)])
#@48 Fetch the current record from the file buffer.
(defalias 'forms--get-record #[nil "n\204 \301\302!\210`\302\210\303`\"b\210)\207" [here beginning-of-line nil buffer-substring-no-properties] 3 (#$ . 24235)])
#@57 Format THE-RECORD and display it in the current buffer.
(defalias 'forms--show-record #[(the-record) "\306\307\306G
\203 \310
\311#\210P\312 #\211\203; \nO \313\fC\" \n\\)\202 \f,\306\203Q \314 \315ed\306#\210)\316 \210G U\204\203 \203k \317\320G #\210G W\203\203 \313\321 GZ\322\"\"\313\306C\306# !\210eb\210\323\306!\210!\324\325\"!\326\325#!R\211$\207" [forms-field-sep field-sep-length found-pos start-pos the-result forms-multi-line nil 0 forms--trans "\n" string-match append t set-text-properties erase-buffer message "Warning: this record has %d fields instead of %d" make-list "" set-buffer-modified-p " " int-to-string "/" the-record ent forms--the-record-list buffer-read-only forms-use-text-properties inhibit-read-only forms-number-of-fields forms-check-number-of-fields forms-fields forms--format forms-read-only forms--current-record forms--total-records mode-line-process] 5 (#$ . 24453)])
#@46 Parse contents of form into list of strings.
(defalias 'forms--parse-form #[nil "\306\307 !\n \210)\f\203\" \307\310\" \f
!\311
\306\"A)\202& \311\306\")\207" [forms--recordv forms--the-record-list forms--dynamic-text forms--parser forms-modified-record-filter the-fields nil vconcat [nil] append] 3 (#$ . 25429)])
#@95 Update current record with contents of form.
As a side effect: sets `forms--the-record-list'.
(defalias 'forms--update #[nil "\203 \306\307!\210\310\311 \312\313\n #\314\315 !\312\313\n\316#\"\203$ \306\317!\210\f\203. \320 \321\f#\210\314\321 \"\2039 \306\322!\210r
q\210\323 \324 |\210 c\210\325 *\207" [forms-read-only the-record forms--the-record-list forms-field-sep forms-multi-line forms--file-buffer error "Buffer is read-only" nil forms--parse-form mapconcat identity string-match regexp-quote "" "Field separator occurs in record - update refused" forms--trans "\n" "Multi-line fields in this record - update refused" line-beginning-position line-end-position beginning-of-line] 6 (#$ . 25757)])
#@69 Check if this form has been modified, and call forms--update if so.
(defalias 'forms--checkmod #[nil "\301\302!\205 `\303 \210\304\302!\210b)\207" [here buffer-modified-p nil forms--update set-buffer-modified-p] 2 (#$ . 26474)])
#@29 Visit a file in Forms mode.
(defalias 'forms-find-file #[(fn) "\304\211\305\n!\210 \206 \306\304!*\207" [enable-local-variables enable-local-eval fn forms--mode-setup t find-file-read-only forms-mode] 2 (#$ . 26712) "fForms file: "])
#@45 Visit a file in Forms mode in other window.
(defalias 'forms-find-file-other-window #[(fn) "\304\211\305\n!\210 \206 \306\304!*\207" [enable-local-variables enable-local-eval fn forms--mode-setup t find-file-other-window forms-mode] 2 (#$ . 26955) "fFbrowse file in other window: "])
#@59 Normal exit from Forms mode. Modified buffers are saved.
(defalias 'forms-exit #[nil "\300\301!\207" [forms--exit t] 2 (#$ . 27248) nil])
#@46 Exit from Forms mode without saving buffers.
(defalias 'forms-exit-no-save #[nil "\300\301!\207" [forms--exit nil] 2 (#$ . 27393) nil])
#@40 Advance to the ARGth following record.
(defalias 'forms-next-record #[(arg) "\302\303 !\\\304\"\207" [forms--current-record arg forms-jump-record prefix-numeric-value t] 4 (#$ . 27535) "P"])
#@39 Advance to the ARGth previous record.
(defalias 'forms-prev-record #[(arg) "\302\303 !Z\304\"\207" [forms--current-record arg forms-jump-record prefix-numeric-value t] 4 (#$ . 27733) "P"])
#@170 Goto record number RN.
If CURRENT is provided, it specifies the current record and can be used
to speed up access to RN. Returns the number of records missing, if any.
(defalias 'forms--goto-record #[(rn &optional current) "\203 Zy\207eb\210 Sy\207" [current rn] 2 (#$ . 27930)])
#@26 Jump to a random record.
(defalias 'forms-jump-record #[(arg &optional relative) " V\204\f \306X\203 \307\n\204 \310\311 #\202 \312!\210\313 \210 \314r
q\210\315 \210\316\n\2053 \f\"Z\317 )!\210 \fU?\205H \f\307\320\f\")\207" [arg forms--total-records relative forms--current-record cur forms--file-buffer 0 error message "Record number %d out of range 1..%d" "" forms--checkmod forms--show-record beginning-of-line forms--goto-record forms--get-record "Stuck at record %d"] 5 (#$ . 28221) "NRecord number: "])
#@23 Jump to first record.
(defalias 'forms-first-record #[nil "\300\301!\207" [forms-jump-record 1] 2 (#$ . 28751) 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 "rq\210\303ed\")\211\nU\204 \304\305\n\"\210)\306\n!\207" [forms--file-buffer numrec forms--total-records count-lines message "Warning: number of records changed to %d" forms-jump-record] 4 (#$ . 28874) nil])
#@179 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 writable.
(defalias 'forms-toggle-read-only #[(arg) "\203\f \306!\307X\202
\2032 r q\210\f)\203% \310\311\312
\"\210\202' \313\n \232?\2050 \314 )\207 ?\205> \315 \210\310\314 \207" [arg forms-read-only ro forms--file-buffer buffer-read-only forms-file prefix-numeric-value 0 t message "No write access to `%s'" nil forms-mode forms--checkmod] 3 (#$ . 29223) "P"])
#@315 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.
If `forms-insert-after is non-nil, the default behavior is to insert
after the current record.
(defalias 'forms-insert-record #[(arg) "\203 \306\307!\210\310\211\211\f\203
\204 \f\204$
\204$ \202( T\311 \210\203J \312T\307\" !\313\310\"A)\202P \314\307\"\315\316\n#rq\210\317 !\210\320\321!\210 c\210\322 \210) +T\323!\207" [forms-read-only the-record the-list ln arg forms-insert-after error "" nil forms--checkmod make-vector append make-list mapconcat identity forms--goto-record open-line 1 beginning-of-line forms-jump-record forms--current-record forms-new-record-filter forms-number-of-fields the-fields forms-field-sep forms--file-buffer forms--total-records] 4 (#$ . 29772) "P"])
#@55 Deletes a record. With a prefix argument: don't ask.
(defalias 'forms-delete-record #[(arg) "\203 \306\307!\210\310 \210 \204 \311\312!\203; \nr\fq\210\313 !\210\314 \210`\314\315!\210`|\210)
S\n
V\2036
\316\n!\210)\317\307!\207" [forms-read-only arg forms--current-record ln forms--file-buffer forms--total-records error "" forms--checkmod y-or-n-p "Really delete this record? " forms--goto-record beginning-of-line 2 forms-jump-record message] 3 (#$ . 30731) "P"])
#@46 Search forward for record containing REGEXP.
(defalias 'forms-search-forward #[(regexp) "\306\232\203 \307 \210\310\211\211 r
q\210\310\210`\311\310\312#\2043 \neV\203I eb\210\311\n\312#\203I \313 \314e`\"T`\nW\203Q \315\316!\210\202Q \nb\210\317\320\"\210)\f\321 !\210+\311\310\312#\210\211\207" [regexp forms--search-regexp here the-record the-line forms--file-buffer "" forms--checkmod nil re-search-forward t forms--get-record count-lines message "Wrapped" error "Search failed: %s" forms--show-record forms--current-record] 4 (#$ . 31212) (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) "\306\232\203 \307 \210\310\211\211 r
q\210\311 \210`\312\310\313#\2043 `dW\203I db\210\312\n\313#\203I \314 \315e`\"T`\nV\203Q \316\317!\210\202Q \nb\210\320\321\"\210)\f\322 !\210+\323\310\313#\210\211\207" [regexp forms--search-regexp here the-record the-line forms--file-buffer "" forms--checkmod nil beginning-of-line re-search-backward t forms--get-record count-lines message "Wrapped" error "Search failed: %s" forms--show-record re-search-forward forms--current-record] 4 (#$ . 31903) (list (read-string (concat "Search backward for" (if forms--search-regexp (concat " (" forms--search-regexp ")")) ": ")))])
#@192 Forms mode replacement for save-buffer.
It saves the data buffer instead of the forms buffer.
Calls `forms-write-file-filter' before, and `forms-read-file-filter'
after writing out the data.
(defalias 'forms-save-buffer #[(&optional args) "\306 \210 \n r
q\210\307
\203 \310\307!\210\311!\210\f\203( \212\312\304!\210)\310\313!\210*\314 !\210+\307\207" [forms-write-file-filter forms-read-file-filter forms--current-record cur read-file-filter write-file-filter forms--checkmod t set-buffer-modified-p save-buffer run-hooks nil forms-jump-record forms--file-buffer inhibit-read-only args] 3 (#$ . 32634) "p"])
#@38 Reverts current form to un-modified.
(defalias 'forms--revert-buffer #[(&optional _arg noconfirm) "\204\n \302\303!\205 \304\305!\210\306 !\207" [noconfirm forms--current-record yes-or-no-p "Revert form to unmodified? " set-buffer-modified-p nil forms-jump-record] 2 (#$ . 33259) "P"])
#@28 Jump to ARG-th next field.
(defalias 'forms-next-field #[(arg) "\306`\307\306\310 \311
!\203 \312\202
\\\313\314\215?\205%
\306Hb-\207" [inhibit-point-motion-hooks cnt there here i arg 0 nil t zerop 1 done (byte-code " GW\205- H\211\203& \n X\204& \fS\211\305X\203& \nb\210\306\307\310\"\210T\211\202 \207" [i forms--markers there here cnt 0 throw done t] 4) forms--markers] 5 (#$ . 33553) "p"])
#@32 Jump to ARG-th previous field.
(defalias 'forms-prev-field #[(arg) "G`\306\307\310 \311
!\203 \312\202 \n
\\\313\314\215?\205) \211GSHb-\207" [forms--markers inhibit-point-motion-hooks cnt there here i nil 0 t zerop 1 done (byte-code "\305V\205+ S H\211\203 \n Y\204 \fS\211\305X\203 \nb\210\306\307\310\"\210\202 \207" [i forms--markers there here cnt 0 throw done t] 3) arg] 5 (#$ . 33975) "p"])
#@75 Send the records to the printer with `print-buffer', one record per page.
(defalias 'forms-print #[nil "\306 \307\310 X\203: \311 !\210\312 r\313\314!q\210\315\307!b\210\nc\210\310 \fW\2032 \316c\210) T\211\202\f r\314q\210\317 \210\320\310!\210\321p!\210)\311
!-\207" [forms--current-record forms--total-records record nb-record total-nb-records save-record t 1 nil forms-jump-record buffer-string get-buffer-create "*forms-print*" buffer-end "\n\f\n" print-buffer set-buffer-modified-p kill-buffer inhibit-read-only buffer-read-only] 6 (#$ . 34401) nil])
#@274 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 highest number.
Usage: (setq forms-number-of-fields
(forms-enumerate
'(field1 field2 field2 ...)))
(defalias 'forms-enumerate #[(the-fields) "\303 \203 T \242 \243\nL\210)\202 )\207" [the-index the-fields el 0] 2 (#$ . 34977)])
#@42 If non-nil, enable Forms mode debugging.
(custom-declare-variable 'forms--debug nil '(#$ . 35394) :type 'boolean :group 'forms)
#@29 Internal debugging routine.
(defalias 'forms--debug #[(&rest args) "\205e \305\n\203O \n\242\n\243 ;\203 P\202K \306 !\307Q\310 !\2038 \311 ! \306\f!\312Q)\202= \313\312Q\314 !\203K \306 K!\312Q)\202 r\315\316!q\210\317\320 !\203_ \321 \210db\210 c*\207" [forms--debug ret args el vel nil prin1-to-string " = " boundp eval "\n" "<unbound>" fboundp get-buffer-create "*forms-mode debug*" zerop buffer-size emacs-lisp-mode] 3 (#$ . 35528)])