;ELC ;;; Compiled by daveg@contents-vnder-pressvre.mit.edu on Wed Dec 27 15:22:09 2006 ;;; from file /afs/sipb.mit.edu/user/daveg/el/bbdb/lisp/bbdb-xemacs.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-xemacs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303\"\204 \304\305!\210\306\307!\210\306\310!\210\311 \312\313#\210\314\315!\204,\316\317\315!!\204,\320\315\321\"\210\314\322!\204>\316\317\322!!\204>\323\322!\210\314\324!\204H\317\324!\210\314\325!\204[\316\317\325!!\204[\326\327\325\"\210\302\207" [emacs-version bbdb-mode-map string-match "XEmacs\\|Lucid" error "This file only works in XEmacs." require bbdb bbdb-com define-key button3 bbdb-menu find-face bbdb-name face-differs-from-default-p make-face set-face-underline-p t bbdb-company make-face-italic bbdb-field-value bbdb-field-name copy-face bold] 4) (defalias 'bbdb-fontify-buffer #[nil "\212q\210\306\307!\203\310\311!\203\307 p\312B\"\210\313\314ped\315%\210\n\315\211\211\211\211\211\211()*\211+\2054+@@*+@A@\316=\211?\205P\317*\320\"\321\322+@8!)\322+A@8\206edS(\323\324)(\"\211\325\316#\210\323 \326\327#\210)b\210 \203\216\330\331!\210\332\315x\210\202\221\315\210`)b\210\333\334\f\316#\203\273\324`\f\"\323 \326\327#\210\335 \336\"\210\323 \325\316#\210\337u\210\202\276\fb\210\324)`\"\323 \326\327#\210\335 \340\"\210\323 \325\316#\210\203\340\341 \"\210\342y\210`(W\203*\332\315w\210`\343\344!\203\324\f\312\225\"\335 \345\"\210\323 \326\327#\210\342y\210\343\346!\204\324\f`S\"\323 \326\327#\210\335 \347\"\210\323 \325\316#\210\202\343+A\211+\2048\315. \207" [bbdb-buffer-name scrollbar-height bbdb-records e p elided-p fboundp set-specifier featurep scrollbar 0 map-extents #[(x y) "\301\302\"\303=\205\f\304!\207" [x extent-property data bbdb delete-extent] 3] nil t bbdb-record-getprop face marker-position 2 set-extent-property make-extent highlight data bbdb move-to-column 48 " " search-forward " - " set-extent-face bbdb-company -3 bbdb-name bbdb-hack-x-face 1 looking-at "[^:\n]+:" bbdb-field-name "^\\( \\| \\)" bbdb-field-value end start record rest] 9]) (defalias 'bbdb-hack-x-face #[(face extent) "\304\300!\205s\205s\305 \306\" \205s\307\310!\2038\310 @\n\"\210\311\n\312\"\211\2034\313\n\312\314#\210\313\n\315 #\210)\202Z\212\316\317!q\210\320p!\210\321 \210 @c\210\322\n\314\"\210\323\n\324ed\"\"\210\321 \210) A\211\203\325\326\n!\327\n!\"\313\n\330\331#\210\202\207" [highlight-headers-hack-x-face-p face extent b boundp bbdb-split "\n" fboundp highlight-headers-x-face extent-property begin-glyph set-extent-property nil end-glyph get-buffer-create " *tmp*" buffer-disable-undo erase-buffer set-extent-begin-glyph set-extent-end-glyph highlight-headers-x-face-to-pixmap make-extent extent-start-position extent-end-position data bbdb] 6]) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list global-bbdb-menu-commands boundp (["Save BBDB" bbdb-save-db t] ["Elide All Records" bbdb-elide-record t] ["Finger All Records" (bbdb-finger (mapcar 'car bbdb-records)) t] ["BBDB Manual" bbdb-info t] ["BBDB Quit" bbdb-bury-buffer t])] 2) (defalias 'build-bbdb-finger-menu #[(record) "\302!\211A\203\303\304\305 \"\306\307\310\311\312E\313#D\244B\202)\307\314 @P\311 @E\313#)\207" [record addrs bbdb-record-finger-host "Finger..." mapcar #[(addr) "\302\303 E\304#\207" [addr record vector bbdb-finger t] 5] "----" vector "Finger all addresses" bbdb-finger '(4) t "Finger "] 9]) (defalias 'build-bbdb-sendmail-menu #[(record) "\302H\211A\203\303\304\305 \"B\202 \306\307 @P\310\311 @\"D\312#)\207" [record addrs 6 "Send Mail..." mapcar #[(addr) "\302\303\304 \"D\305#\207" [addr record vector bbdb-send-mail-internal bbdb-dwim-net-address t] 6] vector "Send mail to " bbdb-send-mail-internal bbdb-dwim-net-address t] 7]) (defalias 'build-bbdb-field-menu #[(record field) "@\302 \303=\203#\304\305A@:\203A@@\202A@!\306Q\202Z \307=\203-\310\202Z \311=\2037\312\202Z \313=\203A\314\202Z \315=\203K\316\202Z\304A@\317H\320\321\305 !!\322\260P\323\324E \325>?\205g\326C\244 \327=\205\330\331\332A@!P\333\334D\335E\336#C\244)\207" [field type "Commands for " property "\"" symbol-name "\" field:" name "Name field:" company "Company field:" net "Network Addresses field:" aka "Alternate Names field:" 0 "\" " capitalize " field:" "-----" ["Edit Field" bbdb-edit-current-field t] (name company) ["Delete Field" bbdb-delete-current-field-or-record t] phone vector "Dial " bbdb-phone-string bbdb-dial quote nil t] 7]) (defalias 'build-bbdb-insert-field-menu #[(record) "\305\306\307\310\311\212p\312\216 \203\313 !\203 \202\314\n\315\"\211q\210 \205+\316\313\317\n!!!\212\320\213-\"\"B\207" [--bbdb-obuf-- bbdb-buffer bbdb-file bbdb-debug w "Insert New Field..." mapcar #[(field) "@\303\230\203 \304\202\305@!\306@\307\310 D\311\310 DDE \312=\203)\n\313H\206M \304=\2035\n\314H\206M \315=\203A\316\n!\206M\n\317H:\205M \n\317H\236?#)\207" [field type record "AKA" aka intern vector bbdb-insert-new-field quote bbdb-prompt-for-new-field-value net 6 2 notes bbdb-record-notes 7] 7] append (("phone") ("address") ("net") ("AKA") ("notes")) ((set-buffer --bbdb-obuf--)) buffer-name find-file-noselect nowarn get-buffer-window get-buffer ((byte-code "\203\302!\210 \207" [w bbdb-propnames select-window] 2))] 9]) (defalias 'build-bbdb-menu #[(record field) "\304\305 \205'\306\307\310 !\311Q\306\312\313\314 D\315# \n\236A@\203\"\316\202#\317\320\321\257 \205/\322 !C \323H\2059\324 !C \205A\325 !C \205K\306\326 \"B&\207" [global-bbdb-menu-commands record bbdb-records field append ("bbdb-menu" "Global BBDB Commands" "-----") "-----" "Commands for record \"" bbdb-record-name "\":" vector "Delete Record" bbdb-delete-current-record t ["Unelide Record" bbdb-elide-record t] ["Elide Record" bbdb-elide-record t] ["Omit Record" bbdb-omit-record t] ["Refile (Merge) Record" bbdb-refile-record t] build-bbdb-finger-menu 6 build-bbdb-sendmail-menu build-bbdb-insert-field-menu build-bbdb-field-menu] 11]) (defalias 'bbdb-menu #[(e) "\301!\210\302\303!\210\304 \210\305\306\213!\207" [e mouse-set-point require bbdb-com beginning-of-line popup-menu ((byte-code "\212\305!\210\306`p\307#\206\310\311!\312\211\211\313\f\314\"\315=\204$\310\316!\210\317\f\320\"\210\321\f!b\210\322 \210\323 \324\f!\211\325>\203C\326 \202R \327=\203Q\330\326 AB\202R\312\331 \n\"-\207" [e face field record extent mouse-set-point extent-at highlight error "" nil extent-property data bbdb "not a bbdb extent" highlight-extent t extent-start-position beginning-of-line bbdb-current-record extent-face (bbdb-name bbdb-field-value bbdb-field-name) bbdb-current-field bbdb-company company build-bbdb-menu] 5))] 2 nil "e"]) (add-hook 'bbdb-list-hook 'bbdb-fontify-buffer) #@248 Wrapper for display-completion-list. Allows callbacks on XEmacs display-completion-list is called with `:activate-callback CALLBACK' if CALLBACK is non-nil. `:user-data DATA' is also used if DATA is non-nil. Neither are used if CALLBACK is nil. (defalias 'bbdb-xemacs-display-completion-list #[(list &optional callback data) "\203 \203\303\n\304\305 %\207\203\303\n\304#\207\303\n!\207" [callback data list display-completion-list :activate-callback :user-data] 6 (#$ . 7248)]) (provide 'bbdb-xemacs)