procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(bibtex-font-lock-keywords, bibtex-mode):

Browse source 
Use word-syntax in patterns.

(bibtex-font-lock-keywords): Allow a more relaxed format
of the buffer and use more appropriate faces.
This commit is contained in:
Richard M. Stallman 1996-01-16 16:37:54 +00:00
parent 7563295303
commit 27abea5aa8
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/textmodes/bibtex.el
View file

@ -411,20 +411,17 @@ See the documentation of function bibtex-generate-autokey for further detail.")
(defvar bibtex-font-lock-keywords
(list
"^@[A-Za-z]*[({]"
;; reference type
'("^\\([ \t]*OPT[A-Za-z_-][A-Za-z0-9_-]*\\)[ \t]*="
'("\\(^@\\sw+\\)[ \t]*[({][ \t]*\\([^ \t\n,]*\\)"
(1 font-lock-keyword-face) (2 font-lock-reference-face))
;; reference type and reference label
'("^[ \t]*\\(OPT\\sw+\\)[ \t]*="
1 font-lock-comment-face)
;; optional field names
'("^\\([ \t]*[A-Za-z_-][A-Za-z0-9_-]*\\)[ \t]*="
1 font-lock-function-name-face)
;; optional field names (treated as comments)
'("^[ \t]*\\(\\sw+\\)[ \t]*="
1 font-lock-variable-name-face)
;; field names
'("^@[A-Za-z]*[({]\\([^\n,]*\\),"
1 font-lock-string-face)
;; reference labels
)
"*Fonts to use in BibTeX mode")
"*Default expressions to highlight in BibTeX mode.")
;; Syntax Table, Keybindings and BibTeX Entry List
(defvar bibtex-mode-syntax-table
@ -1385,7 +1382,8 @@ non-nil."
(auto-fill-mode 1)
(setq auto-fill-function 'bibtex-auto-fill-function)
(set (make-local-variable 'font-lock-defaults)
'(bibtex-font-lock-keywords nil t ((?$ . "\""))))
'(bibtex-font-lock-keywords
nil t ((?_ . "w") (?- . "w") (?$ . "\""))))
(run-hooks 'bibtex-mode-hook))
(defun bibtex-entry (entry-type &optional required optional)