;ELC   
;;; compiled by amu@mit.edu on Fri May 16 19:37:09 1997
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-print.el
;;; emacs version 19.30.1.
;;; 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.29")))
    (error "`bbdb-print.el' was compiled for Emacs 19.29 or later"))


(byte-code "!!\f#" [require bbdb bbdb-com define-key bbdb-mode-map "P" bbdb-print] 4)
#@52 *Default file name for printouts of BBDB database.
(defvar bbdb-print-file-name "~/bbdb.tex" (#$ . -587))
#@172 *Name of file containing TeX formatting commands
for printing BBDB databases.  If this filename is not absolute, the file must
be located somewhere that TeX will find it.
(defvar bbdb-print-format-file-name "bbdb-print.tex" (#$ . -700))
#@97 *List of fields NOT to print
when printing an address list.  See also bbdb-print-no-bare-names.
(defvar bbdb-print-elide (quote (tex-name aka mail-alias nic nic-updated)) (#$ . -943))
#@158 *If nonnil, `bare names' will not be printed.
A name is bare if the record contains no non-elided fields other than
name and company (see bbdb-print-elide).
(defvar bbdb-print-no-bare-names t (#$ . -1134))
#@69 *TeX statements to include at the beginning of the bbdb-print file.
(defvar bbdb-print-prolog (concat "%%%% ====== Phone/Address list in -*-TeX-*- Format =====\n" "%%%%        produced by bbdb-print, version 2.3\n" "\\input " bbdb-print-format-file-name "\n\n") (#$ . -1346))
#@63 *TeX statements to include at the end of the bbdb-print file.
(defvar bbdb-print-epilog "\\vfill\\byecolumns\\bye\n" (#$ . -1628))
#@33 Print the selected BBDB entries
(defalias 'bbdb-print #[(to-file) "	!\fq\n!ed|- @@\"A eb\ncdbceb*" [expand-file-name to-file bbdb-print-file-name t bbdb-buffer-name bbdb-records records current-letter find-file bbdb-print-format-record bbdb-print-prolog bbdb-print-epilog] 4 (#$ . 1765) (list (read-file-name "Print To File: " bbdb-print-file-name))])
#@383 Insert the bbdb RECORD in TeX format.
Optional CURRENT-LETTER is the section we're in -- if this is non-nil and
the first letter of the sortkey of the record differs from it, a new section
heading will be output (an arg of t will always produce a heading).
The new current-letter is the return value of this function.
Someday, optional third arg BRIEF will produce one-line format.
(defalias 'bbdb-print-format-record #[(record &optional current-letter brief) " HH !)	!PO	?> => 	== 	>?)N \"N !!	?m =m 	=l 	>?)t H	? = 	= 	>?) H	? = 	= 	>?) H	? = 	= 	>?) HH `!\"#\n#\n!\"c\"c--!\"c\\@H@!*+\"+\"!*!#cA*-@!0110#1̉O1̕OQ1̕\\0k\"1\"c*@7\"7H\"7H\"7H\"7H7H?7H?7H\"7!!\"c)A ;  BC  c @>@	?(=(	='	>?)Y\">@=D>A!\"cY@ ӁA >@!!>A!#c) A \"p!`|yB c##.\n" [bbdb-debug t debug-on-error record 8 3 error "plus ungood: tex formatting deleted record" bbdb-print-elide bbdb-elided-display bbdb-record-sortkey "?" 0 1 first-letter name field bbdb-record-getprop tex-name bbdb-print-tex-quote bbdb-record-name company comp net 6 phone 4 phones address 5 addrs 7 notes begin bare current-letter format "\\separator{%s}\n\n" "\\beginrecord\n\\name{%s}\n" "" "\\comp{%s}\n" bbdb-phone-string number place nil "\\phone{%s%s}\n" bbdb-print-if-not-blank ": " start net-addr string-match "\\." ".\\-" 2 "\\email{%s}\n" addr "\\address{%s}\n" "\\\\\n" ", " " " bbdb-address-zip-string "\\\\" thisnote "\\notes{%s}\n" "\\note{%s}{%s}\n" symbol-name "\\endrecord\n\n"] 12 (#$ . 2161)])
#@166 Quote any unquoted TeX special characters that appear in STRING.
In other words, # alone will be replaced by #, but 0will be left for 
TeX to process as an accent.
(defalias 'bbdb-print-tex-quote #[(string) "m !qed|cebmj !% ! !: `Sf=: ! !O `Sf=O ! !d `Sf=d ! u  )" [string get-buffer-create " bbdb-print-tex-quote" looking-at "[<>=]+" replace-match "$\\&$" "[#$%&~_]" 92 "\\\\\\&" "[{}]" "$\\\\\\&$" "\\^" "\\\\^{ }" 1 buffer-string] 2 (#$ . 4005)])
#@157 If STRING is not null, then return it concatenated
with rest of arguments.  If it is null, then all arguments are 
ignored and the null string is returned.
(defalias 'bbdb-print-if-not-blank #[(string &rest more) "\n \f \f#" [string "" apply concat more] 4 (#$ . 4518)])
#@313 Display all entries in the bbdb database whose phone numbers match
the regexp STRING.  Matches against the formatted version of the phone number,
so that, eg, `(212)' will match only people who have a phone number in the 212
area code.  If STRING is null, will match all entries that have a phone
number listed.
(defalias 'bbdb-phone #[(string elidep) " =?\f \n 	X 	@\nH\fN \f@!\"E \nBŉ\f( \fA\f+ *	A	 +!)" [elidep 0 bbdb-elided-display bbdb-display-records bbdb-records nil bbdb-case-fold-search case-fold-search matches records record 4 phones string-match string bbdb-phone-string] 6 (#$ . 4808) "sRegular Expression: \nP"])
(provide (quote bbdb-print))
