;ELC ;;; Compiled by zaurus@localhost.localdomain on Fri Dec 18 23:37:00 2009 ;;; from file /home/zaurus/elisp/org-bibtex.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 2.85 ;;; 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 "`org-bibtex.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\301B\304\301!\204\305\306\307\310\"\210\311\312\313\"\207" [current-load-list description require org boundp nil org-add-link-type "bibtex" org-bibtex-open add-hook org-store-link-functions org-bibtex-store-link] 3) #@39 Visit the bibliography entry on PATH. (defalias 'org-bibtex-open #[(path) "\302\303\"\205 \304\305\"\306\211\224O\307\310\311 $*\207" [path search string-match "::\\(.+\\)\\'" match-string 1 0 org-open-file t nil] 5 (#$ . 857)]) #@33 Store a link to a BibTeX entry. (defalias 'org-bibtex-store-link #[nil "\306=\205\352\307 \310\311\n!\312 R\313\314\212\315 \210\316 )\"\317\320\321\322\f\"A\323\321\324\f\"A\206-\325\326\321\327\f\"A\2067\330\331\321\332\f\"A\206A\333\334\321\335\f\"A\206K\336\337\321\340\f\"A\206U\341\342\321\343\f\"A\206_\344\345\321\346\f\"A\206i\347\350\321\351\f\"A\206s\352\353\321\354\f\"A\206}\355\356\321\357\f\"A\206\207\360\361\321\362\f\"A\206\221\363\364\321\365\f\"A\206\233\366\367\321\370\f\"A\206\245\371\372\321\373\f\"A\206\257\374\375\321\376\f\"A\206\271\377\201@\321\201A\f\"A\206\311\201B\201C\321\201D\f\"A\206\331\201E\201F\201G\201H \201I &*+\207" [major-mode search buffer-file-name link entry description bibtex-mode org-create-file-search-in-bibtex "file:" abbreviate-file-name "::" mapcar #[(c) "\301\302A\"\203@\303\304A\"B\207\207" [c string-match "^\\(?:{\\|\"\\)\\(.*\\)\\(?:}\\|\"\\)$" match-string 1] 4] bibtex-beginning-of-entry bibtex-parse-entry org-store-link-props :key assoc "=key=" :author "author" "[no author]" :editor "editor" "[no editor]" :title "title" "[no title]" :booktitle "booktitle" "[no booktitle]" :journal "journal" "[no journal]" :publisher "publisher" "[no publisher]" :pages "pages" "[no pages]" :url "url" "[no url]" :year "year" "[no year]" :month "month" "[no month]" :address "address" "[no address]" :volume "volume" "[no volume]" :number "number" "[no number]" :annote "annote" "[no annotation]" :series "series" "[no series]" :abstract "abstract" "[no abstract]" :btype "=type=" "[no type]" :type "bibtex" :link :description] 43 (#$ . 1099)]) #@71 Create the search string and description for a BibTeX database entry. (defalias 'org-create-file-search-in-bibtex #[nil "\306\211\307\310\311\312\313\314\313\307\315\316\317 .\f\212\320 \210\321\322\323 \"A)\207" [bibtex-autokey-year-title-separator bibtex-autokey-titleword-length bibtex-autokey-titleword-case-convert-function bibtex-autokey-titleword-separator bibtex-autokey-titlewords bibtex-autokey-name-year-separator 1 identity " & " " et al." 4 " " 3 infty ": " bibtex-generate-autokey bibtex-beginning-of-entry assoc "=key=" bibtex-parse-entry bibtex-autokey-year-length bibtex-autokey-additional-names bibtex-autokey-name-separator bibtex-autokey-name-case-convert-function bibtex-autokey-names-stretch bibtex-autokey-names description] 12 (#$ . 2740)]) #@62 Find the link search string S as a key for a database entry. (defalias 'org-execute-file-search-in-bibtex #[(s) "\306=\205@eb\210\307\310\311 !\312Q\313\314#\203\315\224b\210\315\224\203;\n\316\232\203;p`\317 !\210\212\fq\210 b\210\320 \210+\202?\321\315!\210\314\207" [major-mode s current-prefix-arg p b org-window-config-before-follow-link bibtex-mode re-search-forward "@[a-zA-Z]+[ \n]*{[ \n]*" regexp-quote "[ \n]*," nil t 0 (16) set-window-configuration bibtex-url recenter] 4 (#$ . 3531)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-execute-file-search-functions org-execute-file-search-in-bibtex provide org-bibtex] 3)