Mercurial > emacs
comparison lisp/textmodes/bibtex.el @ 584:4cd7543be581
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 16 Mar 1992 20:39:07 +0000 |
parents | a819dc25b9e7 |
children | 8a533acedb77 |
comparison
equal
deleted
inserted
replaced
583:3c0c1cd8428a | 584:4cd7543be581 |
---|---|
67 ;;; by Marc Shairo) | 67 ;;; by Marc Shairo) |
68 | 68 |
69 ;;; Bengt Martensson, March 6 | 69 ;;; Bengt Martensson, March 6 |
70 ;;; Adapted to Bibtex 0.99 by updating the optional fields according | 70 ;;; Adapted to Bibtex 0.99 by updating the optional fields according |
71 ;;; to the document BibTeXing, Oren Patashnik, dated January 31, 1988. | 71 ;;; to the document BibTeXing, Oren Patashnik, dated January 31, 1988. |
72 ;;; Updated documentation strings accordingly. Added (provide 'bibtex). | 72 ;;; Updated documentation strings accordingly. Added . |
73 ;;; If bibtex-include-OPT-crossref is non-nil, every entry will have | 73 ;;; If bibtex-include-OPT-crossref is non-nil, every entry will have |
74 ;;; an OPTcrossref field, analogously for bibtex-include-OPTkey and | 74 ;;; an OPTcrossref field, analogously for bibtex-include-OPTkey and |
75 ;;; bibtex-include-OPTannote. Added bibtex-preamble, bound to ^C^EP, | 75 ;;; bibtex-include-OPTannote. Added bibtex-preamble, bound to ^C^EP, |
76 ;;; and also found in X- and sun-menus. Cleaned up the sun-menu | 76 ;;; and also found in X- and sun-menus. Cleaned up the sun-menu |
77 ;;; stuff, and made it more uniform with the X-menu stuff. Marc: I | 77 ;;; stuff, and made it more uniform with the X-menu stuff. Marc: I |
136 | 136 |
137 ;;; NOTE by Marc Shapiro, 14-dec-87: | 137 ;;; NOTE by Marc Shapiro, 14-dec-87: |
138 ;;; (bibtex-x-environment) binds an X menu for bibtex mode to x-button-c-right. | 138 ;;; (bibtex-x-environment) binds an X menu for bibtex mode to x-button-c-right. |
139 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding, | 139 ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding, |
140 ;;; so it will remain active in all windows. Yuck! | 140 ;;; so it will remain active in all windows. Yuck! |
141 | |
142 (provide 'bibtex) | |
143 | 141 |
144 (defvar bibtex-mode-syntax-table nil "") | 142 (defvar bibtex-mode-syntax-table nil "") |
145 (defvar bibtex-mode-abbrev-table nil "") | 143 (defvar bibtex-mode-abbrev-table nil "") |
146 (define-abbrev-table 'bibtex-mode-abbrev-table ()) | 144 (define-abbrev-table 'bibtex-mode-abbrev-table ()) |
147 (defvar bibtex-mode-map (make-sparse-keymap) "") | 145 (defvar bibtex-mode-map (make-sparse-keymap) "") |
1099 (local-set-mouse '(text right) 'bibtex-sun-menu-eval)) | 1097 (local-set-mouse '(text right) 'bibtex-sun-menu-eval)) |
1100 | 1098 |
1101 )) ; matches (if... | 1099 )) ; matches (if... |
1102 | 1100 |
1103 ;;; ------------- end bibtex-mode.el ------------------------------- | 1101 ;;; ------------- end bibtex-mode.el ------------------------------- |
1102 | |
1103 (provide 'bibtex)(provide 'bibtex) | |
1104 |