;ELC ;;; Compiled by daveg@contents-vnder-pressvre.mit.edu on Wed Dec 27 15:22:10 2006 ;;; from file /afs/sipb.mit.edu/user/daveg/el/bbdb/lisp/bbdb-w3.el ;;; in Emacs version 21.4.1 ;;; with bytecomp version 2.85.4.1 ;;; 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")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@208 Visit URL's stored in `www' fields 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 #[(all) "\304\305\203 \304\306 \"\202\307 C\"\310\211\2036 @\203/\311\312!\204(\313\312\314\"\210\312 @\211!\210 A\211\204\n?\205>\315\316!*\207" [all bbdb-records got-one urls mapcar #[(r) "\301\302\"\207" [r bbdb-record-getprop www] 3] car bbdb-current-record nil fboundp browse-url autoload "browse-url" error "No WWW field!"] 6 (#$ . 641) (list (bbdb-do-all-records-p))]) #@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\306\307!#\210\310\307\"\210\311C!\207" [record bbdb-read-new-record bbdb-invoke-hook bbdb-create-hook bbdb-record-putprop www url-view-url t bbdb-change-record bbdb-display-records] 5 (#$ . 1265) (list (bbdb-completing-read-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 (lambda nil (define-key w3-mode-map ":" 'bbdb-www-grab-homepage))] 3 (#$ . 1673)]) (provide 'bbdb-w3)