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

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

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

Modified Files:
	maxima-font-lock.el 
Log Message:
I fixed the way numbers are fontlocked.


Index: maxima-font-lock.el
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/emacs/maxima-font-lock.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** maxima-font-lock.el	2001/11/11 01:47:41	1.2
--- maxima-font-lock.el	2001/12/09 19:37:38	1.3
***************
*** 4,10 ****
  
  ;; Author: Jay Belanger <bel...@tr...>
- ;; $Name$
- ;; $Revision$
- ;; $Date$
  ;; Keywords: maxima, font-lock
  
--- 4,7 ----
***************
*** 1080,1084 ****
  
  (defvar maxima-match-constants-3
!   "[0-9]"
    "Regexp to match the Maxima constants.")
  
--- 1077,1085 ----
  
  (defvar maxima-match-constants-3
!   "\\<\\([0-9]+\\)\\>"
!   "Regexp to match the Maxima constants.")
! 
! (defvar maxima-match-constants-4
!   "\\<\\([0-9]+\.\\)?\\([0-9]+B[+-]?[0-9]\\)\\>"
    "Regexp to match the Maxima constants.")
  
***************
*** 1312,1315 ****
--- 1313,1317 ----
  (defvar maxima-keywords
    `(
+     (,maxima-match-operators (0  maxima-operator-face t))
      (,maxima-match-variables-1 (0 maxima-variable-face t))
      (,maxima-match-variables-2 (0 maxima-variable-face t))
***************
*** 1325,1330 ****
      (,maxima-match-constants-2 (0  maxima-constant-face t))
      (,maxima-match-constants-3 (0  maxima-constant-face t))
      (,maxima-match-keywords (0  maxima-keyword-face t))
-     (,maxima-match-operators (0  maxima-operator-face t))
      (,maxima-match-properties (0  maxima-property-face t))
      (,maxima-match-macros (0  maxima-macro-face t))
--- 1327,1332 ----
      (,maxima-match-constants-2 (0  maxima-constant-face t))
      (,maxima-match-constants-3 (0  maxima-constant-face t))
+     (,maxima-match-constants-4 (0  maxima-constant-face t))
      (,maxima-match-keywords (0  maxima-keyword-face t))
      (,maxima-match-properties (0  maxima-property-face t))
      (,maxima-match-macros (0  maxima-macro-face t))