[Maxima-commits] CVS: maxima-pre59/emacs maxima-font-lock.el,NONE,1.1

[Jay B. <bel...@us...>]

Update of /cvsroot/maxima/maxima-pre59/emacs
In directory usw-pr-cvs1:/tmp/cvs-serv11073

Added Files:
	maxima-font-lock.el 
Log Message:
Initial commit of font-lock support for Emacs.


--- NEW FILE: maxima-font-lock.el ---
;;; maxima-font-lock-maker.el --- create maxima-font-lock.el for maxima.el

;; Copyright: (C) 2001 Jay Belanger

;; Author: Jay Belanger <bel...@tr...>
;; $Name:  $
;; $Revision: 1.1 $
;; $Date: 2001/11/08 22:23:36 $
;; Keywords: maxima, font-lock

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.
[...1173 lines suppressed...]
) 'words)
. font-lock-warning-face)
;; Also, ? followed by non-white space
(
"\\<\\?\\sw+\\>\\)"
. font-lock-warning-face)

;;;;; PREAMBLE
;;; (This is not a good way of doing it.)
(
"\\(GCL (GNU Common Lisp)  Version.*\\)\\|\\(Licensed under GNU Library General Public License\\)\\|\\(Contains Enhancements by W. Schelter\\)\\|\\(Maxima .*(with enhancements by W. Schelter).\\)\\|\\(Licensed under the GNU Public License (see file COPYING)\\)"
. font-lock-string-face))
"Keywords for font-locking in Maxima mode.")


(defvar inferior-maxima-font-lock-keywords
  (cons '("^[a-zA-Z].*$" . font-lock-warning-face) 
        maxima-font-lock-keywords))

;;; maxima-font-lock-maker.el ends here