;ELC   
;;; Compiled by proclus@darwintel on Tue Jan  1 13:53:26 2008
;;; from file /mnt/gmirror/ports/databases/bbdb/work/bbdb-2.34/lisp/bbdb-w3.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 1.1.1.4
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`bbdb-w3.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\301\303!\210\304B\301\207" [current-load-list require bbdb-com browse-url w3-mode-map] 2)
#@210 Visit URLs stored in the `www' field of the current record.
\[bbdb-apply-next-command-to-all-records]\[bbdb-www] means to try all records currently visible.
Non-interactively, do all records if arg is nonnil.
(defalias 'bbdb-www #[(rec &optional which) "\302\303\304\305\306	#\"!\207" [rec which browse-url read-string "fetch: " bbdb-get-field www] 7 (#$ . 750) (list (bbdb-get-record "Visit (WWW): ") (or current-prefix-arg 0))])
#@56 Grab the current URL and store it in the bbdb database
(defalias 'bbdb-www-grab-homepage #[(record) "\204\f \301 \302\303\"\210\304\305\"\203$ \306\305\304\305\"\307\310\311!Q#\210\202, \306\305\310\311!#\210\312\311\"\210\313C!\207" [record bbdb-read-new-record bbdb-invoke-hook bbdb-create-hook bbdb-record-getprop www bbdb-record-putprop "," url-view-url t bbdb-change-record bbdb-display-records] 7 (#$ . 1188) (list (bbdb-completing-read-one-record "Add WWW homepage for: "))])
#@42 Call this function to hook BBDB into W3.
(defalias 'bbdb-insinuate-w3 #[nil "\300\301\302\"\207" [add-hook w3-mode-hook #[nil "\301\302\303#\207" [w3-mode-map define-key ":" bbdb-www-grab-homepage] 4]] 3 (#$ . 1686)])
(provide 'bbdb-w3)