Mercurial > emacs

comparison lisp/textmodes/bibtex-style.el @ 110538:77c2be84591c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move some autoloaded auto-mode-alist entries to files.el. * image-mode.el, progmodes/compile.el, progmodes/gud.el: * progmodes/mixal-mode.el, textmodes/bibtex-style.el: * textmodes/css-mode.el, textmodes/dns-mode.el: Move autoloaded auto-mode-alist entries to files.el. * files.el (auto-mode-alist): Move entries here.
author Glenn Morris <rgm@gnu.org>
date Thu, 23 Sep 2010 20:06:33 -0700
parents 1d1d5d9bd884
children 417b1e4d63cd
comparison
equal deleted inserted replaced
110537:bc1aa8d4c8dd 110538:77c2be84591c
1 ;;; bibtex-style.el --- Major mode for BibTeX Style files 1 ;;; bibtex-style.el --- Major mode for BibTeX Style files
2 2
3 ;; Copyright (C) 2005, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 3 ;; Copyright (C) 2005, 2007, 2008, 2009, 2010
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> 6 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
6 ;; Keywords: tex 7 ;; Keywords: tex
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
60 (defvar bibtex-style-font-lock-keywords 61 (defvar bibtex-style-font-lock-keywords
61 `((,(regexp-opt bibtex-style-commands 'words) . font-lock-keyword-face) 62 `((,(regexp-opt bibtex-style-commands 'words) . font-lock-keyword-face)
62 ("\\w+\\$" . font-lock-keyword-face) 63 ("\\w+\\$" . font-lock-keyword-face)
63 ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" 64 ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}"
64 (2 font-lock-function-name-face)))) 65 (2 font-lock-function-name-face))))
65
66 ;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.bst\\'") 'bibtex-style-mode))
67 66
68 ;;;###autoload 67 ;;;###autoload
69 (define-derived-mode bibtex-style-mode nil "BibStyle" 68 (define-derived-mode bibtex-style-mode nil "BibStyle"
70 "Major mode for editing BibTeX style files." 69 "Major mode for editing BibTeX style files."
71 (set (make-local-variable 'comment-start) "%") 70 (set (make-local-variable 'comment-start) "%")