HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/textmodes/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/textmodes/refer.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\301\303\304\305\306\307\310&\210\311\312\303\313\314\315\307\301&\210\311\316\317\320\314\321\307\301&\210\311\322\323\324\314\325\307\301&\210\311\326\327\330\314\331\307\301&\210\332\316!\210\332\322!\210\332\312!\207" [provide refer custom-declare-group nil "Look up references in bibliography files." :prefix "refer-" :group text custom-declare-variable refer-bib-directory "Directory, or list of directories, to search for \\.bib files.\nCan be set to `bibinputs' or `texinputs', in which case the environment\nvariable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a\nlist of directories.  Useful only if `refer-bib-files' is set to `dir' or\na list of file names (without directory).  A value of nil indicates the\ncurrent working directory.\n\nIf `refer-bib-directory' is `bibinputs' or `texinputs', it is setq'd to\nthe appropriate list of directories when it is first used.\n\nNote that an empty directory is interpreted by BibTeX as indicating\nthe default search path.  Since Refer does not know that default path,\nit cannot search it.  Include that path explicitly in your BIBINPUTS\nenvironment if you really want it searched (which is not likely to\nhappen anyway)." :type (choice (repeat directory) (const bibinputs) (const texinputs)) refer-bib-files 'dir "List of \\.bib files to search for references,\nor one of the following special values:\nnil  = prompt for \\.bib file (if visiting a \\.bib file, use it as default)\nauto = read \\.bib file names from appropriate command in buffer (see\n       `refer-bib-files-regexp') unless the buffer's mode is `bibtex-mode',\n       in which case only the buffer is searched\ndir  = use all \\.bib files in directories referenced by `refer-bib-directory'.\n\nIf a specified file doesn't exist and has no extension, a \\.bib extension\nis automatically tried.\n\nIf `refer-bib-files' is nil, auto or dir, it is setq'd to the appropriate\nlist of files when it is first used if `refer-cache-bib-files' is t.  If\n`refer-cache-bib-files' is nil, the list of \\.bib files to use is re-read\neach time it is needed." (choice (repeat file) (const nil) (const auto) (const dir)) refer-cache-bib-files t "Variable determining whether the value of `refer-bib-files' should be cached.\nIf t, initialize the value of refer-bib-files the first time it is used.  If\nnil, re-read the list of \\.bib files depending on the value of `refer-bib-files'\neach time it is needed." boolean refer-bib-files-regexp "\\\\bibliography" "Regexp matching a bibliography file declaration.\nThe current buffer is expected to contain a line such as\n\\bibliography{file1,file2,file3}\nwhich is read to set up `refer-bib-files'.  The regexp must specify the command\n(such as \\bibliography) that is used to specify the list of bib files.  The\ncommand is expected to specify a file name, or a list of comma-separated file\nnames, within curly braces.\nIf a specified file doesn't exist and has no extension, a \\.bib extension\nis automatically tried." regexp make-variable-buffer-local] 8)
(defvar refer-saved-state nil)
(defvar refer-previous-keywords nil)
(defvar refer-saved-pos nil)
(defvar refer-same-file nil)
#@254 Find entry in refer-bib-files containing KEYWORDS.
If KEYWORDS is nil, prompt user for blank-separated list of keywords.
If CONTINUE is non-nil, or if called interactively with a prefix arg,
look for next entry by continuing search from previous point.
(defalias 'refer-find-entry #[(keywords &optional continue) "\204	\203\f\n\202\303\304!\305	\"\207" [keywords continue refer-previous-keywords read-string "Keywords: " refer-find-entry-internal] 3 (#$ . 3606) (list nil current-prefix-arg)])
#@78 Find next occurrence of entry in `refer-bib-files'.  See `refer-find-entry'.
(defalias 'refer-find-next-entry #[nil "\301\302\"\207" [refer-previous-keywords refer-find-entry-internal t] 3 (#$ . 4116) nil])
#@130 Inserts at point in current buffer the "key" field of the entry
found on the last `refer-find-entry' or `refer-find-next-entry'.
(defalias 'refer-yank-key #[nil "`\303 \304\216\212\305\n@!\210\306\307!\203\310\224\310\225{\202 \311\312\n@\"+c\210`U?\205-\313!)\207" [old-point #1=#:wconfig refer-saved-state current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] find-file looking-at "[ 	\n]*@\\s-*[a-zA-Z][a-zA-Z0-9]*\\s-*{\\s-*\\([^ 	\n,]+\\)\\s-*," 1 error "Cannot find key for entry in file %s" set-mark] 3 (#$ . 4331) nil])
(defalias 'refer-find-entry-internal #[(keywords continue) "\306!p\307 \307 	\203\n\202\310\311 \312\310\211 !\"#\313\314!\211 \204?\315\316!\2038\317 !\320!\316\" \321$\203J!\202L !\210\3052\276\203\266\322@!\203e@\202t\322@\323P!\205t@\323P\f\203\237\324#\f#\203\225`\325\312!\210\326\305\327\f!\"\210\202\262\310A\202\262\330 \210\331\332@\"\210\333\334!\210A)\202R\330 \210\331\335\"0\210\321!!.\207" [keywords continue refer-saved-state refer-saved-pos file found refer-convert-string-to-list-of-strings selected-window nil refer-get-bib-files 0 get-window-with-predicate #[(w) "	8\211\203T\211\203\n\304\305!!\230\203\n\207" [n files file w buffer-file-name window-buffer] 4] one-window-p nomini split-window next-window select-window file-exists-p ".bib" refer-find-entry-in-file recenter throw find-file ding message "Scanning %s... No such file" sit-for 1 "Keywords \"%s\" not found in any .bib file" n files new-window old-window old-buffer keywords-list refer-same-file] 9])
(defalias 'refer-find-entry-in-file #[(keywords-list file &optional old-pos) "\306\307\"\210\310!\210\311!q\210\312!\210	\204eb\210\202#	b\210\313\314!\210`\315\316\n\204Hm\204H\313\314!\210`\317\320
\"\211\204)\211b\210\202)\n\203\\\fb\210\321\322\316\323#\210\306\324\"\202b\306\325\"\210\316+\207" [file old-pos found end begin keywords-list message "Scanning %s..." expand-file-name find-file-noselect find-file forward-paragraph 1 0 nil refer-every #[(keyword) "b\210\303	\n\304#\207" [begin keyword end re-search-forward t] 4] re-search-forward "\\W" t "Scanning %s... found" "Scanning %s... not found"] 5])
(defalias 'refer-every #[(pred l) "\204\302\207	@!\205A?\206\303	A\"\207" [l pred nil refer-every] 3])
(defalias 'refer-convert-string-to-list-of-strings #[(s) "p\303\304!q\210\305 \210\306\n!c\210eb\210\307c\210\310\311\312\313#\203(\314\315\313\211#\210\202db\210\316c\210eb\210\317!	q\210*\207" [temp-buffer current s get-buffer-create "*refer-temp*" erase-buffer regexp-quote "(\"" re-search-forward "[ 	]+" nil t replace-match "\" \"" "\")" read] 4])
(defalias 'refer-expand-files #[(file-list dir-list) "\306\211\211\211\f@\211\203\\\307
!\211@\211\203U\310\311	\"!\2032\312\n\311	\"C\"\306\211\202\310\311\313P	\"!\203N\312\n\311\313P	\"C\"\306\211\202A\211\202\fA\211\202	\n,\207" [dirs dir files file file-list dir-list nil copy-alist file-exists-p expand-file-name append ".bib"] 6])
(defalias 'refer-get-bib-files #[nil "\204\306\202{\307=\204\310=\203p\311\307=\203\312\202 \313!\314\211\204*\315\316\317\n\"\203V\n\320\211\224O\211\321\230\204L\322!\203L\323\324\314\"C	\")\n\320\225\314O\202*\n\321\230\204h\322\n!\203h\323\nC	\"	\237\211*\202{<\203y\202{C
\204\250\324,\325=\203\235\326\327\330\331\332 !\"\333\332 !\331\332 !\334$\202\243\326\335\314\211\334$!C\202b
\336=\203\212,\325=\211-\203\277C\202eb\210\337.\340P\314\334#\203`\337\341\314\334#\210\342u\210`{C/\343\344!\204\373\323/\345u\210`\337\341\314\334#\210\342u\210`{C\"/\202\334/)\202\346\347!)/\350/\f\")\202b
\303=\203=\f\237\314\211/\211@\211\2037\323\351\334\352#/\"/	A\211\202/+\202b
<\203U\307=\204N\310=\203U\350
\f\"\202b
<\203^
\202b\346\353
\"/\307=\204p\310=\203r\f0\203z//*\207" [refer-bib-directory dirs envvar dir dir-list refer-bib-files (".") texinputs bibinputs getenv "TEXINPUTS" "BIBINPUTS" nil "." string-match ":" 0 "" file-directory-p append expand-file-name bibtex-mode read-file-name format ".bib file (default %s): " file-name-nondirectory buffer-file-name file-name-directory t ".bib file: " auto re-search-forward "\\s-*{" "[,}]" -1 looking-at "}" 1 error "No \\\\bibliography command in this buffer, can't read refer-bib-files" refer-expand-files directory-files "\\.bib$" "Invalid value for refer-bib-files: %s" major-mode refer-same-file refer-bib-files-regexp files refer-cache-bib-files] 8])