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