;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\210\310\323\312\313\324DD\325\316\326%\210\310\327\312\313\330DD\331\316\317%\210\310\332\312\313\333DD\334\316\335%\210\310\336\312\313\337DD\340\316\341%\210\310\342\312\313\343DD\344\316\345%\210\310\346\312\313\347DD\350\316\317%\210\310\351\312\313\352DD\353\316\335%\210\310\354\312\313\355DD\356\316\335%\210\310\357\312\313\360DD\361\316\335%\210\310\362\312\313\363DD\364\316\365%\210\310\366\312\313\367DD\370\316\317%\210\310\371\312\313\372DD\373\316\374%\207" [require tex latex custom-declare-group bib-cite nil "bib-cite, LaTeX minor-mode to display \\cite, \\ref and \\label commands." :group custom-declare-variable bib-cite-use-reftex-view-crossref funcall function #[0 "\300\207" [nil] 1] "Non-nil means, RefTeX will be used to find cross references.\nWhen this variable is non-nil, both `bib-find' and `bib-display' will\ncall a function in RefTeX to find or display the cross reference of a\n\\ref or \\cite macro at point." :type boolean bib-novice #[0 "\300\207" [t] 1] "Give advice to novice users about what commands to use next." bib-switch-to-buffer-function #[0 "\300\207" [switch-to-buffer] 1] "Function used to select buffers if they differ from the original.\nYou may use `switch-to-buffer' `switch-to-buffer-other-window' or\n`switch-to-buffer-other-frame'." (choice (function-item switch-to-buffer) (function-item switch-to-buffer-other-window) (function-item switch-to-buffer-other-frame)) bib-highlight-mouse-t #[0 "\300\207" [t] 1] "Call bib-highlight-mouse from `LaTeX-mode-hook' to add green highlight." bib-bibtex-env-variable #[0 "\300\207" [#1="BIBINPUTS"] 1 #1#] "Environment variable setting the path where BiBTeX input files are found.\nBiBTeX 0.99b manual says this should be TEXBIB.\nAnother version says it should BSTINPUTS. I don't know anymore!\n\nThe colon character (:) is the default path separator in unix, but you may\nuse semi-colon (;) for DOS or OS/2 if you set bib-dos-or-os2-variable to t." string bib-cite-inputs #[0 "\300\207" [nil] 1] "List of directories to search for .bib files.\nThis is in addition to those listed in the environment variable specified by\n`bib-bibtex-env-variable'." (repeat (file :format "%v")) bib-cite-aux-inputs #[0 "\300\207" [nil] 1] "List of directories to search for .aux files.\nMiKTeX has the LaTeX option -aux-directory to store .aux files in an alternate\ndirectory. You may set this variable to let bib-cite find these .aux files." (repeat (file :format "%v")) bib-dos-or-os2-variable #[0 "\301=\206 \302=\207" [system-type emx ms-dos] 2] "Whether you use DOS or OS/2 for bib-make-bibliography/bib-display.\n\nIt tells bib-make-bibliography and bib-display to translate\nthe BIBINPUTS environment variable using the \";\" character as\na path separator and to translate DOS' backslash to slash.\n\ne.g. Use a path like \"c:\\emtex\\bibinput;c:\\latex\\bibinput\"\n\n(You can change the environment variable which is searched by\nsetting the elisp variable bib-bibtex-env-variable)" bib-etags-command #[0 "\300\207" [#2="etags -r '/.*\\\\\\(eq\\|page\\|[fvF]\\)ref.*/' -o "] 1 #2#] "Variable for the etags command and its output option.\nIn unix, this is usually \"etags -r '/.*\\\\\\(eq\\|page\\|[fvF]\\)ref.*/' -o \"\n(we use the -r option to tell etags to list AMS-LaTeX's \\eqref command.)\nIn DOS and OS/2, this *may* be different, e.g. using slashes like \"etags /o=\"\nIf so, set it this variable." bib-etags-append-command #[0 "\300\207" [#3="etags -r '/.*\\\\\\(eq\\|page\\|[fvF]\\)ref.*/' -a -o "] 1 #3#] "Variable for the etags command and its append and output option.\nIn unix, this is usually \"etags -r '/.*\\\\\\(eq\\|page\\|[fvF]\\)ref.*/' -a -o \"\nIn DOS and OS/2, this *may* be \"etags /a /o=\" If so, set it this variable." bib-etags-filename #[0 "\300\207" [#4="TAGS"] 1 #4#] "Variable for the filename generated by etags, by defaults this TAGS.\nbut you may want to change this to something like TAGSLaTeX such that it can\ncoexist with some other tags file in your master file directory." bib-ref-regexp #[0 "\300\207" [#5="\\\\\\(eq\\|page\\|[fvF]\\)?ref"] 1 #5#] "Regular expression for \\ref LaTeX commands that have a matching \\label.\nwithout the curly bracket.\n\nIf you change this variable and you use multi-file documents, make sure you\nalso edit the variables bib-etags-command and bib-etags-append-command." regexp bib-substitute-string-in-display #[0 "\300\207" [t] 1] "Determines if bib-display will substitute @string definitions.\nIf t, then the @string text is substituted.\nIf nil, the text is not substituted but the @string entry is included." bib-string-ignored-warning #[0 "\300\207" [("jan" "feb" "mar" "apr" "may" "jun" "jul" "aug" "sep" "sept" "oct" "nov" "dec" "acmcs" "acta" "cacm" "ibmjrd" "ibmjs" "ieeese" "ieeetcad" "ieeetc" "ipl" "jacm" "jcss" "scp" "sicomp" "tcs" "tocs" "tods" "tog" "toms" "toois" "toplas")] 1] "@string abbreviations for which a warning is not given if not defined.\nThese are usually month abbreviations (or journals) defined in a style file." (repeat (string :tag "Entry"))] 6) #@124 Regular expression for \ref LaTeX commands that have a matching \label. A opening curly bracket is appended to the regexp. (defvar bib-ref-regexpc (concat bib-ref-regexp "{") (#$ . 5288)) (defvar bib-cite-minor-mode nil) #@59 Keymap for mouse bindings in highlighted texts in bicite. (defvar bib-highlight-mouse-keymap (make-sparse-keymap) (#$ . 5515)) (defvar bib-cite-minor-mode-menu nil) #@232 Toggle bib-cite mode. When bib-cite mode is enabled, citations, labels and refs are highlighted when the mouse is over them. Clicking on these highlights with [mouse-2] runs `bib-find', and [mouse-3] runs `bib-display'. (fn ARG) (defalias 'bib-cite-minor-mode #[257 "\305\300!\210\211\203\306!\307V\202?\211\2034\310\301!\203#\305\301!\210\311\n\205D\312 \210\313 \210\314\303\315\311\316$\207\317\303\315\316#\210\311\211\320ed\321#*\207" [bib-cite-minor-mode tags-always-exact bib-highlight-mouse-t after-change-functions before-change-functions make-local-variable prefix-numeric-value 0 boundp nil bib-cite-setup-highlight-mouse-keymap bib-highlight-mouse add-hook bib-cite-setup-mouse-function t remove-hook remove-text-properties (mouse-face t local-map t)] 7 (#$ . 5687) "P"]) #@65 Set up the bib-cite text in the current buffer to be clickable. (defalias 'bib-cite-setup-highlight-mouse-keymap #[0 "\301\300!\210\302\303 !\304\305\306#\210\304\307\310#\210\211\262\211\207" [bib-highlight-mouse-keymap make-local-variable copy-keymap current-local-map define-key [down-mouse-3] bib-display-mouse [mouse-2] bib-find-mouse] 5 (#$ . 6492)]) #@40 Unconditionally turn on Bib Cite mode. (defalias 'turn-on-bib-cite #[0 "\300\301!\207" [bib-cite-minor-mode 1] 2 (#$ . 6859)]) #@24 (fn BEG END OLD-LEN) (defalias 'bib-cite-setup-mouse-function #[771 "\212\300 \301\302\"\216\214b\210\303 \210`b\210\304y\210`}\210\305 *\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] beginning-of-line 1 bib-highlight-mouse] 7 (#$ . 6992)]) #@29 Bib-cite minor-mode keymap. (defvar bib-cite-minor-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\207" [make-sparse-keymap define-key "ba" bib-apropos "bb" bib-make-bibliography "bd" bib-display "be" bib-etags "bf" bib-find "bn" bib-find-next "bh" bib-highlight-mouse] 5) (#$ . 7292)) #@27 Menu keymap for bib-cite. (defvar bib-cite-minor-mode-menu nil (#$ . 7696)) (byte-code "\303\304\305\306$\210\307 \236\204\310 B\307\n\236\204\307B\nB\303\207" [bib-cite-minor-mode-map minor-mode-alist minor-mode-map-alist easy-menu-do-define bib-cite-minor-mode-menu "Menu keymap for bib-cite." ("BCite" ["Make BibTeX bibliography buffer" bib-make-bibliography t] ["Display citation or matching \\ref or \\label" bib-display t] ["Find BibTeX citation or matching \\ref or \\label" bib-find t] ["Search apropos BibTeX files" bib-apropos t] ["Build TAGS file for multi-file document" bib-etags (bib-master-file)] ["Refresh \\cite, \\ref and \\label mouse highlight" bib-highlight-mouse t]) bib-cite-minor-mode (bib-cite-minor-mode " BCite")] 5) (defvar bib-cite-bibtex-font-lock-keywords '(("^\\( \\| \\)*\\(@[A-Za-z]+\\)[ ]*[({]\\([][A-Za-z0-9.:;?!`'()/*@_+=|<>-]+\\)?" (2 font-lock-function-name-face) (3 font-lock-reference-face nil t)) ("^[ ]*\\(OPT[^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*\\)[ ]*=" 1 font-lock-comment-face) ("^[ ]*\\([^\"#%'(),={} \n0-9][^\"#%'(),={} \n]*\\)[ ]*=" 1 font-lock-variable-name-face) "Default expressions to fontify in BibTeX mode.")) (defvar bib-cite-bibtex-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\316#\210\301\320\321#\210\207" [make-syntax-table modify-syntax-entry 34 "\"" 36 "$$ " 37 "< " 39 "w " 64 92 "\\" 12 "> " 10 126 " "] 5)) #@52 Regular expression for field containing a @string. (defvar bib-string-regexp "^[, ]*[a-zA-Z]+[ ]*=[ ]*\\([a-zA-Z][^#%'(),={}\" \n]*\\)" (#$ . 9227)) (defalias 'bib-cite--kind #[0 "\212\301\302!\204 \303\304\305\306#\210\301!\203\307\202\"\301\310!\203!\311\202\"\312)\207" [bib-ref-regexpc looking-at "\\\\" search-backward "\\" nil t ref "\\\\label{" label cite] 4]) #@846 Display BibTeX citation or matching \ref or \label command under point. If text under cursor is a \cite command, then display its BibTeX info from \bibliography input file. Example with cursor located over cite command or arguments: \cite{Wadhams81,Bourke.et.al87,SchneiderBudeus94} ^Display-all-citations ^Display-this-citation If text under cursor is a \ref command, then display environment associated with its matching \label command. If text under cursor is a \label command, then display the text around the first matching \ref command. The user is prompted for a \label or \ref is nothing suitable is found under the cursor. The first prompt is for a label. If you answer with an empty string, a second prompt for a ref will be given. A TAGS file is created and used for multi-file documents under auctex. (defalias 'bib-display #[0 "\301 \203\211\302>\203\303\304!\210\305\306!\207\211\307=\203\310 \207\311 \207" [bib-cite-use-reftex-view-crossref bib-cite--kind (ref cite) require reftex reftex-view-crossref nil cite bib-display-citation bib-display-label] 3 (#$ . 9613) nil]) #@773 Edit BibTeX citation or find matching \ref or \label command under point. For multi-entry cite commands, the cursor should be on the actual cite key desired (otherwise a random entry will be selected). e.g.: \cite{Wadhams81,Bourke.et.al87,SchneiderBudeus94} ^Display-this-citation If text under cursor is a \ref command, then point is moved to its matching \label command. If text under cursor is a \label command, then point is moved to the first matching \ref command. The user is prompted for a \label or \ref is nothing suitable is found under the cursor. The first prompt is for a label. If you answer with an empty string, a second prompt for a ref will be given. A TAGS file is created and used for multi-file documents under auctex. (defalias 'bib-find #[0 "\301 \203\211\302>\203\303\304!\210\305\306!\207\211\307=\203\310 \207\311 \207" [bib-cite-use-reftex-view-crossref bib-cite--kind (ref cite) require reftex reftex-view-crossref t cite bib-edit-citation bib-find-label] 3 (#$ . 10747) nil]) #@61 Bib-cite intenal variable to hold last \ref or \eqref find. (defvar bib-cite-search-ring nil (#$ . 11797)) #@257 Find next occurrence of a \ref or \eqref. This is made necessary because we now use a regexp to find tags in multi-file documents, and the Emacs command `find-tag' doesn't allow to interactively find the next occurrence of a regexp. (fn &optional PREV-P) (defalias 'bib-find-next #[256 "\302 \203\303\304\203\305\202\304\304#\207\203; \306Q\203-\307\310\304#?\205:\311\312\"\207\313\310\304#?\205:\311\314\"\207\311\315!\207" [bib-cite-search-ring bib-ref-regexpc bib-master-file find-tag t - "}" re-search-backward nil message "No previous occurrence of reference %s" re-search-forward "No next occurrence of reference %s" "Sorry, no previous reference to find. Use bib-find?"] 6 (#$ . 11911) "P"]) #@100 Display BibTeX citation or matching \ref or \label under mouse EVENT. See bib-display. (fn EVENT) (defalias 'bib-display-mouse #[257 "\300!\210\301 \207" [mouse-set-point bib-display] 3 (#$ . 12638) "e"]) #@99 Edit BibTeX citation or find matching \ref or \label under mouse EVENT. See bib-find. (fn EVENT) (defalias 'bib-find-mouse #[257 "\300!\210\301 \207" [mouse-set-point bib-find] 3 (#$ . 12851) "e"]) #@317 Display BibTeX entries containing a keyword from bibliography file. The files specified in the \bibliography command are searched unless the current buffer is in `bibtex-mode' or is the Help buffer. In those cases, *it* is searched. This allows you to trim down a search further by using bib-apropos sequentially. (defalias 'bib-apropos #[0 "\306\300!\205\204 \307=\205\310\311!\205\311 \312 \313\314\315\211%\315\211\211\316\317\n\"?\2051\320 \321\230?\211\203;\322\315!\206<pr\211q\210eb\210\323\324\315\325#\203|\323\315\325#\203|`\262\326\324\315\325#\210`\262\327\330!\210`W\203pb\210\202C`{\331PB\262\202C\204\207\332\333!\210\202\310 r\334\321!q\210p\335 \210\315\211\325\211(\325)*\336 \210\337\340!\210+\211+\341\342\237\"\210\343!\210)\266\344 \210,\203\310\332\345\346!!\210\205\317\347!)\207" [TeX-mode-p major-mode mode-name default-directory buffer-read-only buffer-file-name boundp bibtex-mode fboundp LaTeX-bibitem-list bib-apropos-keyword-at-point completing-read "BiBTeX apropos: " nil string-match "^bib" buffer-name "*Help*" bib-get-bibliography re-search-forward "^[ ]*@" t re-search-backward forward-list 1 "\n" message "Sorry, no matches found." get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook mapc princ internal-temp-output-buffer-show bib-cite-fontify-help-as-bibtex substitute-command-keys "Use \\[bib-apropos] again in the *help* buffer to trim the search" kill-buffer buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output bib-novice] 14 (#$ . 13058) nil]) #@29 Bib-cite internal variable. (defvar bib-document-citekeys-obarray-warnings nil (#$ . 14665)) #@586 Extract citations used in the current document from \bibliography{} file(s). Put them into a buffer named after the current buffer, with extension .bib. In an AUCTeX multi-file document, parsing must be on and the citation keys are extracted from the .aux files. In a plain LaTeX buffer (not multi-file), the cite keys are extracted from the text itself. Therefore the text need not have been previously processed by LaTeX. This function is useful when you want to share a LaTeX file, and therefore want to create a bibtex file containing only the references used in the document. (defalias 'bib-make-bibliography #[0 "\306 \206\307 \310\311 \312\313\314\311 \"\206\311 GO\315P!\316\317!\320\317$\321!\210!\210\322 \210 \2046\211\203\337 \203q\211\203q\nr\323\324!q\210p\325 \210\317\211\326\211\326 !\327 \210\330\331!\210+\211\"\332 \"\210\333!\210)\266\202\332 \203\247\nr\323\324!q\210p\325 \210\317\211\326\211\326 !\327 \210\330\331!\210+\211\"\332 !\210\333!\210)\266\202\332\211\203\332\nr\323\324!q\210p\325 \210\317\211\326\211\326 !\327 \210\330\331!\210+\211\"\332!\210\333!\210)\266\317\334 \210#\205\351\335\336\337!!\207" [bib-switch-to-buffer-function bib-document-citekeys-obarray-warnings default-directory buffer-read-only buffer-file-name buffer-undo-list bib-document-citekeys-obarray bib-buffer-citekeys-obarray create-file-buffer buffer-name 0 string-match "\\." "-bib.bib" bib-get-bibliography nil bib-get-citations kill-buffer bibtex-mode get-buffer-create "*Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show bib-cite-fontify-red message substitute-command-keys "Use \\[save-buffer] to save this buffer to a file." inhibit-modification-hooks inhibit-read-only standard-output bib-novice] 10 (#$ . 14765) nil]) #@79 Fontify *Help* buffer in red-bold up to optional LIMIT. (fn &optional LIMIT) (defalias 'bib-cite-fontify-red #[256 "\203\303\304!\204\305\306\304\"\210\307\304\310\"\210r\311q\210\312\211\313e\206#d\314\304$+\207" [window-system after-change-functions before-change-functions facep red-bold copy-face bold set-face-foreground "red" "*Help*" nil put-text-property face] 6 (#$ . 16632)]) (defalias 'bib-cite--fontify-help #[0 "\203 \300\301!\210\202\302\303!\203\303 \210\304 \210\302\305!\203 \305 \207\306 \207" [font-lock-mode -1 fboundp font-lock-unset-defaults font-lock-unfontify-buffer font-lock-ensure font-lock-fontify-buffer] 2]) (defalias 'bib-cite-fontify-help-as-bibtex #[0 "\301\302!\204\303\207r\304q\210\305\306 *\207" [font-lock-defaults featurep font-lock nil "*Help*" (bib-cite-bibtex-font-lock-keywords nil t ((36 . "\"") (34 . "."))) bib-cite--fontify-help] 2]) (defalias 'bib-cite-fontify-help-as-latex #[0 "\301\302!\204\303\207r\304q\210\301\305!\203\306\202\307\310 *\207" [font-lock-defaults featurep font-lock nil "*Help*" font-latex ((font-latex-keywords font-latex-keywords-1 font-latex-keywords-2) nil nil ((40 . ".") (41 . ".") (36 . "\"")) nil (font-lock-comment-start-regexp . "%") (font-lock-mark-block-function . mark-paragraph)) (tex-font-lock-keywords nil nil ((36 . "\""))) bib-cite--fontify-help] 2]) #@29 Bib-cite internal variable. (defvar bib-document-TeX-files-warnings nil (#$ . 18003)) #@335 Invoke etags on all tex files of the document in directory MASTERDIR. Store the TAGS file in the master-directory. Expect errors if you use this outside of auctex or within a plain single-file document. Also makes sure that the TAGS buffer is updated. See variables bib-etags-command and bib-etags-filename (fn &optional MASTERDIR) (defalias 'bib-etags #[256 "\306\307!\210\310 \211@\206\311 \312\"\313!\314 \315R!\210A\262\203:@\262\314\n\315R!\210A\262\202\"\211\203Hr\211q\210\316\317\211\"\210) \232\204R\320!\210\313!\203er\313!q\210\321\303!\210)\266\f\205\241 r\322\323!q\210p\324 \210\325\211\317\211\317 \326 \210\327\330!\210+\211!\331\f!\210\332!\210)\266\325\333 \207" [bib-etags-filename bib-etags-command bib-etags-append-command tags-file-name bib-document-TeX-files-warnings default-directory require etags bib-document-TeX-files bib-master-directory expand-file-name get-file-buffer shell-command " " revert-buffer t visit-tags-table make-local-variable get-buffer-create "*Help*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show bib-cite-fontify-red buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output] 12 (#$ . 18096) nil]) #@41 Return true is current point is hidden. (defalias 'bib-Is-hidden #[0 "\205\212\301\302\303\304#\205\305\306!\307\230?\205\304)\207" [selective-display re-search-backward "[\n ]" nil t match-string 0 "\n"] 4 (#$ . 19419)]) #@71 Make that nice green highlight when the mouse is over LaTeX commands. (defalias 'bib-highlight-mouse #[0 "\212\305\211\306\307 \305\211\310ed\311#\210*eb\210\312\313 \314\305O\315Q\305\306#\203B\316\224\262\316\225\262\305\211\317\320\f$\210\317\321\322$\210*\202\323!)\266\204)\207" [inhibit-read-only after-change-functions before-change-functions bib-ref-regexp bib-highlight-mouse-keymap nil t buffer-modified-p remove-text-properties (mouse-face t local-map t) re-search-forward "\\\\\\(" 2 "\\|label\\|[A-Za-z]*cite[A-Za-z]*\\(\\[[^]]*\\]\\)*\\){[^}]*}" 0 put-text-property local-map mouse-face highlight set-buffer-modified-p] 9 (#$ . 19654) nil]) #@62 Toggle the enabling of bib-cite entries as clickable things. (defalias 'bib-toggle-highlight #[0 "?\211\203\n\304 \207\305 \306\307\211\310ed\311#\210*\312!)\207" [bib-highlight-mouse-t inhibit-read-only after-change-functions before-change-functions bib-highlight-mouse buffer-modified-p t nil remove-text-properties (mouse-face local-map) set-buffer-modified-p] 5 (#$ . 20331) nil]) #@245 Do the displaying of cite info. Return t if found cite key, nil otherwise. Example with cursor located over cite command or arguments: \cite{Wadhams81,Bourke.et.al87,SchneiderBudeus94} ^Display-all-citations ^Display-this-citation (defalias 'bib-display-citation #[0 "\212\306 \307\310!\311\312!\313$\312\203 q\210\314b\210c\210`\262 r\307\315!q\210p\316 \210\312\211\317\211\317\320 \210\321\322!\210+\211q\210\323\314d{!\210\324!\210)\266\325 \210\211\203^\326!\210\327!\210\327!\266\205)\207" [bib-substitute-string-in-display default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks bib-get-citekeys-obarray get-buffer-create "*bibtex-work*" bib-get-bibliography nil bib-get-citations 1 "*Help*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show bib-cite-fontify-help-as-bibtex bib-cite-fontify-red kill-buffer inhibit-read-only standard-output] 11 (#$ . 20730)]) #@420 Do the edit of cite info. Return t if found cite key, nil otherwise. Find and and put edit point in bib file associated with a BibTeX citation under cursor from \bibliography input file. In a multi-entry cite command, the cursor should be on the actual cite key desired (otherwise a random entry will be selected). e.g.: \cite{Wadhams81,Bourke.et.al87,SchneiderBudeus94} ^Display-this-citation (defalias 'bib-edit-citation #[0 "\301 \302\303!\304C\304\212\305\306\307\"\"\210q\210eb\210\310\311\312\242!\313Q\304\303#\2042\314!\210\315\316\242\"\210\202A\317\320\304\303#\210\321\322!\262\314!\210)\323!!\210eb\210\310\311\312\242!\313Q\304\303#\207" [bib-switch-to-buffer-function bib-get-citekeys-obarray bib-get-bibliography t nil mapatoms make-closure #[257 "\300\301!\240\207" [V0 symbol-name] 4 "\n\n(fn CITE-KEY)"] re-search-forward "@[^{(]+[{(][ ]*" regexp-quote "[ ,\n]" kill-buffer error "Sorry, could not find bib entry for %s" re-search-backward "%%%Filename: \\([^\n]*\\)" match-string 1 find-file-noselect] 8 (#$ . 21745)]) #@73 Return the keyword under point for initial input to bib-apropos prompt. (defalias 'bib-apropos-keyword-at-point #[0 "\212`\300\301\302\303#\205\304\224\304\225{\305\230\205\306`T\"\262)\207" [re-search-backward "[\n{, ]" nil t 0 "{" buffer-substring-no-properties] 5 (#$ . 22829)]) #@292 Display environment or first ref associated with a label. The label or ref name is extracted from the text under the cursor, or the user is prompted is nothing suitable is found. The first prompt is for a label. If you answer with an empty string, a second prompt for a ref will be given. (defalias 'bib-display-label #[0 "\300 \211\204\n\301\302!\207\303\304\"\207" [bib-guess-or-prompt-for-label message "No name given" bib-display-or-find-label t] 4 (#$ . 23124)]) #@796 Move to a label, or the first occurance of a ref. The label or ref name is extracted from the text under the cursor. If nothing suitable is found, the user is prompted. The first prompt is for a label. If you answer with an empty string, a second prompt for a ref will be given. If within a single file document: You can move back with C-xC-x as the mark is set before moving. You can search for next occurrances of a ref command with C-sC-s. If within a multi-file document (in auctex only) You can move back with C-xC-x if within the same buffer. If not, just select your previous buffer. You can search for next occurrances of a ref command with tag commands: C-u M-. Find next alternate definition of last tag specified. C-u - M-. Go back to previous tag found. (defalias 'bib-find-label #[0 "\300 \211\204\n\301\302!\207\303\304\"\207" [bib-guess-or-prompt-for-label message "No name given" bib-display-or-find-label nil] 4 (#$ . 23603)]) #@28 (fn THE-REGEXP DISPLAYF) (defalias 'bib-display-or-find-label #[514 "\303 \211\205 \304!\305\211\212\203S\2036\306\"q\210\307\305\310#\210\311\312\"\2030\313 \210\202\234\314 \210\202\234\306\"\262\203G\315\316\317!!\210\211p\232\203\234`\262\202\234eb\210\307\305\310#\203\226\203w\311\320\"\203q\313 \210\202\234\314 \210\202\234\321\224\262\311\322\"\203\211\323\324\"\203\234\315\316\317!!\210\202\234\315\325\"\210)\203\255\326`\310\305#\210b\210\202\265\211\203\265\n!\210\327 \205\314\212\330 \210\331\332!\203\311\332 \202\313\333 )\207" [bib-novice bib-cite-search-ring bib-switch-to-buffer-function bib-master-file file-name-directory nil bib-etags-find-noselect re-search-forward t string-match "^\\\\\\\\label" bib-display-this-environment bib-display-this-ref message substitute-command-keys "Use \\[bib-find-next] to find the next occurrence and C-u \\[bib-find-next] to find previous." "^\\\\label" 0 "{\\(.*\\)}" match-string 1 "Sorry, cannot find it (%s)" push-mark bib-Is-hidden beginning-of-line fboundp outline-show-entry show-entry] 10 (#$ . 24584)]) (defvar bib-label-prompt-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [minibuffer-local-completion-map make-sparse-keymap set-keymap-parent define-key " " self-insert-command] 5)) #@61 Guess from context, or prompt the user for a label command. (defalias 'bib-guess-or-prompt-for-label #[0 "\212\305\306!\204\307\310\212\311 \210`)\312#\210\305!\2033\313\314\315\312#\210\316u\210`\317\320!\210`\321\322{!P\266\202\202\217\305\323!\203T\313\314\315\312#\210\316u\210`\317\320!\210` \322{!P\266\202\202\217\n\324\325\f!A!\326\327\315\211\211\330&\211\331\232\204t\323\322!\332Q\202\214\326\333\315\211\211\330&\262\211\331\232?\205\214\322!\332Q)\266\202)\207" [bib-ref-regexpc bib-ref-regexp bib-label-prompt-map minibuffer-local-completion-map LaTeX-label-list looking-at "\\\\" re-search-backward "[\\]" beginning-of-line t search-forward "{" nil -1 forward-sexp 1 "\\\\label" regexp-quote "\\\\label{" create-alist-from-list reverse completing-read "Label: " LaTeX-find-label-hist-alist "" "}" "Ref: "] 9 (#$ . 25912)]) #@43 Display a few lines around current point. (defalias 'bib-display-this-ref #[0 "\306 \203\277r\307\310!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211!\317\212\320\211\321V\203@\322\323\312\313#\203@\211S\211\262\204*\210`)\212\320\211\321V\203[\324\323\312\313#\203[\211S\211\262\204E\210`){!\210\325!\210)\266\310q\210\326\327\312\313#\203|\330\331\312\313#\210\202k\332b\210\333\331!\203\211\334\332!\210r\307\335!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211!\317ed{!\210\325!\210)\266\336 \210\337\310!\207r\307\335!q\210p\311 \210\312\211\313\211\313\314 \210\315\316!\210+\211!\317\212\340y\210`)\212\320y\210`){!\210\325!\210)\266\336 \207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only bib-Is-hidden get-buffer-create "*BiBTemp*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ 3 0 re-search-backward "[\n ]" re-search-forward internal-temp-output-buffer-show search-forward " " replace-match "\n" 1 looking-at delete-char "*Help*" bib-cite-fontify-help-as-latex kill-buffer -2 standard-output] 10 (#$ . 26779)]) #@135 Display the environment associated with a label, or its section name. Assumes point is already on the label. Does not save excursion. (defalias 'bib-display-this-environment #[0 "``\306\211\211\204;b\203;\307\310\306\311#\203;`\262\312\313!\262\314\315\"\204\316\317\320!\321Q!\203`X\203\311\262\202\211\203\376\322 \203\313r\323\324!q\210p\325 \210\306\211\311\211\311\326 \210\327\330!\210+\211*\331`{!\210\332!\210)\266\324q\210\333\334\306\311#\203\210\335\336\306\311#\210\202w\337b\210\340\336!\203\225\341\337!\210r\323\342!q\210p\325 \210\306\211\311\211\311\326 \210\327\330!\210+\211*\331\337d{!\210\332!\210)\266\343\324!\210\202\373r\323\342!q\210p\325 \210\306\211\311\211\311\326 \210\327\330!\210+\211*\331`{!\210\332!\210)\266\344 \207b\210\316\345\306\311#\203\346\312\347!!\207\350\351!\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only nil re-search-forward "\\(^\\| \\)[ ]*\\\\end{\\([^}]*\\)}" t match-string 2 string-match "document" re-search-backward "\\(^\\| \\)[ ]*\\\\begin{" regexp-quote "}" bib-Is-hidden get-buffer-create "*BiBTemp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show search-forward " " replace-match "\n" 1 looking-at delete-char "*Help*" kill-buffer bib-cite-fontify-help-as-latex "\\(^\\| \\)[ ]*\\\\\\(\\(sub\\)*section\\|chapter\\|part\\)\\*?{\\([^}]*\\)}" message 0 error "Sorry, could not find an environment or section declaration" standard-output] 10 (#$ . 27988)]) #@36 History list for LaTeX-find-label. (defvar LaTeX-find-label-hist-alist nil (#$ . 29612)) #@38 Used by AUCTeX to store label names. (defvar LaTeX-label-list nil (#$ . 29707)) #@216 Return a single list from a THE-LIST that may contain either items or lists. e.g. turns '(("label3" "label4")("label1" "label2") "label") into '(("label3") ("label4") ("label1") ("label2") ("label")) (fn THE-LIST) (defalias 'create-alist-from-list #[257 "\300\301\302!\"\207" [mapcar list bib-cite-mh-list-to-string] 5 (#$ . 29794)]) #@83 Flattens the list L and make every element of the new list into a string. (fn L) (defalias 'bib-cite-mh-list-to-string #[257 "\300!\237\207" [bib-cite-mh-list-to-string-1] 3 (#$ . 30136)]) #@10 (fn L) (defalias 'bib-cite-mh-list-to-string-1 #[257 "\300\203`@\203Y@9\203\301@!B\262\202Y@\247\203,\302@!B\262\202Y@\303\232\204Y@;\203B@B\262\202Y@<\203S\304@!\244\262\202Y\305\306@\"\210A\262\202\207" [nil symbol-name int-to-string "" bib-cite-mh-list-to-string-1 error "Bad element in mh-list-to-string: %s"] 5 (#$ . 30333)]) #@183 Put citations of KEYS-OBARRAY from BIB-BUFFER into NEW-BUFFER. Substitute strings if SUBSTITUTE is t Return the-warnings as text. (fn KEYS-OBARRAY BIB-BUFFER NEW-BUFFER SUBSTITUTE) (defalias 'bib-get-citations #[1028 "\302C\303\212\302Cq\210\304\305\306#\"\210\211\242\204\307\310!\210q\210\211\242c\210\311b\266\312\313\314\"\315\316\302\303#\203U\317\311!\320\230\203E\315\321\302\303#\210\202K\315\322\302\303#\210\323\317\314!\"\210\202,q\210\311b\210\302C\304\305\324 $\"\210q\210db\210\211\242\203x\211\242c\210\210\311b\266\312\313\314\"\315 \302\303#\203\223\323\317\311!\"\210\202\201q\210\311b\210\302C\302C\304\305\325%\"\210q\210\203\356\242\203\374\311b\210\242@@\242@A\326\327\211\303\211%\315\330\331!\332Q\302\303#\203\343\333\334\335Q\303\302#\210\202\312\266\211\242A\240\210\202\263\311b\210\211\242\203\374\211\242\336\261\210\311b\266)\211\242)\207" [case-fold-search bib-string-regexp nil t mapatoms make-closure #[257 "eb\210\302\303\304\305!!\306Q\307\310#\203#\301\211\242\311 \210`\312\313!\210`{\314Q\240\207\300\211\242\315\305!\316R\240\207" [V0 V1 re-search-forward "@[^{(]+[{(][ ]*" regexp-quote symbol-name "\\([, ]\\|$\\)" nil t beginning-of-line forward-sexp 2 "\n\n" "Cannot find entry for: " "\n"] 6 "\n\n(fn CITE-KEY)"] error "Sorry, could not find any of the references" 1 make-vector 201 0 re-search-forward "[, ]*crossref[ ]*=[ ]*\\(\"\\|{\\)" match-string "{" "[^}]+" "[^\"]+" intern #[257 "\303\304!\300\"?\2057eb\210\305\306\307\304!!\310Q\311\312#\203-\302\211\242\313 \210`\314\315!\210`{\316Q\240\207\301\211\242\317\304!\320R\240\207" [V0 V1 V2 intern-soft symbol-name re-search-forward "@[^{(]+[{(][ ]*" regexp-quote "\\(,\\|$\\)" nil t beginning-of-line forward-sexp 2 "\n\n" "Cannot find crossref entry for: " "\n"] 6 "\n\n(fn CROSSREF-KEY)"] #[257 "eb\210\305\306\307\310!!\311Q\312\313#\203T\314\225S\315\314!\316\230\203'\305\317\312\313#\210`\202/\320u\210\321\314!\210`\300\203C\302\322\302\242\310!{BC\"\240\207\303\211\242\314u\210`\323\306\312\313#{\324Q\240\207\325\310!\f\"?\205h\301\211\242\326\310!\324R\240\207" [V0 V1 V2 V3 bib-string-ignored-warning re-search-forward "^[ ]*@string[{(]" regexp-quote symbol-name "[ ]*=[ ]*\\(\"\\|{\\)" nil t 1 match-string "\"" "[^\\]\"" -1 forward-list append re-search-backward "\n" member-cis "Cannot find @String entry for: "] 10 "\n\n(fn STRING-KEY)"] replace-regexp-in-string "\\\\" "\\(^[, ]*[a-zA-Z]+[ ]*=[ ]*\\)" regexp-quote "\\([, \n]\\)" replace-match "\\1" "\\2" "\n"] 16 (#$ . 30709)]) #@125 Return non-nil if ELT is an element of LIST. All elements should be strings. Comparison is case-insensitive. (fn ELT LIST) (defalias 'member-cis #[514 "\211\205\211@A\227\227\230\203\266\300\207\301\"\266\202\207" [t member-cis] 7 (#$ . 33303)]) #@70 Return obarray of citation key (within curly brackets) under cursor. (defalias 'bib-get-citekeys-obarray #[0 "\212`\300\301\302\"\303\304x\203O\305\306!\203O\303\304w\210\305\307!\203#\310\311!\210\202\312\313\304\314#\210\315\316\311!\"\210\317\304w\203y\305\320!\203y\311u\210\312\321\304\314#\210\315\316\311!\"\210\2020b\210\322\323\304\314#b\210\312\324\304\314#\203t\211\203t\315TS{\"\266\202y\325\326!\266\262)\207" [make-vector 201 0 "a-zA-Z" nil looking-at "[a-zA-Z]*cite[a-zA-Z]*" "\\[" forward-list 1 re-search-forward "{[ \n]*\\([^,} \n]+\\)" t intern match-string " \n" "," "\\([^,} \n]+\\)" re-search-backward "[\n{, ]" "[\n}, ]" error "Sorry, can't find a reference here"] 7 (#$ . 33566)]) #@52 Extract citations keys used in the current buffer. (defalias 'bib-buffer-citekeys-obarray #[0 "\300\301\302\"\212eb\210\303\304\305\306#\203P\307u\210\310\311!\203 \312\313!\210\202\310\314!\203\315\316\313!\"\210\313\225b\210\317\305w\203\310\320!\203\313u\210\303\321\305\306#\210\315\316\313!\"\210\2021\211\203X\211\202[\322\323!)\207" [make-vector 201 0 re-search-forward "\\\\[a-zA-Z]*cite[a-zA-Z]*\\(\\[\\|{\\)" nil t -1 looking-at "\\[" forward-sexp 1 "{[ \n]*\\([^,} \n]+\\)" intern match-string " \n" "," "\\([^,} \n]+\\)" error "Sorry, could not find any citation keys in this buffer"] 5 (#$ . 34299)]) #@103 Return the directory associated with the master file. If no master file, then return current default. (defalias 'bib-master-directory #[0 "\301 \211\203 \302\303\304 !!\207\207" [default-directory bib-master-file file-name-directory expand-file-name TeX-master-file] 4 (#$ . 34935)]) #@68 Return master file full path, or nil if not a multi-file document. (defalias 'bib-master-file #[0 "\301\300!\204\n\302\2022\2039\204\303!\2022\304=\2031\212\305b\210\306\307\302\304#)\2031\310 \2022\302\211\2048\302\207\311\312\"\203@\207\313\314P!\203L\211\314P\207\211\315P\207" [TeX-master boundp nil expand-file-name t 1 re-search-forward "^[ ]*\\\\\\(include\\|input\\){" buffer-file-name string-match ".\\(tex\\|ltx\\)$" file-readable-p ".ltx" ".tex"] 4 (#$ . 35227)]) #@232 Return all tex input files associated with a *known* multi-file document. For a multi-file document in auctex only. No checking is done that this is a real multi-file document. Sets global variable bib-document-TeX-files-warnings. (defalias 'bib-document-TeX-files #[0 "\302\303 \211\205 \304!\305\306!C\204\307!\210\310\311!\210rq\210\312!\210eb\210\313\314\302\315#\203\240\316\317!\320\321\"\204\234\322\323\"!\204]\320\324\"\204]\322\323\325P\"!\203]\211\325P\262\322\323\"!\204s\320\326\"\204s\211\327P\262\323\"\262\322!\204\212\330\331\"P\210\202)\323\"B\262\302\210\332c\210\312!\210\210\202))\307!\210\211\237\207" [bib-document-TeX-files-warnings default-directory nil bib-master-file file-name-directory get-buffer-create "*tex-document*" kill-buffer error "Sorry, but this is not a multi-file document (Try C-u C-c C-n if using auctex)" insert-file-contents re-search-forward "^[ ]*\\\\\\(input\\|include\\){\\(.*\\)}" t match-string 2 string-match ".sty$" file-readable-p expand-file-name ".ltx$" ".ltx" ".tex$" ".tex" format "Warning: File not found: %s" "\n"] 9 (#$ . 35729)]) #@233 Return cite keys obarray for multi-file document. Return nil if not a multi-file document. This is a AUCTeX supported feature only. Also, see bib-buffer-citekeys-obarray. Sets global variable bib-document-citekeys-obarray-warnings. (defalias 'bib-document-citekeys-obarray #[0 "\302\303 \302\205\254\304\305\"\262\306!\204\307\310\"\210\311\"\203'\312\313#\314\315!\316\317\320\"rq\210\321!\210\322!\323\324\302\325#\203x\326\327!\304\330\"\306!\204[\312\331\"P\266\202:\311\"\203j\312\313#P\302\210\332c\210\321!\266\202:\327b\210\323\333\302\325#\203\245\326\327!\320\334\335#\203\240\336\327\224\327\225O\"\210\320\225\262\202\207\266\202{)\337!\210\262\207" [bib-document-citekeys-obarray-warnings default-directory nil bib-master-file bib-return-aux-file-from-tex "aux" file-readable-p error "Sorry, cannot read file %s" file-newer-than-file-p format "Warning: %s is out of date relative to %s.\n" get-buffer-create "*bib-cite-work*" make-vector 201 0 insert-file-contents file-name-directory re-search-forward "^\\\\@input{\\(.*\\)}$" t match-string 1 "tex" "Warning: %s is not found or readable.\n" "\n" "^\\\\citation{\\(.*\\)}$" string-match "\\([^,\n]+\\)" intern kill-buffer] 11 (#$ . 36879)]) #@72 Given name.name.XXX in TEXNAME return name.name.EXT. (fn TEXNAME EXT) (defalias 'bib-return-aux-file-from-tex #[514 "\301\302\"\203\303\304\"\305Q\202\305Q\306!\307!\203 \207\310\"\211\203/\307!\203/\207\311\312\"\207" [bib-cite-aux-inputs string-match "\\(.*\\)\\.[^\\.]+" match-string 1 "." file-name-nondirectory file-exists-p psg-checkfor-file-list error "Could not find file %s"] 8 (#$ . 38141)]) #@125 Returns a buffer with point on TAG. Buffer is not selected. Makes sure TAGS file exists, etc. (fn TAG &optional MASTERDIR) (defalias 'bib-etags-find-noselect #[513 "\302\303!\210\211\206\n\304 p\305\306\"\307!\204\310!\210\211 \232\204$\311!\210\312\305\313#\262q\210\207" [bib-etags-filename tags-file-name require etags bib-master-directory nil expand-file-name file-exists-p bib-etags visit-tags-table find-tag-noselect t] 10 (#$ . 38570)]) #@560 Returns a new bibliography buffer holding all bibtex files in the document. If using AUCTeX, and either TeX-parse-self is set or C-c C-n is used to parse the document, then the entire multifile document will be searched for \bibliography commands. If this fails, the current buffer is searched for the first \bibliography command. If include-filenames-f is true, include as a special header the filename of each bib file. Puts the buffer in text-mode such that forward-sexp works with german " accents embeded in bibtex entries. (fn INCLUDE-FILENAMES-F) (defalias 'bib-get-bibliography #[257 "\306\307!\203\310\300!\203\203\307 \206\311 \312\313!\314 \315\211\211rq\210\316 \210\317\n!\210)\203\262@@\262A\262\320\321\"\320\322\"O\262\320\323\"\204S\324P\262\325!\203]\206\204\326\327 !\"\206\204\326\327\330!\"\206\204\f\203z\326\f\"\206\204\310\305!\205\204\326 \"\262\211\203\250rq\210db\210\203\234\331\332\261\210\333\315\"\210\334b\210)\202-\335\332R\262\202-\203\362 r\312\336!q\210p\337 \210\315\211()\340\211*\340+,\316 \210\341\342!\210+\211-\343!\210\344!\210)\266\345!\210\346\347!\202\363)\207" [TeX-mode-p default-directory text-mode-syntax-table bib-bibtex-env-variable bib-cite-inputs TeX-check-path fboundp LaTeX-bibliography-list boundp bib-bibliography-list get-buffer-create "*bibtex-bibliography*" bib-master-directory nil erase-buffer set-syntax-table string-match "[^ ]+" "[ ]+$" "\\.bib$" ".bib" file-readable-p psg-checkfor-file-list psg-list-env "BIBINPUT" "%%%Filename: " "\n" insert-file-contents 1 "Could not read file: " "*Help*" kill-all-local-variables t run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show kill-buffer error "Sorry, can't find all bibtex files in \\bibliography command" buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output] 13 (#$ . 39036)]) #@238 Return list of bib files listed in first \bibliography command in buffer. Similar output to AUCTeX's LaTeX-bibliography-list The first element may contain trailing whitespace (if there was any in input) although BiBTeX doesn't allow it! (defalias 'bib-bibliography-list #[0 "\212\300b\210\301\302\303\304#\204\305\306!\202J\307\300!C\304\211\203D\310\311!\203>\312\313\303w\210`\301\314\303\304#\210\315u\210\313\303x\210`{C\"\262\202\303\262\202\316\317\"\266\202)\207" [1 re-search-forward "^[ ]*\\\\bibliography{[ ]*\\([^},]+\\)" nil t error "Sorry, can't find \\bibliography command anywhere" match-string looking-at "," append ", " "[,}]" -1 mapcar list] 9 (#$ . 40989)]) #@65 Force the creation of the AUCTeX auto file for a bibtex buffer. (defalias 'bib-create-auto-file #[0 "\305\306!\204\n\307\310!\210\311 \204\f\312 *\207" [BibTeX-auto-regexp-list TeX-auto-regexp-list TeX-auto-save TeX-header-end LaTeX-header-end require latex error "Sorry, This is only useful if you have AUCTeX" t TeX-auto-write] 2 (#$ . 41687) nil]) #@95 Check for presence of FILENAME in directory LIST. Return 1st found path. (fn FILENAME LIST) (defalias 'psg-checkfor-file-list #[514 "\211\300\2033@\204\301!\262\202\301\302@!!P\262\303!\203)\300\262\202\300\262A\262\202\211\2038\207\211\203e\304\305@\"\203^\306@\307\211\224O\310\311Q\312\211$@\262\203^\300\262\211A\262\2029\207" [nil expand-file-name file-name-as-directory file-exists-p string-match "//$" search-directory-tree 0 "^" "$" t] 10 (#$ . 42051)]) #@410 Return a list of all reachable files in DIRECTORIES ending with EXTENSION. DIRECTORIES is a list or a single-directory string EXTENSION-REGEXP is actually (any) regexp, usually \\.bib$ If RECURSE is t, then we will recurse into the directory tree, nil, we will only search the list given. If FIRST-FILE is t, stop after first file is found. (fn DIRECTORIES EXTENSION-REGEXP RECURSE FIRST-FILE) (defalias 'search-directory-tree #[1028 "<\204 C\262\300\203}\301@!\211\205%\302!\205%\303!\205%\304!A\262\211\203x\305@\"\306\307@\"\204p\302!\203p\203W\303!\203W\301!B\262\210\202q\306\310!\"\203p\203k\300\262\300\262\211B\262\210\211A\262\202*\266\202\n\207" [nil file-name-as-directory file-readable-p file-directory-p directory-files expand-file-name string-match "[.]+$" file-name-nondirectory] 12 (#$ . 42559)]) #@88 Like default `file-directory-p' but allow FILE to end in // for ms-windows. (fn FILE) (defalias 'bib-cite-file-directory-p #[257 "\300 \301\302\"\216\303\304\"\203\305\306\307\"!\202\305!)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\(.*\\)//$" file-directory-p match-string 1] 6 (#$ . 43439)]) #@336 Return a list of directory elements in ENV variable (w/o leading $) argument may consist of environment variable plus a trailing directory, e.g. HOME or HOME/bin (trailing directory not supported in dos or OS/2). bib-dos-or-os2-variable affects: path separator used (: or ;) whether backslashes are converted to slashes (fn ENV) (defalias 'psg-list-env #[257 "\301!\205H\203\302\303\304\301!\305\211%\202\301!\203!\306\202\"\307\310\"\211\311\211:\203D@\262\312!\203=B\262A\262\202)\211\237\266\206\207" [bib-dos-or-os2-variable getenv replace-regexp-in-string "\\\\" "/" t ";" ":" split-string nil bib-cite-file-directory-p] 9 (#$ . 43809)]) (provide 'bib-cite)