
(deflocalvar dbc-database nil "The database associated with this format.
This variable is also set in the summary format.")

(deflocalvar dbc-database-modified-p nil "T if the database has been modified, nil otherwise.
Mirrors the value of the modified-p slot of the database.
This has to be a real variable so it can go in mode-line-format.
Set it using `dbc-set-database-modified-p'.")

(defun dbc-update-database-modified-p nil (byte-code "	ВH‰‡" [dbc-database-modified-p dbc-database 30] 2))

(proclaim-inline dbc-update-database-modified-p)

(defun dbc-set-database-modified-p (value) (byte-code "Г	I€	‰‡" [dbc-database value dbc-database-modified-p 30] 3))

(proclaim-inline dbc-set-database-modified-p)

(deflocalvar dbc-omit-p nil "Non-nil if omitting is in effect, nil otherwise.
Use function `dbc-set-omit-p', which works in either a data display buffer or
a summary buffer and sets the variable's value in both, instead of setting
this directly.
Setting this to nil is cheaper than changing the omit function to the empty
one, since no omit bits are recomputed.  
This variable is automatically set by the omitting functions.")

(defun dbc-set-omit-p (value) "\
Set `dbc-omit-p' to VALUE in both data display buffer and summary buffer.
Does no other housekeeping." (byte-code "ЗИ !p	=ѓt ‰€Й!… К!… …q З!p	=ѓ3 ‰‚p ЛЋq€М!Н =?…I О!`=‰…f p=…f М!=…f Н =?…m П`\"€*)*‚РЋq€М!Н =?…Љ О!`=‰€Й!…ќ К!…ќ …р З!p	=ѓІ ‰‚п СЋq€М!Н =?…И О!`=‰…е p=…е М!=…е Н =?…м П`\"€*)*…p=…М!=…Н =?…П`\"€*)*‡" [target-buffer this-buffer dbc-omit-p value dbf-summary-buffer target-window track-window-point-p get-buffer-create db-data-display-buffer bufferp buffer-name ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3))] 29))

(deflocalvar dbc-link nil "The link of the record currently being displayed, or nil.")

