;ELC   
;;; Compiled by nelhage@localhost.localdomain on Tue Dec 13 12:19:28 2005
;;; from file /home/nelhage/Desktop/bbdb-2.34/lisp/bbdb-w3.el
;;; in Emacs version 22.0.50.7
;;; 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 "\300\301!\210\300\302!\207" [require bbdb-com browse-url] 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 (#$ . 669) (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 (#$ . 1107) (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 (#$ . 1605)])
(provide 'bbdb-w3)