;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-gui.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-gui.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\304\305!\210\304\306!\210\301B\307\301!\204\310\311\312!\203!\313\312M\210\202%\313\314M\210\311\315!\2032\316\315M\210\2026\316\314M\210\311\317!\203C\320\317M\210\202G\320\314M\210\311\321!\203T\322\321M\210\202X\322\314M\210\311\323!\203e\324\323M\210\202i\324\314M\210\325\326\n\"\203\327 \330\331#\210\327 \332\333#\210\202\213\327 \334\331#\210\327 \335\336#\210\311\337!\203\230\340\337M\210\202\251\311\341!\203\245\340\341M\210\202\251\340\314M\210\340\342!\204\274\343\344\342!!\204\274\345\342\346\"\210\347\350\351\217\210\340\352!\204\313\344\352!\210\340\353!\204\336\343\344\353!!\204\336\354\355\353\"\210\311\356!\203\353\357\356M\210\202\357\357\360M\210\311\361!\203\374\362\361M\210\202\362\363M\210\311\364!\203 \365\366M\210\202\365\367M\210\311\370!\203\371\370M\210\202\"\371\372M\210\311\373!\203/\374\373M\210\2023\374\375M\210\311\376!\203@\377\376M\210\202F\377\201@M\210\311\201A!\203Y\201B\201AM\210\202_\201B\314M\210\311\201C!\203r\201D\201CM\210\202z\201D\201EM\210\311\201F!\203\215\201G\201FM\210\202\225\201G\201HM\210\311\201I!\203\250\201J\201IM\210\202\260\201J\201KM\210\311\201L!\203\303\201M\201LM\210\202\313\201M\201NM\210\311\201O!\203\336\201P\201OM\210\202\344\201P\314M\210\311\201Q!\203\367\201R\201QM\210\202\375\201R\314M\210\310\207" [current-load-list scrollbar-height emacs-version bbdb-mode-map require bbdb bbdb-com boundp nil fboundp set-specifier bbdb-set-specifier ignore make-glyph bbdb-make-glyph set-glyph-face bbdb-set-glyph-face highlight-headers-x-face bbdb-highlight-headers-x-face highlight-headers-x-face-to-pixmap bbdb-highlight-headers-x-face-to-pixmap string-match "XEmacs\\|Lucid" define-key button3 bbdb-menu button2 #[(e) "\301!\210\302\303!\207" [e mouse-set-point bbdb-toggle-records-display-layout 0] 2 nil "e"] [mouse-3] [mouse-2] #[(e) "\301!\210\302\303!\207" [e mouse-set-point bbdb-toggle-records-display-layout 0] 2 nil "e"] find-face bbdb-find-face internal-find-face bbdb-name face-differs-from-default-p make-face set-face-underline-p t data (byte-code "\300\301!\204\302\303\301!!\204\304\301!\210\300\207" [bbdb-find-face bbdb-company face-differs-from-default-p make-face make-face-italic] 3) ((error)) bbdb-field-value bbdb-field-name copy-face bold make-extent bbdb-make-extent make-overlay delete-extent bbdb-delete-extent delete-overlay mapcar-extents bbdb-list-extents (macro . #[nil "\300\207" [(mapcar-extents 'identity)] 1]) #[nil "\301 \211@A\244)\207" [o overlay-lists] 3] set-extent-property bbdb-set-extent-property #[(e p v) "\303=\203 \203\304\n\305\303#\210\202\304\n\305\306#\210\304\n #\207" [p v e highlight overlay-put mouse-face nil] 4] extent-property bbdb-extent-property overlay-get extent-at bbdb-extent-at #[(pos buf tag) "\306!\307\211 @\2038 @\310\f!\2031\311\f \"\2031\n\203*\n\311\f\312\"V\2031\f\311\f\312\" A)\202 +\207" [pos retval minpri o x tag overlays-at nil overlayp overlay-get priority] 4 "NOT FULL XEMACS IMPLEMENTATION"] highlight-extent bbdb-highlight-extent extent-start-position bbdb-extent-start-position overlay-start extent-end-position bbdb-extent-end-position overlay-end extent-face bbdb-extent-face #[(extent) "\301\302\"\207" [extent overlay-get face] 3] set-extent-face bbdb-set-extent-face #[(extent face) "\302\301 #\207" [extent face overlay-put] 4 "set the face for an overlay"] set-extent-begin-glyph bbdb-set-extent-begin-glyph set-extent-end-glyph bbdb-set-extent-end-glyph] 4) (defalias 'bbdb-fontify-buffer #[nil "\212q\210\306\307!\203\310 p\311B\"\210\312\313\314 \"\210\n\315\211\211\211\211\211\211+,-\211.\205I.@@-.@A@\316=\211?\205H\317-\320\"\321\322.@8!,\322.A@8\206]dS+\323\324,+\"\211\325\316#\210\323 \326\327#\210\323 \330\331#\210,\332-!G\\-\331H\203\220\333\f\331\\\334\",b\210\335\336\f\316#\203\276\324`\f\"\323 \326\327#\210\337 \340\"\210\323 \325\316#\210\323 \330\322#\210\341u\210\202\301\fb\210\324,`\"\323 \326\327#\210\337 \342\"\210\323 \330\322#\210\323 \325\316#\210\203\351\343 \"\210\344y\210`+W\203?\345\315w\210`\346\347!\203\324\f\311\225\"\337 \350\"\210\323 \330\322#\210\323 \326\327#\210\344y\210\346\351!\204\324\f`S\"\323 \326\327#\210\337 \352\"\210\323 \330\322#\210\323 \325\316#\210\202\354.A\211.\2040\315. \207" [bbdb-buffer-name scrollbar-height bbdb-records e p elided-p featurep scrollbar bbdb-set-specifier 0 mapcar #[(o) "\205\301\302\"\303=\205\304!\207" [o bbdb-extent-property data bbdb bbdb-delete-extent] 3] bbdb-list-extents nil t bbdb-record-getprop face marker-position 2 bbdb-set-extent-property bbdb-make-extent highlight data bbdb priority 3 bbdb-record-name next-single-property-change bbdb-field search-forward " - " bbdb-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]) (byte-code "\301B\302\301!\204\303\304\305\"\301\207" [current-load-list vm-xface-cache boundp make-vector 29 0] 3) #@142 Process a face property of a record and honour it. Not done for GNU Emacs just yet, since it doesn't have image support as of GNU Emacs 20.7 (defalias 'bbdb-hack-x-face #[(face extent) "\304\305!\203 \306\307! \204\310\311!\205\230\312\313\"\205\230\314 \315\" \205\230\312\313\"\2032\316\317\320\217\210\202\321\322!\203W\323 @\n\"\210\324\n\325\"\211\203S\326\n\325\327#\210\326\n\330 #\210)\202\321\331!\203\212\332\333!q\210\334p!\210\335 \210 @c\210\336\n\327\"\210\337\n\340ed\"\"\210\335 \210) A\211\203\341\342\n!\343\n!\"\326\n\316\344#\210\202\207" [emacs-version face extent b boundp highlight-headers-hack-x-face-p intern "highlight-headers-hack-x-face-p" featurep xemacs string-match "^21\\." bbdb-split "\n" data (byte-code "\305@P\306 \n\"\307\310!\204\311\310!\210\312\310\313\"\210\314\310\315\"\210\316 !\203* J\202= \317\320\321\322 #C!L\210 J\323 \310\"\210\324\f\310\325#\210\326\f \"\210*\306\207" [face h vm-xface-cache g extent "X-Face: " intern bbdb-find-face vm-xface make-face set-face-background "white" set-face-foreground "black" boundp bbdb-make-glyph vector xface :data bbdb-set-glyph-face bbdb-set-extent-property t bbdb-set-extent-begin-glyph] 6) ((error)) fboundp highlight-headers-x-face bbdb-highlight-headers-x-face bbdb-extent-property begin-glyph bbdb-set-extent-property nil end-glyph highlight-headers-x-face-to-pixmap get-buffer-create " *tmp*" buffer-disable-undo erase-buffer bbdb-set-extent-begin-glyph bbdb-set-extent-end-glyph bbdb-highlight-headers-x-face-to-pixmap bbdb-make-extent bbdb-extent-start-position bbdb-extent-end-position bbdb] 6 (#$ . 5772)]) #@70 User defined menu entries which should be appended to the BBDB menu. (defvar bbdb-user-menu-commands nil (#$ . 7418)) (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) "\303\304\305\306\307r\310 q\210\205\311\312\313 !!!\212\314\213+\"\"B\207" [bbdb-debug bbdb-file 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")) bbdb-buffer get-buffer-window buffer-name get-buffer ((byte-code "\203\302!\210 \207" [w bbdb-propnames select-window] 2))] 9]) (defalias 'build-bbdb-menu #[(record field) "\304\305\306\307\310\311\312\313\314\257\2056\315\316\317!\320Q\315\321\322\323D\324#\325 \236A@\326=?\2052\327\330\331\"\2052\332\333\334\257\205>\335!C\336H\205H\337!C\205P\340!C\n\205Z\315\341\n\"B &\"\207" [record bbdb-records field bbdb-user-menu-commands delete nil append ("bbdb-menu" "Global BBDB Commands" "-----") ["Save BBDB" bbdb-save-db t] ["Toggle All Records Display Layout" bbdb-toggle-all-records-display-layout t] ["Finger All Records" (bbdb-finger (mapcar 'car bbdb-records)) t] ["BBDB Manual" bbdb-info t] ["BBDB Quit" bbdb-bury-buffer t] "-----" "Commands for record \"" bbdb-record-name "\":" vector "Delete Record" bbdb-delete-current-record t ["Toggle Records Display Layout" bbdb-toggle-records-display-layout t] full-multi-line bbdb-display-layout-get-option multi-line omit ["Fully Display Record" bbdb-display-record-completely 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] 13]) (byte-code "\300\301!\203 \302\301M\210\202\303\304M\210\302\305M\210\300\207" [fboundp popup-menu bbdb-popup bbdb-desc-to-menu #[(desc) "\305@!\306A!\307\310\211@\211\203b\311\312\313 \"! T\n;\2032\314\f\315 !\nC#\210\202[\316\n!\203I\314\f\315 !\n\307H\n\317HB#\210\202[\n<\203[\314\f\315 !\n@\320\n!B#\210A\211\202\f-\207" [desc elt-name elt txtcount map make-sparse-keymap reverse 0 nil intern format "fake%d" define-key vector vectorp 1 bbdb-desc-to-menu] 7] #[(desc &optional event) "\304!\305\306\307\n\"\211\205.\310\n\311 !\"\312\313!\210 \205-\314 !\203*\315 !\202-\316 !)*\207" [desc result map command bbdb-desc-to-menu nil x-popup-menu t lookup-key vconcat message "" commandp command-execute eval] 5]] 2) (defalias 'bbdb-menu #[(e) "\301!\210\302\303\213!\207" [e mouse-set-point bbdb-popup ((byte-code "\212\304`p\305#\206\f\306\307!\310\211\211\311 \312\"\313=\204 \306\314!\210\315 \316\"\210\317 \320`\321\"\322\n \"-\207" [face field record extent bbdb-extent-at highlight error "" nil bbdb-extent-property data bbdb "not a bbdb extent" bbdb-highlight-extent t bbdb-current-record get-text-property bbdb-field build-bbdb-menu] 4))] 2 nil "e"]) (provide 'bbdb-gui)