(deflocalvar dbc-index nil "The index of the record currently being displayed (and of its link), or nil.
Use `dbc-set-index' to set this value unless you know what you are doing.")

(deflocalvar dbc-index-fraction nil "A string of the form dbc-index/database-no-of-records.
Variables with numeric values aren't allowed in mode-line-format.
An asterisk (*) precedes dbc-index if the current record is marked.
The fraction is surrounded by square brackets if the current record is omitted.
This variable should only be set by calling `dbc-set-index'.")

(deflocalvar dbc-wraparound-p (quote delay) "Value t, nil, or 'delay determines whether going forward from the last
record (or backward from the first) wraps, is prohibited, or denies on the
first attempt only and then wraps.")

(deflocalvar dbf-stay-in-edit-mode-p t "*Whether edit mode is preserved when switching records in EDB.
Automatically becomes local to the current buffer when set in any fashion.
Only has an effect when set in an EDB data display buffer.")

(deflocalvar db-new-record-function nil "Function called on empty records before they're inserted in the database.
Takes two arguments, the record and the database.")

(defvar db-kill-buffer-hook-inhibit-p nil)

(defvar db-delete-record-modifies-database-p t "\
Non-nil if deleting a record should mark the database as modified.")

(defvar db-mention-filename-on-save-p t)

(defvar db-auto-edit-mode t "\
nil if movement around the data display buffer is permitted in view mode.
When this variable is non-nil (it defaults to t), mousing and most
movement commands cause edit mode to be entered on the appropriate field.
Don't set this variable directly; use command `db-toggle-auto-edit-mode'.")

(defvar database-view-mode-map (make-keymap))

(suppress-keymap database-view-mode-map)

(define-key database-view-mode-map "n" (quote db-next-record))

(define-key database-view-mode-map "p" (quote db-previous-record))

(define-key database-view-mode-map "<" (quote db-first-record))

(define-key database-view-mode-map ">" (quote db-last-record))

(define-key database-view-mode-map (db-meta-prefix-ify "<") (quote db-first-record))

(define-key database-view-mode-map (db-meta-prefix-ify ">") (quote db-last-record))

(define-key database-view-mode-map "j" (quote db-jump-to-record))

(define-key database-view-mode-map " " (quote db-next-screen-or-record))

(define-key database-view-mode-map "" (quote db-previous-screen-or-record))

(define-key database-view-mode-map (db-meta-prefix-ify "n") (quote db-next-record-ignore-omitting))

(define-key database-view-mode-map (db-meta-prefix-ify "p") (quote db-previous-record-ignore-omitting))

(define-key database-view-mode-map (db-meta-prefix-ify "") (quote db-next-marked-record))

(define-key database-view-mode-map (db-meta-prefix-ify "") (quote db-previous-marked-record))

(define-key database-view-mode-map "	" (quote db-first-field))

(define-key database-view-mode-map (db-meta-prefix-ify "	") (quote db-last-field))

(define-key database-view-mode-map "" (quote db-first-field))

(define-key database-view-mode-map "" (quote db-last-field))

(define-key database-view-mode-map "e" (quote db-first-field))

(define-key database-view-mode-map "" (quote undefined))

(define-key database-view-mode-map "" (quote undefined))

(define-key database-view-mode-map "" (quote undefined))

(define-key database-view-mode-map "" (quote undefined))

(define-key database-view-mode-map "" (quote db-scroll-up))

(define-key database-view-mode-map (db-meta-prefix-ify "v") (quote db-scroll-down))

(define-key database-view-mode-map "u" (quote db-revert-record))

(define-key database-view-mode-map "r" (quote db-revert-database))

(define-key database-view-mode-map "a" (quote db-add-record))

(define-key database-view-mode-map "i" (quote db-add-record))

(define-key database-view-mode-map "d" (quote db-delete-record))

(define-key database-view-mode-map "k" (quote db-delete-record))

(define-key database-view-mode-map "o" (quote db-output-record-to-db))

(define-key database-view-mode-map "c" (quote db-copy-record))

(define-key database-view-mode-map (db-meta-prefix-ify "S") (quote db-search))

(define-key database-view-mode-map (db-meta-prefix-ify "s") (quote db-search))

(define-key database-view-mode-map "s" (quote db-search))

(define-key database-view-mode-map "S" (quote db-incremental-search))

(define-key database-view-mode-map "" (quote db-isearch-forward))

(define-key database-view-mode-map "" (quote db-isearch-backward))

(define-key database-view-mode-map "q" (quote db-quit))

(define-key database-view-mode-map "x" (quote db-exit))

(define-key database-view-mode-map "m" (quote db-mark-record))

(define-key database-view-mode-map "?" (quote describe-mode))

(define-key database-view-mode-map "O" (quote db-omit-record))

(define-key database-view-mode-map (db-meta-prefix-ify "o") (quote db-omitting-toggle))

(define-key database-view-mode-map (db-meta-prefix-ify "O") (quote db-omitting-set))

(define-key database-view-mode-map (db-meta-prefix-ify "") (quote db-toggle-show-omitted-records))

(define-key database-view-mode-map "D" (quote db-summary))

(define-key database-view-mode-map "h" (quote db-summary))

(define-key database-view-mode-map "H" (quote db-summary))

(define-key database-view-mode-map "r" (quote db-report))

(define-key database-view-mode-map "" (quote db-accept-record))

(define-key database-view-mode-map "b" (quote undefined))

(define-key database-view-mode-map "f" (quote undefined))

(define-key database-view-mode-map "g" (quote undefined))

(define-key database-view-mode-map "l" (quote undefined))

(define-key database-view-mode-map "t" (quote undefined))

(define-key database-view-mode-map "w" (quote undefined))

(define-key database-view-mode-map "y" (quote undefined))

(define-key database-view-mode-map "z" (quote undefined))

(defvar database-edit-mode-map (make-keymap))

(if (not db-running-lucid-emacs) (global-set-key " " (quote db-x-jump-to-point)))

(define-key database-edit-mode-map "" (quote db-view-mode))

(define-key database-edit-mode-map "U" (quote db-revert-field))

(define-key database-edit-mode-map (db-meta-prefix-ify "n") (quote db-next-record))

(define-key database-edit-mode-map (db-meta-prefix-ify "p") (quote db-previous-record))

(define-key database-edit-mode-map "	" (quote db-next-field))

(define-key database-edit-mode-map (db-meta-prefix-ify "	") (quote db-previous-field))

(define-key database-edit-mode-map (db-meta-prefix-ify "<") (quote db-first-field))

(define-key database-edit-mode-map (db-meta-prefix-ify ">") (quote db-last-field))

(define-key database-edit-mode-map "" (quote db-scroll-up))

(define-key database-edit-mode-map (db-meta-prefix-ify "v") (quote db-scroll-down))

(define-key database-edit-mode-map "" (quote db-next-line-or-field))

(define-key database-edit-mode-map "" (quote db-previous-line-or-field))

(define-key database-edit-mode-map "" (quote db-forward-char))

(define-key database-edit-mode-map "" (quote db-backward-char))

(define-key database-edit-mode-map (db-meta-prefix-ify "f") (quote db-forward-word))

(define-key database-edit-mode-map (db-meta-prefix-ify "b") (quote db-backward-word))

(define-key database-edit-mode-map "" (quote db-beginning-of-line-or-field))

(define-key database-edit-mode-map "" (quote db-end-of-line-or-field))

(define-key database-edit-mode-map "" (quote db-newline))

(define-key database-edit-mode-map "
" (quote db-newline))

(define-key database-edit-mode-map "" (quote db-open-line))

(define-key database-edit-mode-map "" (quote db-delete-char))

(define-key database-edit-mode-map "" (quote db-backward-delete-char))

(define-key database-edit-mode-map (db-meta-prefix-ify "d") (quote db-kill-word))

(define-key database-edit-mode-map (db-meta-prefix-ify "") (quote db-backward-kill-word))

(define-key database-edit-mode-map "" (quote db-kill-line))

(define-key database-edit-mode-map (db-meta-prefix-ify "k") (quote db-kill-to-end))

(define-key database-edit-mode-map "" (quote db-kill-region))

(define-key database-edit-mode-map (db-meta-prefix-ify "w") (quote db-copy-region-as-kill))

(define-key database-edit-mode-map (db-meta-prefix-ify "s") (quote db-search-field))

(define-key database-edit-mode-map "" (quote db-isearch-forward))

(define-key database-edit-mode-map "" (quote db-isearch-backward))

(define-key database-edit-mode-map (db-meta-prefix-ify "?") (quote db-field-help))

(define-key database-view-mode-map "" (quote db-save-database))

(define-key database-edit-mode-map "" (quote db-save-database))

(define-key database-view-mode-map "" (quote db-write-database-file))

(define-key database-edit-mode-map "" (quote db-write-database-file))

(define-key database-view-mode-map "" (quote db-toggle-modifiable-p))

(define-key database-edit-mode-map "" (quote db-toggle-modifiable-p))

(define-key database-view-mode-map "n" (quote undefined))

(define-key database-edit-mode-map "n" (quote undefined))

(defun db-field-help nil "\
Display help for current field using the recordfieldspec help-info field.
If this is a string, display it.  If it is a form, eval it and display the
result." (interactive) (byte-code "Д€?…
 ЕЖ!€ЗHИ	\"ЙHК
ѓ+ 
;ѓ$ 
‚( ЛМНЏ‚2 ОПР	\"\"С\"*‡" [dbf-this-displayspec field-index help-text dbc-database nil error "Not on a field." 1 database-recordfieldspec 8 db-best-fit-message err (byte-code "Б!‡" [help-text eval] 2) ((error (byte-code "ВГ	#‡" [help-text err format "This help form:

  %s

failed with this error:

%s"] 4))) format "No help available for `%s'." fieldnumber->fieldname " *DB Help*"] 8))

(defun db-quit nil "\
Quit editing the database for now; bury its buffers." (interactive) (byte-code "А€Б ‡" [nil db-bury] 2))

(defun db-exit (&optional kill) "\
Be done with the database; like `db-quit', but offers to save any changes.
With prefix arg, kills the data display buffer, and the database, if that was
its only data display buffer." (interactive "P") (byte-code "В€ГА!€	ѓ Д ‚ Е ‡" [t kill nil db-save-database db-kill-buffers db-quit] 4))

(defun db-kill-buffers nil "\
Kill this buffer, and the associated summary or data display buffer, if any.
If its last data display buffer is killed, the database is killed too.
Does not offer to save changes to the database or to this record; use `db-exit'
with optional argument to do so." (byte-code "ЙК !p	=ѓ3 Л €МpНH\"
ѓ\" Н
I‚( М\"‰)€ЖОp!)‚– ПЋq€Р!С =?…L Т!`=Л €МpНH\"
ѓc Н
I‚i М\"‰)€ЖОp!)…‹ p=…‹ Р!=…‹ С =?…“ У`\"€*)*‡" [target-buffer this-buffer remaining-buffers dbc-database db-databases db-kill-buffer-hook-inhibit-p t target-window track-window-point-p get-buffer-create db-data-display-buffer dbf-kill-summary delq 7 kill-buffer ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 19))

(defun dbf-kill-summary nil (byte-code "З!… И!… …n Й!p	
=ѓ) Кp!€ДЛp!)‚m МЋ	q€Н	!О =?…? П!`=Кp!€ДЛp!)…c p	=…c Н	!=…c О =?…j Р`\"€*)*‡" [dbf-summary-buffer target-buffer this-buffer db-kill-buffer-hook-inhibit-p t target-window track-window-point-p bufferp buffer-name get-buffer-create delete-windows-on kill-buffer ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 16))

(defun db-kill-buffer-hook nil (byte-code "?… Д † Е …3 	† Ж ѓ- ЗИ
ЙHКQ!…* ЛГ!€МГ!‚0 МГ!€Н ‡" [db-kill-buffer-hook-inhibit-p dbf-this-record-modified-p dbc-database t db-data-display-buffer-p db-summary-buffer-p dbf-this-field-modified-p y-or-n-p "Commit the current record before killing " 1 "? " dbf-process-current-record-maybe db-save-database db-kill-buffers] 9))

(defun db-bury (&optional not-data-display not-summary) (byte-code "ЙЙКЛ !p
=ѓ2 ?… p?…- М!…- Н!…- ‰‚ђ ОЋ
q€П
!Р =?…K С!`=?…S p?…i М!…i Н!…i ‰…… p
=…… П
!=…… Р =?…Ќ Т`\"€*)*€…ќ У!€Ф!€	…© У	!€Ф	!*‡" [data-display-buffer summary-buffer target-buffer this-buffer not-data-display not-summary dbf-summary-buffer target-window track-window-point-p nil get-buffer-create db-data-display-buffer bufferp buffer-name ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point delete-windows-on bury-buffer] 17))

(if (not (fboundp (quote db-old-save-some-buffers))) (progn (fset (quote db-old-save-some-buffers) (symbol-function (quote save-some-buffers))) (fset (quote save-some-buffers) (quote db-save-some-buffers))))

(defun db-save-some-buffers (&optional quietly exiting) "\
Save some modified databases and file-visiting buffers.
Asks user about each one.  With argument, saves all with no questions." (interactive "P") (byte-code "В€Г!€Д	\"‡" [quietly exiting nil db-save-some-databases db-old-save-some-buffers] 4))

(defun db-save-some-databases (&optional quietly) "\
Save some modified databases.  Asks user about each one.
With argument, saves all with no questions." (interactive "P") (byte-code "Л€	ЛЛЛ…S@AМ
!‰€…O‰€…€ Н@!p=ѓ; ОЗ!‚~ ПЋq€Р!С =?…T Т!`=	ОЗ!	…s p=…s Р!=…s С =?…{ У`\"€*)*€A‰€‚\" €Н@!p=ѓ  Ф
?!‚е ХЋq€Р!С =?…№ Т!`=	Ф
?!	…Ъ p=…Ъ Р!=…Ъ С =?…в У`\"€*)*€‰€…OН@!p=ѓЦ ‚EЧЋq€Р!С =?…Т!`=	Ц 	…:p=…:Р!=…:С =?…BУ`\"€*)*€A‰€‚л €‚
 ,‡" [databases db-databases this-database buffers buffers-remaining target-buffer this-buffer t target-window track-window-point-p quietly nil database-clean-data-display-buffers get-buffer-create dbf-process-current-record-maybe ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point db-save-database ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) force-mode-line-update ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3))] 33))

(defun db-find-file (database-file &optional prompt-for-format) "\
Read a database from DATABASE-FILE; prompts when called interactively.
If the database file doesn't specify a format and the format file can't be
inferred from DATABASE-FILE, the user is prompted for it too.
The user is always prompted for the format if prefix arg PROMPT-FOR-FORMAT
is non-nil.
If the database is already read in and PROMPT-FOR-FORMAT is nil, the existing
database buffer is merely selected.
When called non-interactively, argument PROMPT-FOR-FORMAT may be a string, the
name of a format file to use." (interactive "fDatabase file: 
P") (byte-code "Е€О!‰€
;… 
ЕЕ
;… Е‰€
?…Ж П!‰€?†6 Р!?…6 Е‰€…< 	…Ж СHЕ…Е Т	У@!p		=ѓe 
‚« ФЋq€Х!Ц =?…Ђ Ч!`=
…  p=…  Х!=…  Ц =?…Ё Ш`\"€*)*\"ѓ» @Е‰‚Б A‰€‚G *€?…У Щ	
#‰€?…Я Р!@‰€Ъ!€‰+€Ы ‡" [database-file format-file prompt-for-format database data-display-buffer nil ddbs ddb-format-file target-buffer this-buffer dbf-format-file target-window track-window-point-p dbc-database expand-file-name db-find-read-in-database database-clean-data-display-buffers 7 db-same-file-p get-buffer-create ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point read-database-file switch-to-buffer db-first-record] 16))

(defun db-this-buffer nil "\
Run EDB on the file corresponding to the current buffer.
The current buffer is killed first." (interactive) (byte-code "Б€Вp!Гp!€Д!)‡" [file nil buffer-file-name kill-buffer db-find-file] 4))

(defun db-find-read-in-database (database-filename) (byte-code "	Д
?…
 …* Е@ЖH\"… З@!@…! @A‰€‚ €
*‡" [databases db-databases result database-filename nil db-same-file-p 4 database-clean-data-display-buffers] 5))

(defun database-clean-data-display-buffers (database) (byte-code "	ЖH
…\" З
@!?… И
@\"‰€
A‰€‚ €?ѓ7 Й	ГД#€И	\"‰‚; 	ЖI€*‡" [ddbs database remaining t nil db-databases 7 buffer-name delq db-save-database-no-buffer] 7))

(defun db-revert-database nil "\
Replace the database with the data on disk.
This undoes all changes since the database was last saved." (interactive) (byte-code "Д€ЕЖЗИH\"!…4 pЙК!q€Л	ИHД\"€М ‰€Н	\"€ОПР	!\"€СТ!+‡" [dbc-database database data-display-buffer db-buffer nil yes-or-no-p format "Revert database from file %s? " 4 generate-new-buffer "read-database-file" insert-file-contents read-database-internal-file-layout-maybe read-database-file-helper mapcar (lambda (data-display-buffer) (byte-code "q€Д €ЕБ!€Б‰€ЖБ\"‡" [data-display-buffer nil dbf-this-record-modified-p dbc-index dbc-update-database-modified-p dbf-set-this-field-modified-p db-jump-to-record] 5)) database-clean-data-display-buffers db-message "Reverted database from disk."] 10))

(defun db-save-database (&optional query quietly) "\
Save the database to disk in the default save file.
Any changes to the current record are processed first.
The default save file is the file it was last saved to or read from.
If optional arg QUERY is specified, the user is asked first.
Optional second arg QUIETLY suppresses messages regarding the filename." (interactive) (byte-code "В€ИЙ !p	=ѓ В€КГ!€В€Л\"‚j МЋq€Н!О =?…7 П!`=В€КГ!€В€Л\"…_ p=…_ Н!=…_ О =?…g Р`\"€*)*‡" [target-buffer this-buffer nil t query quietly target-window track-window-point-p get-buffer-create db-data-display-buffer dbf-process-current-record-maybe db-save-database-helper ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 15))

(defun db-save-database-helper (query quietly) (byte-code "ѓ 	?† ЕЖ
ЗHИQ!… Й
КH\"‚: ?…: ЛМ…, Н
!?ѓ8 ОП
ЗH\"‚9 Р\"‡" [dbc-database-modified-p query dbc-database quietly db-mention-filename-on-save-p y-or-n-p "Save database " 1 "? " db-write-database-file 4 db-message "No changes need to be saved%s." database-unnamed-p format " in %s" ""] 9))

(defun db-save-database-no-buffer (database query quietly) (byte-code "БЖ\"*‡" [dbc-index nil dbc-database database query quietly db-save-database-helper] 3))

(defun db-write-database-file (&optional filename quietly) "\
Save the database to disk in file FILENAME; it becomes the default save file.
Any changes to the current record are processed first.
If FILENAME is not specified, the user is prompted for it.
Optional second arg QUIETLY suppresses messages regarding the filename." (interactive) (byte-code "Е€ИА!€	?… ЙКЛ
МH\"!‰€Н	
ОH\"?…, 
О	I€ПРС	!!!€ѓ7 Т	P‚8 УЕ€?…E ФХ\"€Ц
	\"€†R ?…Z ФЧ\")‡" [t filename dbc-database message-filename db-mention-filename-on-save-p nil quietly db-io-error-p dbf-process-current-record-maybe read-file-name format "Save database %s into file: " 1 equal 4 rename-buffer generate-new-buffer-name file-name-nondirectory " to file " "" db-message "Saving database%s..." write-database-file "Saving database%s...done"] 12))

(defun db-toggle-internal-file-layout (&optional arg) "\
Toggle whether the database will be saved in EDB's internal file layout.
With a nonzero prefix argument, set it to use internal file layout.
With a zero prefix argument, set it not to use internal file layout." (interactive "P") (byte-code "В€Г	ѓ ДЕ	!!?‚ ГH?I‡" [dbc-database arg nil 16 zerop prefix-numeric-value] 6))

(defun db-toggle-modifiable-p (&optional arg) "\
Toggle whether the database may be modified by the user.
With a nonzero prefix argument, set it modifiable.
With a zero prefix argument, set it non-modifiable." (interactive "P") (byte-code "Й€	ѓ КЛ	!!?‚ 
МH?
МI€НО !p=ѓ4 П=…1 ?‰‚ РЋq€С!Т =?…M У!`=П=…Z ?‰…t p=…t С!=…t Т =?…| Ф`\"€*)*)‡" [modifiable-p arg dbc-database target-buffer this-buffer dbf-minor-mode buffer-read-only target-window track-window-point-p nil zerop prefix-numeric-value 31 get-buffer-create db-data-display-buffer edit ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 13))

(defmacro dbf-goto-record-internal (&rest record-selector-body) (byte-code "БВГ#‡" [record-selector-body append (progn (db-view-mode) (dbf-process-current-record-maybe nil)) ((setq dbf-this-record-original (link-record dbc-link)) (display-record (dbf-displayed-record) t))] 4))

(put (quote dbf-goto-record-internal) (quote lisp-indent-hook) 0)

(put (quote dbf-goto-record-internal) (quote edebug-form-spec) (quote (&rest form)))

(defun db-jump-to-record (arg &optional respect-omitting) "\
Show the database's ARGth record.
Omitting is ignored unless optional argument RESPECT-OMITTING is specified." (interactive "NJump to record number: ") (byte-code "В€МН !p	=ѓ4 О €ПВ!€Р?\"€СH‰€Тѓ. ‚/ Й\"‚– УЋq€Ф!

Х =?…M Ц
!`=О €ПВ!€Р?\"€СH‰€Тѓn ‚o Й\"…‹ p=…‹ 
Ф!=…‹ 
Х =?…“ Ч
`\"€*)*€Ш …џ Щ ‡" [target-buffer this-buffer nil arg respect-omitting dbf-this-record-original dbc-link dbf-this-record-modified-p dbf-this-record t target-window track-window-point-p get-buffer-create db-data-display-buffer db-view-mode dbf-process-current-record-maybe db-select-record 6 display-record ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point db-summary-buffer-p dbs-synch-summary-with-format] 19))

(defun db-first-record (&optional ignore-omitting) "\
Show the database's first record.
With optional prefix argument, ignores omitting." (interactive "P") (byte-code "В€Г ѓ ДЕ?\"‚ Ж ѓ eb€З ‚ ИЙ!‡" [ignore-omitting t nil db-data-display-buffer-p db-jump-to-record 1 db-summary-buffer-p db-jump-to-point error "db-first-record called in wrong context."] 6))

(defun db-last-record (&optional ignore-omitting) "\
Show the database's last record.
With optional prefix argument, ignores omitting." (interactive "P") (byte-code "Г€Д ѓ ЕЖH	?\"‚! З ѓ db€И ‚! ЙК!‡" [dbc-database ignore-omitting t nil db-data-display-buffer-p db-jump-to-record 3 db-summary-buffer-p db-jump-to-point error "db-last-record called in wrong context"] 6))

(defun db-next-record (arg &optional ignore-omitting markedp) "\
Go to the ARGth next record.
In that record, go to the current field, if any." (interactive "p") (byte-code "Д€Ф …	 Х €ЦЧ !p	=ѓP Ш €ЩД!€Ъ#€	ЫH‰€Ь
ѓ; ‚= М\"€
…F …L Э
!)‚Ж ЮЋq€Я!а =?…i б!`=Ш €ЩД!€Ъ#€	ЫH‰€Ь
ѓЏ ‚‘ М\"€
…љ …  Э
!)…» p=…» Я!=…» а =?…Г в`\"€*)*€Ф …1Ц!p	=ѓЯ ‚!гЋq€Я!а =?…ш б!`=…p=…Я!=…а =?…в`\"€*)*дZ!€е!)‡" [target-buffer this-buffer this-field-index dbf-this-field-index nil arg ignore-omitting markedp dbf-this-record-original dbc-link dbf-this-record-modified-p dbf-this-record t dbf-stay-in-edit-mode-p target-window track-window-point-p index dbs-data-display-buffer dbc-index dbs-index db-summary-buffer-p dbs-synch-format-with-summary get-buffer-create db-data-display-buffer db-view-mode dbf-process-current-record-maybe db-select-next-record 6 display-record db-move-to-field-exact ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) dbs-forward-record dbs-set-index] 31))

(defun db-previous-record (arg &optional ignore-omitting markedp) "\
Go to the ARGth previous record.
In that record, go to the current field, if any." (interactive "p") (byte-code "Г€Д[	
#‡" [arg ignore-omitting markedp nil db-next-record] 4))

(proclaim-inline db-previous-record)

(defun db-next-record-ignore-omitting (arg) "\
Go to the ARGth next record, ignoring omissions.
That is, all records, even those which are omitted, are counted." (interactive "p") (byte-code "В€ГБ\"‡" [arg t nil db-next-record] 3))

(proclaim-inline db-next-record-ignore-omitting)

(defun db-previous-record-ignore-omitting (arg) "\
Go to the ARGth previous record, ignoring omissions.
That is, all records, even those which are omitted, are counted." (interactive "p") (byte-code "Б€В[!‡" [arg nil db-next-record-ignore-omitting] 2))

(proclaim-inline db-previous-record-ignore-omitting)

(defun db-next-marked-record (arg) "\
Go to the ARGth next marked record.
Omitted records are treated according to db-omit-p." (interactive "p") (byte-code "Б€ГБВ#‡" [arg nil t db-next-record] 4))

(proclaim-inline db-next-marked-record)

(defun db-previous-marked-record (arg) "\
Go to the ARGth previous marked record.
Omitted records are treated according to db-omit-p." (interactive "p") (byte-code "Б€В[!‡" [arg nil db-next-marked-record] 2))

(proclaim-inline db-previous-marked-record)

(defun db-set-auto-edit-mode (arg) "\
Set `db-auto-edit-mode' to ARG." (byte-code "	‰€…	 В‡" [db-auto-edit-mode arg nil] 2))

(defun db-toggle-auto-edit-mode (&optional arg) "\
Change whether cursor movement in view mode causes edit mode to be entered.
See variable `db-auto-edit-mode'.
With a nonzero prefix argument, set  db-auto-edit-mode to t.
With a zero prefix argument, set  db-auto-edit-mode to nil." (interactive "P") (byte-code "В€Гѓ ДЕ!!?‚ 	?!‡" [arg db-auto-edit-mode nil db-set-auto-edit-mode zerop prefix-numeric-value] 4))

(defun dbc-set-index (index) (byte-code "	ЗИЙHѓ К‚ ЛЙH$… МHѓ' НОQ‚( )‰‡" [dbc-index index dbc-index-fraction frac dbc-link dbc-database dbc-omit-p format "%s%d/%d" 3 "+" "" 4 "[" "]"] 6))

(defun db-select-next-record (arg &optional ignore-omitting markedp) (interactive "p") (byte-code "М€Н	
… ?Й=†\" О=…\" 
П=&@‰€РA@!€AA…M П‰€AA@СWѓJ ТУ!‚M ТФ!)‡" [link-index-list dbc-database dbc-link dbc-index arg dbc-omit-p ignore-omitting markedp dbc-wraparound-p t last-command this-command nil next-link-and-index delay db-next-record-failed dbc-set-index 0 db-message "First record." "Last record."] 9))

(defun db-select-prev-record (arg &optional ignore-omitting) (interactive "p") (byte-code "В€Г[	\"‡" [arg ignore-omitting nil db-select-next-record] 3))

(proclaim-inline db-select-prev-record)

(defun db-select-first-record (&optional ignore-omitting) (interactive) (byte-code "Е€	ЖH‰€
… ЗH… ?ѓ! И‰€ЙИ!‚$ КИ!‡" [dbc-link dbc-database dbc-omit-p ignore-omitting dbc-index nil 2 4 1 db-select-next-record dbc-set-index] 3))

(defun db-select-last-record (&optional ignore-omitting) (interactive) (byte-code "Ж€	ЗHИ‰€ДЙК\")‡" [dbc-link dbc-database dbc-index dbc-wraparound t ignore-omitting nil 2 1 db-select-next-record -1] 3))

(proclaim-inline db-select-last-record)

(defun db-select-record (arg &optional ignore-omitting) (interactive "nRecord number: ") (byte-code "Г€Д	\"ѓ Е
!€ЖS
\"‚! Г€З €ИЙ	КH#‡" [arg dbc-database ignore-omitting nil database-index-in-range db-select-first-record db-select-next-record beep db-message "Record number %d out of range 1..%d" 3] 9))

(defun db-next-screen-or-record (arg) "\
Go to the ARGth next screenful of this display, or to the ARGth
next record, if this is the last screenful of this display.
If point is in the summary buffer and the data display buffer is not visible,
then move to the next record." (interactive "p") (byte-code "Д€Е ѓ Ж!‚2 З …2 И
!	ѓ. Й КЋЛ	!€Ж!))€М ‚1 Н!)‡" [arg ddb-window dbs-data-display-buffer this-window nil db-data-display-buffer-p dbf-next-screen-or-record db-summary-buffer-p get-buffer-window selected-window ((byte-code "Б!‡" [this-window select-window] 2)) select-window dbs-synch-summary-with-format db-next-record] 10))

(defun dbf-next-screen-or-record (arg) (byte-code "В ѓ Г!‚# ДV… В ?…# ЕБ!€S‰€‚ ‡" [arg nil eob-visible-p db-next-record 0 scroll-up] 7))

(defun db-previous-screen-or-record (arg) "\
Go to the ARGth previous screenful of this display, or to the ARGth
previous record, if this is the first screenful of this display.
If point is in the summary buffer and the data display buffer is not visible,
then move to the previous record." (interactive "p") (byte-code "Д€Е ѓ Ж!‚2 З …2 И
!	ѓ. Й КЋЛ	!€Ж!))€М ‚1 Н!)‡" [arg ddb-window dbs-data-display-buffer this-window nil db-data-display-buffer-p dbf-previous-screen-or-record db-summary-buffer-p get-buffer-window selected-window ((byte-code "Б!‡" [this-window select-window] 2)) select-window dbs-synch-summary-with-format db-previous-record] 10))

(defun dbf-previous-screen-or-record (arg) (byte-code "В ѓ Г!‚+ ДV… В ?…# ЕБ!€S‰€‚ €В …+ eb‡" [arg nil bob-visible-p db-previous-record 0 scroll-down] 7))

(defun db-beginning-of-field-or-record nil "\
Move to the beginning of this field; if at its beginning, to the first field." (interactive) (byte-code "Б€`Uѓ В ‚ Г ‡" [dbf-this-field-beginning-pos nil db-first-field db-beginning-of-field] 3))

(defun db-end-of-field-or-record nil "\
Move to the end of this field; if at its end, to the last field." (interactive) (byte-code "А€`Б Uѓ В ‚ Г ‡" [nil dbf-this-field-end-pos db-last-field db-end-of-field] 4))

(defun db-add-record nil "\
Add a new record to the database immediately before the current record." (interactive) (byte-code "Г€М …
 Н!€О
!ПГ	
$€Р	
#)€T‰€
СЖI€Т €…3 У!…¦ Ф!…F Х!…F …¦ Ц!p		=ѓ_ Ч ‚Ґ ШЋq€У!

Щ =?…z Ъ
!`=Ч …љ p=…љ 
У!=…љ 
Щ =?…ў Ы
`\"€*)*€ЬЭ!€ЮЯ!€а ‡" [dbs-data-display-buffer new-record dbc-database nil db-new-record-function dbc-index t dbf-summary-buffer target-buffer this-buffer target-window track-window-point-p db-summary-buffer-p pop-to-buffer make-default-record db-funcall-maybe-default database-add-record 30 dbf-set-summary-out-of-date-p get-buffer-window bufferp buffer-name get-buffer-create dbs-synch-summary-with-format ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) selected-window window-point set-window-point db-message "Added a new record." db-previous-record 1 db-first-field] 22))

(defun db-delete-record (&optional force) "\
Remove the current record from the database.
With a prefix arg, doesn't verify." (interactive "P") (byte-code "Ж€†	 ЗИ!…% Й	
\"€S‰€… КЕ!€ЛМ!€НО!‡" [force dbc-database dbc-link dbc-index db-delete-record-modifies-database-p t nil y-or-n-p "Delete this record? " database-delete-link dbc-set-database-modified-p db-message "Record deleted." db-next-record 1] 6))

(defun db-copy-record (&optional arg) "\
Insert a copy of the current record in the database immediately after it.
The second of the two records is made the current record.
With a prefix arg, inserts that many copies." (interactive "p") (byte-code "Й€КЛ !p	=ѓ5 МВ!€НV…2 ОПРH!#€СT!€S‰€‚ ‚ ТЋq€У!Ф =?…N Х!`=МВ!€НV…s ОПРH!#€СT!€S‰€‚T …Ќ p=…Ќ У!=…Ќ Ф =?…• Ц`\"€*)*€Ч …Ў Ш €Щ €ЪЫ!‡" [target-buffer this-buffer t arg dbc-link dbc-database dbc-index target-window track-window-point-p nil get-buffer-create db-data-display-buffer dbf-process-current-record-maybe 0 database-add-record copy-sequence 6 dbc-set-index ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point db-summary-buffer-p dbs-synch-summary-with-format force-mode-line-update db-message "Record copied."] 21))

(deflocalvar db-for-output nil "Default database to which to output records.")

(defun db-output-record-to-db (database) "\
Copy the current record to DATABASE.
DATABASE must be read in and compatible with the current database." (interactive (byte-code "ЕБЖЗ
\"\"ѓ ИЙКБГ%\"A‚ ЛМ!€Б)C‡" [db-alist nil db-databases t db-for-output delq mapcar (lambda (database) (byte-code "	=?… В	\"… ГH† ДHB‡" [database dbc-database databases-compatible 1 4] 3)) assoc completing-read "Output record to which database (? for choices): " error "No compatible databases are currently read in!"] 9)) (byte-code "Б€…u Л … М €НО !p=ѓ) ПРH\"‚t СЋq€Т!		У =?…D Ф	!`=
ПРH\"
…i p=…i 	Т!=…i 	У =?…q Х	`\"€*)*‡" [db-alist nil db-databases t db-for-output database target-buffer this-buffer dbc-link target-window track-window-point-p db-summary-buffer-p dbs-synch-format-with-summary get-buffer-create db-data-display-buffer database-add-record 6 ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 15))

(defun db-sort (&optional dont-confirm) "\
Sort the database.  With a prefix arg, don't confirm the sort order." (interactive "P") (byte-code "З€ИЙ !p	=ѓ& КВ!€ѓ  Л!€М ‚# Н!‚t ОЋq€П!Р =?…< С!`=КВ!€ѓO Л!€М ‚R Н!…j p=…j П!=…j Р =?…q Т`\"€*)*‡" [target-buffer this-buffer t dont-confirm dbc-database target-window track-window-point-p nil get-buffer-create db-data-display-buffer dbf-process-current-record-maybe database-sort dbf-finished-sorting database-sort-interface ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 19))

(defun dbf-finished-sorting nil (byte-code "Ж €ЗИ!… Й!… !€И!…  Й!…  …q К!p	
=ѓ5 Л‰‚p МЋ	q€Н	!О =?…K П!`=Л‰…f p	=…f Н	!=…f О =?…m Р`\"€*)*€С €Т ‡" [dbf-summary-buffer target-buffer this-buffer dbs-no-of-records target-window track-window-point-p dbc-compute-index delete-windows-on bufferp buffer-name get-buffer-create -1 ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point dbc-update-database-modified-p force-mode-line-update] 16))

(defun dbc-compute-index nil (byte-code "И
ЙH	КЖ	…; …; =…$ ‰€	КH‰€ЙHT‰€	=…7 И‰€‚ €И,€Л!)‡" [this-index first-link dbc-database maplinks-link maplinks-index maplinks-not-done t dbc-link nil 2 1 dbc-set-index] 3))

(defun db-field-query-replace nil "\
Replace some instances of a value in this field with some other value.
Confirms before each replacement." (interactive) (byte-code "О€?…
 ЭЮ!€
ЯHа\"бв\"!	О
ОООгО!€дHеж!ѓW зийЏ*‚Y *‰
€к
О$€лH
ѓ† змнЏ*‚€ ;ѓ• ‚– о+‰€дHепр\"!ѓѕ зстЏ*‚А *‰€кО$€лHѓн зуфЏ*‚п ;ѓь ‚э о+‰€хц\"€чш!€щ	Ь\".
‡" [dbf-this-field-index old-dbc-index dbc-index displayspec dbf-this-displayspec fsno record-index fieldname dbc-database order-function original-value ov-printed replacement-value rv-printed nil dac-d->a dac-fieldtext vararg-common-1 vararg-common-2 adc-a->d adc-fieldtext adc-result vararg-common-1 vararg-common-2 vararg-common-1 vararg-common-2 vararg-common-1 vararg-common-2 t error "Call this when on a field." 1 fieldnumber->fieldname recordfieldspec-order-function database-recordfieldspec dbf-process-current-record-maybe 12 read-string "Query replace: " err (byte-code "В	\"‡" [vararg-common-1 vararg-common-2 funcall] 3) ((wrong-number-of-arguments (byte-code "Д	ВВ%‡" [vararg-common-1 vararg-common-2 nil record-index funcall] 6)) (error (byte-code "А… В	@	A\"€‚  ‡" [t err signal] 4))) record-check-constraint 11 (byte-code "В	\"‡" [vararg-common-1 vararg-common-2 funcall] 3) ((wrong-number-of-arguments (byte-code "Д	В$‡" [vararg-common-1 vararg-common-2 nil record-index funcall] 5)) (error (byte-code "А… В	@	A\"€‚  ‡" [t err signal] 4))) "<ERROR>" format "Query replace %s with: " (byte-code "В	\"‡" [vararg-common-1 vararg-common-2 funcall] 3) ((wrong-number-of-arguments (byte-code "Д	ВВ%‡" [vararg-common-1 vararg-common-2 nil record-index funcall] 6)) (error (byte-code "А… В	@	A\"€‚  ‡" [t err signal] 4))) (byte-code "В	\"‡" [vararg-common-1 vararg-common-2 funcall] 3) ((wrong-number-of-arguments (byte-code "Д	В$‡" [vararg-common-1 vararg-common-2 nil record-index funcall] 5)) (error (byte-code "А… В	@	A\"€‚  ‡" [t err signal] 4))) maprecords (lambda (record) (byte-code "ОП	
H#U…R Р
Д\"€ОHСТ\"ѓ! Д‚0 У`G\\Д#…0 ФО!b)€О‰€Х!€ЦЧШ	
$!…R Щ
$‡" [order-function original-value record record-index t s dbf-inter-field-text dbf-this-field-index fsno fieldname ov-printed rv-printed replacement-value dbc-database 0 funcall display-record equal "" search-forward match-end db-next-field-internal y-or-n-p format "Replace `%s' with `%s'? " record-set-field-from-index] 13)) db-message "Replacement done." db-jump-to-record] 15))

(defun db-accept-record nil "\
Install the current record in the database; make any changes permanent." (interactive) (byte-code "Б€ВА!‡" [t nil dbf-process-current-record-maybe] 2))

(fset (quote db-commit-record) (quote db-accept-record))

(defun db-search-field (pattern &optional mark) "\
Search for occurrences of PATTERN in the current field of any record.
Finds the first match after the current record; wraps around automatically.
With prefix arg, marks all matches in addition to going to the first one.
If omitting is in effect, omitted records are ignored." (interactive (byte-code "Д ЕЖЗ\"	ѓ 
	H‚ ИЙ!\")D‡" [fieldname dbf-this-field-index dbf-field-search-defaults current-prefix-arg dbf-this-field-name read-string format "Search in %s for: " error "Only call db-search-field when on a field in a data display buffer."] 6)) (byte-code "Щ€ЮЯ\"… аб!€в\"г\"дHе
\"		Щж ЩЩЩз
	I€ѓQ ий#‚W ик#€
лHдШЩ€…ц …ц …Ѓ мH?…Ш †Ќ ?…Л нHH‰€Щ€о	#…Л ?…№ Ш‰€…Л T‰€пШI€=…Ш Щ‰€лHT‰€=…т Щ‰€‚s €Щ-€ѓX=ѓир\"‚Uс €тЩ!€‰€у!€нH‰€фѓ4‚6Ш\"€х!€ѓPц €ич#‚Uиш\"‚^ищ#.‡" [fieldname dbf-this-field-index dbf-field-search-defaults current-prefix-arg pattern pat dbf-this-displayspec pat-display-rep this-record-index recordfieldspec dbc-database this-field-index this-field success success-link success-index matches mark omitp dbc-omit-p first-link maplinks-link maplinks-index maplinks-not-done t nil dbc-link dbf-this-record-original dbf-this-record-modified-p dbf-this-record equal "" error "You didn't enter a pattern for which to search." db-parse-match-pattern db-print-match-pattern 1 database-recordfieldspec dbf-this-field-name 0 db-message "Marking all %s in %s..." "Searching in %s for %s..." 2 4 6 db-match 3 "This record has the only match for %s." db-view-mode dbf-process-current-record-maybe dbc-set-index display-record db-move-to-field-exact dbf-set-summary-out-of-date-p "Searching for %s...marked %s matches." "Searching for %s...found." "Couldn't find a match in %s for %s."] 22))

(if nil (defun db-search (pattern &optional mark) "Search for occurrences of PATTERN in any field of any record.
Finds the first match after the current record; wraps around automatically.
With prefix arg, marks all matches in addition to going to the first one.
If omitting is in effect, omitted records are ignored." (interactive (list (read-string "Search in all fields for: " (aref dbf-field-search-defaults dbf-displayspecs-length)) current-prefix-arg)) (if (equal "" pattern) (error "You didn't enter a pattern for which to search.")) (let* ((pats (vconcat (mapcar (function (lambda (displayspec) (db-parse-match-pattern pattern displayspec))) dbf-displayspecs))) (pat-display-rep pattern) (record-indexes (vconcat (mapcar (function (lambda (displayspec) (displayspec-record-index displayspec))) dbf-displayspecs))) (recordfieldspecs (vconcat (mapcar (function (lambda (record-index) (database-recordfieldspec dbc-database record-index))) record-indexes))) this-record this-field success success-link success-index success-field-index (matches 0)) (aset dbf-field-search-defaults dbf-displayspecs-length pat-display-rep) (if mark (db-message "Marking all %s..." pat-display-rep) (db-message "Searching for %s..." pat-display-rep)) (maplinks-macro (progn (if (or mark (not success)) (progn (setq this-record (link-record maplinks-link)) (db-debug-message "db-search:  this-record = #%d, %s" maplinks-index this-record) (mapfields-macro (progn (db-debug-message "db-search:  this-field = #%d, %s" this-field-index this-field) (if (db-match (aref pats this-field-index) this-field (aref recordfieldspecs this-field-index)) (progn (if (not success) (setq success-link maplinks-link success-index maplinks-index success t success-field-index this-field-index this-field-index field-index-max)) (if mark (progn (setq matches (1+ matches)) (link-set-markedp maplinks-link t)))))) this-record dbc-database))) (if (eq maplinks-link dbc-link) (setq success nil))) dbc-database dbc-omit-p) (if success-index (if (eq dbc-link success-link) (db-message "This record has the only match for %s." pat-display-rep) (progn (dbf-goto-record-internal (setq dbc-link success-link) (dbc-set-index success-index)) (db-move-to-field-exact success-field-index) (if mark (progn (dbf-set-summary-out-of-date-p) (db-message "Searching for %s...marked %s matches." pat-display-rep matches)) (db-message "Searching for %s...found." pat-display-rep)))) (db-message "Couldn't find any match for %s." pat-display-rep)))))

(defun db-search nil "\
Please do not use `db-search', which is unimplemented; use `db-search-field'.
In a future version of EDB, `db-search' will permit searching on all fields
of a record simultaneously." (interactive) (byte-code "А€БВ!‡" [nil error "db-search is unimplemented; use db-search-field instead (M-s from Edit mode)."] 2))

(defun db-isearch-forward nil "\
Like isearch-forward, but maintains the correspondence between the format
and summary buffers." (interactive) (byte-code "А€Б €В ‡" [nil isearch-forward db-jump-to-point] 3))

(defun db-isearch-backward nil "\
Like isearch-backward, but maintains the correspondence between the format
and summary buffers." (interactive) (byte-code "А€Б €В ‡" [nil isearch-backward db-jump-to-point] 3))

(defun db-mark-record (&optional arg) "\
Toggle whether the current record is marked.
With a nonzero prefix argument, set it to be marked.
With a zero prefix argument, set it to be unmarked." (interactive "P") (byte-code "З€ИЙ !p	=ѓ2 
Кѓ ЛМ!!?‚\" 
КH?I€Н
\"€О!€П ‚Њ РЋq€С!Т =?…H У!`=
КѓY ЛМ!!?‚] 
КH?I€Н
\"€О!€П …‚ p=…‚ С!=…‚ Т =?…‰ Ф`\"€*)*‡" [target-buffer this-buffer dbc-link arg dbc-index target-window track-window-point-p nil get-buffer-create db-data-display-buffer 3 zerop prefix-numeric-value dbf-update-summary-item dbc-set-index force-mode-line-update ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 21))

(defun db-omit-record (&optional arg) "\
Change whether the current record is omitted.
With a nonzero prefix argument, set it to be omitted.
With a zero prefix argument, set it to be unomitted." (interactive "P") (byte-code "Й€КЛ !p	=ѓ? 
Мѓ НО!!?‚\" 
МH?I€ѓ/ П
\"‚5 РЖ!€С €Т!€У ‚¬ ФЋq€Х!Ц =?…X Ч!`=
Мѓi НО!!?‚m 
МH?I€ѓz П
\"‚Ђ РЖ!€С €Т!€У …Ў p=…Ў Х!=…Ў Ц =?…© Ш`\"€*)*‡" [target-buffer this-buffer dbc-link arg dbc-omit-p dbc-index t target-window track-window-point-p nil get-buffer-create db-data-display-buffer 4 zerop prefix-numeric-value dbf-update-summary-item dbc-set-omit-p dbf-update-summary-marks dbc-set-index force-mode-line-update ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 25))

(defun db-omit-unmarked-records nil "\
Omit all unmarked records.  Also clears all mark bits and sets `dbc-omit-p'." (interactive) (byte-code "Й€МН !p	=ѓs ГОHПГЙ€…f …f 
…1 РH?…I СHѓD СЙI‚I РГI€ОHT‰€=…b Й‰€‚$ €Й-€ТГ!€У ‚ФЋq€Х!

Ц =?…Њ Ч
!`=ГОHПГЙ€…е …е 
…° РH?…И СHѓГ СЙI‚И РГI€ОHT‰€=…б Й‰€‚Ј €Й-€ТГ!€У …	p=…	
Х!=…	
Ц =?…Ш
`\"€*)*‡" [target-buffer this-buffer omitp t first-link dbc-database maplinks-link maplinks-index maplinks-not-done nil target-window track-window-point-p get-buffer-create db-data-display-buffer 2 1 4 3 dbc-set-omit-p dbf-update-summary-marks ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 15))

(defun db-mark-unomitted-records nil "\
Mark all unomitted records.  Also clears all omit bits." (interactive) (byte-code "И€ЛМ !p	=ѓY НH
ОЗ
…L …L ПHѓ0 ПИI‚4 РЗI€НHT‰€
=…H И‰€‚ €И,€СЗ!€Т ‚а УЋq€Ф!		Х =?…r Ц	!`=
НH
ОЗ
…± …± ПHѓ• ПИI‚™ РЗI€НHT‰€
=…­ И‰€‚ѓ €И,€СЗ!€Т 
…Х p=…Х 	Ф!=…Х 	Х =?…Э Ч	`\"€*)*‡" [target-buffer this-buffer first-link dbc-database maplinks-link maplinks-index maplinks-not-done t nil target-window track-window-point-p get-buffer-create db-data-display-buffer 2 1 4 3 dbc-set-omit-p dbf-update-summary-marks ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 15))

(defun db-unomit-all nil "\
Clear the omit bit of every record." (interactive) (byte-code "И€МН !p	=ѓP ОH
ПЗ
…? …? РИI€ОHT‰€
=…; И‰€‚ €И,€С	!€Т €У ‚О ФЋq€Х!

Ц =?…i Ч
!`=ОH
ПЗ
…› …› РИI€ОHT‰€
=…— И‰€‚z €И,€С	!€Т €У …Г p=…Г 
Х!=…Г 
Ц =?…Л Ш
`\"€*)*‡" [target-buffer this-buffer first-link dbc-database maplinks-link maplinks-index maplinks-not-done t nil dbc-index target-window track-window-point-p get-buffer-create db-data-display-buffer 2 1 4 dbc-set-index force-mode-line-update dbf-update-summary-marks ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 17))

(defun db-unmark-all nil "\
Clear the mark bit of every record." (interactive) (byte-code "И€МН !p	=ѓP ОH
ПЗ
…? …? РИI€ОHT‰€
=…; И‰€‚ €И,€С	!€Т €У ‚О ФЋq€Х!

Ц =?…i Ч
!`=ОH
ПЗ
…› …› РИI€ОHT‰€
=…— И‰€‚z €И,€С	!€Т €У …Г p=…Г 
Х!=…Г 
Ц =?…Л Ш
`\"€*)*‡" [target-buffer this-buffer first-link dbc-database maplinks-link maplinks-index maplinks-not-done t nil dbc-index target-window track-window-point-p get-buffer-create db-data-display-buffer 2 1 3 dbc-set-index force-mode-line-update dbf-update-summary-marks ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 17))

(defun db-omitting-toggle (&optional arg) "\
Change whether omitting is in effect.
With a nonzero prefix argument, turn omitting on.
With a zero prefix argument, turn omitting off.

This does not change the current omit-function, and an omit bit is always
computed for each record, but omit bits have no effect on any operations
if omitting is not in effect." (interactive "P") (byte-code "И€ЙК !p	=ѓ@ Л
ѓ МН
!!?‚ ?!€?ѓ+ О ‚- П €Р €СТѓ; У‚< Ф\"‚® ХЋq€Ц!Ч =?…Y Ш!`=Л
ѓi МН
!!?‚k ?!€?ѓw О ‚y П €Р €СТѓ‡ У‚€ Ф\"…Ј p=…Ј Ц!=…Ј Ч =?…« Щ`\"€*)*‡" [target-buffer this-buffer arg dbc-omit-p dbf-summary-show-omitted-records-p t target-window track-window-point-p nil get-buffer-create db-data-display-buffer dbc-set-omit-p zerop prefix-numeric-value dbf-fill-summary-buffer-and-move-to-proper-record dbf-update-summary-marks force-mode-line-update db-message "Omitting is now %sin effect." "" "not " ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 25))

(defun db-omitting-set nil "\
Set the criteria for automatically determining whether to omit a record.
This isn't implemented yet." (interactive) (byte-code "А€БВ!‡" [nil error "db-omitting-set is not yet implemented."] 2))

(defun db-toggle-show-omitted-records (&optional arg) "\
Toggle whether omitted records are shown in the summary.
With a nonzero prefix argument, show omitted records in the summary.
With a zero prefix argument, don't show omitted records in the summary." (interactive "P") (byte-code "Ж€ЙК !p	=ѓі ѓ ЛМ!!?‚ 
?‰€
ѓ* Н ‚ў О!…7 П!…7 …ў Й!p	=ѓU Жeb€РС!€Т )‚Ў УЋq€Ф!Х =?…n Ц!`=Жeb€РС!€Т )…– p=…– Ф!=…– Х =?…ћ Ч`\"€*)*€
ѓ­ ШЩ!‚° ШЪ!‚”ЫЋq€Ф!Х =?…М Ц!`=ѓЫ ЛМ!!?‚Э 
?‰€
ѓй Н ‚aО!…ц П!…ц …aЙ!p	=ѓЖeb€РС!€Т )‚`ЬЋq€Ф!Х =?…-Ц!`=Жeb€РС!€Т )…Up=…UФ!=…UХ =?…]Ч`\"€*)*€
ѓlШЩ!‚oШЪ!…‰p=…‰Ф!=…‰Х =?…‘Ч`\"€*)*‡" [target-buffer this-buffer dbf-summary-show-omitted-records-p arg dbf-summary-buffer buffer-read-only nil target-window track-window-point-p get-buffer-create db-data-display-buffer zerop prefix-numeric-value dbf-fill-summary-buffer-and-move-to-proper-record bufferp buffer-name delete-matching-lines "^.\\[" dbs-move-to-proper-record ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point db-message "Omitted records will now be shown." "Omitted records will not now be shown." ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3))] 47))

(defun db-report (report-filename &optional markedp) "\
Create a report according to REPORT-FILENAME.
Prefix argument MARKEDP, if non-nil, means report on only marked records.
If omitting is in effect, omitted records are not reported upon.
When called interactively, prompts for REPORT-FILENAME." (interactive "fReport format file: 
P") (byte-code "Ж€СА!€
ЖЖТ‹€У
ЖЖА%ФХЦЧA\"E‰)€
	ШЩЪ!!€Ж‰€Ы €		ЬHЭАЖ€…” …” …^ ЮH?…v ?†l ЯH…v абH\"€ЬHT‰€=…ђ Ж‰€‚P €Ж-€eb)+‡" [t database dbc-database report-format report-function buffer-read-only nil report-filename lasfl omit-p dbc-omit-p omitp first-link maplinks-link maplinks-index maplinks-not-done markedp dbf-process-current-record-maybe ((byte-code "ДЕ!q€Б‰€Ж €З
!€Иed\"‰‡" [buffer-read-only nil report-filename report-format get-buffer-create " *Database work buffer*" erase-buffer insert-file-contents buffer-substring] 6)) format->lines-and-stringform-list lambda (formatted-record) append (insert) switch-to-buffer get-buffer-create "*Database Report*" erase-buffer 2 1 4 3 funcall 6] 11))

(defun data-display-buffer-database (data-display-buffer) (byte-code "Ж	!p
=ѓ ‚I ЗЋq€И!Й =?…& К!`=…? p=…? И!=…? Й =?…F Л`\"€*)*‡" [target-buffer data-display-buffer this-buffer dbc-database target-window track-window-point-p get-buffer-create ((byte-code "Б!…	 В!… q‡" [this-buffer bufferp buffer-name] 3)) get-buffer-window selected-window window-point set-window-point] 10))

(proclaim-inline data-display-buffer-database)

(defun display-current-record (recompute) (byte-code "Дѓ	 	‚
 
\"‡" [dbf-this-record-modified-p dbf-this-record dbf-this-record-original recompute display-record] 3))

(proclaim-inline display-current-record)