;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:13:31 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/bib-mode.el ;;; emacs version 19.28.90.69. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/bib-mode.el' was compiled for Emacs 19")) #@40 Default name of file used by `addbib'. (defvar bib-file "~/my-bibliography.bib" (#$ . 485)) #@56 Default name of file used by `unread-bib' in Bib mode. (defvar unread-bib-file "~/to-be-read.bib" (#$ . 583)) (byte-code "ÀÁ!„\n !Á\fBÅ ÆÇ#ˆÅ ÈÉ#ˆÅ ÊË#ˆÅ ÌÍ#‡" [boundp bib-mode-map copy-keymap text-mode-map current-load-list define-key " " return-key-bib "" unread-bib "" mark-bib "`" abbrev-mode] 4) #@31 Abbrev table used in Bib mode (defvar bib-mode-abbrev-table nil (#$ . 899)) #@123 Set up editor to add to troff bibliography file specified by global variable `bib-file'. See description of `bib-mode'. (defalias 'addbib #[nil "À !ˆdbˆÂ ‡" [find-file bib-file bib-mode] 2 (#$ . 982) nil]) #@1144 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}  (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 (#$ . 1198) nil]) #@129 Describes bibliographic database format. A line beginning with the car of an entry is followed by one beginning with the cdr.  (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 "))) (#$ . 2607)) (defalias 'bib-find-key #[(slots) "„oƒ\nÁ‡ÂÃ!ˆÄ !‡Æ@@!ƒ@A‡ÄA!‡" [slots "" previous-line 1 bib-find-key bib-assoc looking-at] 2]) #@67 *True to automatically capitalize appropriate fields in Bib mode. (defvar bib-auto-capitalize t (#$ . -3247)) (byte-code "ÀÁ\nBÁ‡" ["%[AETCBIJR]" bib-capitalized-fields current-load-list] 2) #@50 Magic when user hits return, used by `bib-mode'. (defalias 'return-key-bib #[nil "lƒ^À‰‰‰ÅyˆÆÇ!‰„ ÀˆÈ ˆÉyˆÀˆ`Åyˆ`Ê !\f„H\fƒHÆ !ƒHŠÎ`Ï\\ \"ˆ)\nbˆ\fƒ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 (#$ . 3446) nil]) #@71 Set mark at beginning of current or previous bib entry, point at end. (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 (#$ . 3852) nil]) #@96 Append current or previous entry to file of unread papers named by variable `unread-bib-file'. (defalias 'unread-bib #[nil "À ˆÁ\n!ƒÃÁ\n!Ä `#‡ÅÄ `\n#‡" [mark-bib get-file-buffer unread-bib-file append-to-buffer mark append-to-file] 4 (#$ . 4125) nil]) #@87 Words not to be capitialized in a title (unless they're the first word in the title). (defvar capitalize-title-stop-words (concat "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" "by\\|with\\|that\\|its") (#$ . 4385)) (byte-code "ÀÁ!„  ÄQÁ BÀ‡" [boundp capitalize-title-stop-regexp "\\(" capitalize-title-stop-words "\\)\\(\\b\\|'\\)" current-load-list] 3) #@78 Like `capitalize-region', but don't capitalize stop words, except the first. (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 (#$ . 4773) "r"]) #@71 Like `capitalize', but don't capitalize stop words, except the first. (defalias 'capitalize-title #[(s) "ŠÀÁ!qˆÂ ˆ cˆÄed\"ˆÅ )‡" [get-buffer-create "$$$Scratch$$$" erase-buffer s capitalize-title-region buffer-string] 3 (#$ . 5273)]) (provide (quote bib-mode))