;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:17:10 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/bib-mode.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defvar bib-file "~/my-bibliography.bib" "\ Default name of file used by `addbib'.") (defvar unread-bib-file "~/to-be-read.bib" "\ Default name of file used by `unread-bib' in Bib mode.") (byte-code "ÀÁ!„\n !Ä ÅÆ#ˆÄ ÇÈ#ˆÄ ÉÊ#ˆÄ ËÌ#‡" [boundp bib-mode-map copy-keymap text-mode-map define-key " " return-key-bib "" unread-bib "" mark-bib "`" abbrev-mode] 4) (defvar bib-mode-abbrev-table nil "\ Abbrev table used in Bib mode") (defalias 'addbib #[nil "À !ˆdbˆÂ ‡" [find-file bib-file bib-mode] 2 "\ Set up editor to add to troff bibliography file specified by global variable `bib-file'. See description of `bib-mode'." nil]) (defalias 'bib-mode #[nil "À ˆÁ\n!ˆÃÅÇÈÉ\"ˆ\nËÌ!ˆÍÎ!‡" [text-mode use-local-map bib-mode-map "Bib" mode-name bib-mode major-mode define-abbrev-table bib-mode-abbrev-table nil local-abbrev-table abbrev-mode 1 run-hooks bib-mode-hook] 3 "\ Mode for editing `lookbib' style bibliographies. Hit RETURN to get next % field key. If you want to ignore this field, just hit RETURN again. Use `text-mode' to turn this feature off. journal papers: A* T D J V N P K W X articles in books & proceedings: A* T D B E* I C P K W X tech reports: A* T D R I C K W X books: A* T D I C K W X Fields: A uthor T itle D ate J ournal V olume N umber P age K eywords B in book or proceedings E ditor C ity & state I nstitution, school, or publisher R eport number or 'phd thesis' or 'masters thesis' or 'draft' or 'unnumbered' or 'unpublished' W here can be found locally (login name, or ailib, etc.) X comments (not used in indexing) \\[unread-bib] appends current entry to a different file (for example, a file of papers to be read in the future), given by the value of the variable `unread-bib-file'. \\[mark-bib] marks current or previous entry. Abbreviations are saved in `bib-mode-abbrev-table'. Hook can be stored in `bib-mode-hook'. Field keys given by variable `bib-assoc'. Commands: \\{bib-mode-map} " nil]) (defconst bib-assoc (quote ((" *$" . "%A ") ("%A ." . "%A ") ("%A $" . "%T ") ("%T " . "%D ") ("%D " . "%J ") ("%J ." . "%V ") ("%V " . "%N ") ("%N " . "%P ") ("%P " . "%K ") ("%K " . "%W ") ("%W " . "%X ") ("%X " . "") ("%J $" . "%B ") ("%B ." . "%E ") ("%E ." . "%E ") ("%E $" . "%I ") ("%I " . "%C ") ("%C " . "%P ") ("%B $" . "%R ") ("%R " . "%I "))) "\ Describes bibliographic database format. A line beginning with the car of an entry is followed by one beginning with the cdr. ") (defalias (quote bib-find-key) #[(slots) "„oƒ\nÁ‡ÂÃ!ˆÄ !‡Æ@@!ƒ@A‡ÄA!‡" [slots "" previous-line 1 bib-find-key bib-assoc looking-at] 2]) (defvar bib-auto-capitalize t "\ *True to automatically capitalize appropriate fields in Bib mode.") (byte-code "À‡" ["%[AETCBIJR]" bib-capitalized-fields nil] 1) (defalias 'return-key-bib #[nil "lƒ^À‰‰‰ÅyˆÆÇ!‰„ ÀˆÈ ˆÉyˆÀˆ`Åyˆ`Ê ! „H ƒHÆ !ƒHŠÎ`Ï\\ \"ˆ)\nbˆ ƒVÐÀ!ˆ‚YÑyˆÒ !,‡È ‡" [nil end-current beg-current new-key empty 0 looking-at "%. $" newline -1 bib-find-key bib-assoc bib-auto-capitalize bib-capitalized-fields capitalize-title-region 3 kill-line 1 insert-string] 5 "\ Magic when user hits return, used by `bib-mode'." nil]) (defalias 'mark-bib #[nil "ÀyˆÁÂ!ƒÃÄÅÆ#ˆÃÂÅÆ#ˆÇÈ!ˆÀyˆÉ`!ˆÇÂÅÆ#ˆÊË!ˆÀyˆÅ‡" [0 looking-at "^ *$" re-search-backward "[^ \n]" nil 2 re-search-forward "^%" push-mark next-line 1] 4 "\ Set mark at beginning of current or previous bib entry, point at end." nil]) (defalias 'unread-bib #[nil "À ˆÁ\n!ƒÃÁ\n!Ä `#‡ÅÄ `\n#‡" [mark-bib get-file-buffer unread-bib-file append-to-buffer mark append-to-file] 4 "\ Append current or previous entry to file of unread papers named by variable `unread-bib-file'." nil]) (defvar capitalize-title-stop-words (concat "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" "by\\|with\\|that\\|its") "\ Words not to be capitialized in a title (unless they're the first word in the title).") (byte-code "ÀÁ!„  ÄQÀ‡" [boundp capitalize-title-stop-regexp "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)"] 3) (defalias 'capitalize-title-region #[(begin end) "ÀÁ ÄŽŒÅ!ˆ}ˆebˆÉÊ!ƒ\"Ëvˆ‚&ÌË!ˆÍÎÀÏ#…RÉÊ!ƒ:Ëvˆ‚&ÏÉ!)ƒKÑË!ˆ‚&ÌË!ˆ‚&,‡" [nil syntax-table orig-syntax-table case-fold-search ((set-syntax-table orig-syntax-table)) set-syntax-table text-mode-syntax-table begin end looking-at "[A-Z][a-z]*[A-Z]" 1 capitalize-word re-search-forward "\\<" t capitalize-title-stop-regexp downcase-word] 4 "\ Like `capitalize-region', but don't capitalize stop words, except the first." "r"]) (defalias 'capitalize-title #[(s) "ŠÀÁ!qˆÂ ˆ cˆÄed\"ˆÅ )‡" [get-buffer-create "$$$Scratch$$$" erase-buffer s capitalize-title-region buffer-string] 3 "\ Like `capitalize', but don't capitalize stop words, except the first."]) (provide (quote bib-mode))