[PD-cvs] scripts pd-mode.el,1.1,1.2

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12824

Modified Files:
	pd-mode.el 
Log Message:
now colorizes all object names

Index: pd-mode.el
===================================================================
RCS file: /cvsroot/pure-data/scripts/pd-mode.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pd-mode.el	17 Nov 2005 22:12:55 -0000	1.1
--- pd-mode.el	19 Nov 2005 06:27:40 -0000	1.2
***************
*** 63,72 ****
      (list (concat                                       ; object types
             "^#X \\("
!            (regexp-opt '("canvas" "connect" "floatatom" "msg" 
! 								 "obj" "restore" "scalar" "struct" 
  								 "symbolatom" "text"))
             "\\) ")
        1 'font-lock-type-face)
  
  	 ; connect numbers
      (list "^#X connect \\([0-9]+\\) [0-9]+ [0-9]+ [0-9]+"
--- 63,77 ----
      (list (concat                                       ; object types
             "^#X \\("
!            (regexp-opt '("connect" "floatatom" "msg" "obj" "scalar" "struct" 
  								 "symbolatom" "text"))
             "\\) ")
        1 'font-lock-type-face)
  
+     (list (concat                                       ; object types
+            "\\(^#[NX] "
+            (regexp-opt '("canvas" "restore"))
+            "\\) ")
+       1 'font-lock-warning-face)
+ 
  	 ; connect numbers
      (list "^#X connect \\([0-9]+\\) [0-9]+ [0-9]+ [0-9]+"
***************
*** 88,114 ****
      (list "\\(^#X\\)" 0 'font-lock-builtin-face t)
  
!     (list "\\(^#N\\)" 0 'font-lock-constant-face t)
  
  ;    (list "^#N.*$" 0 'font-lock-comment-face t)
  
!     (list (concat                                       ; object names
!        "\\Wobj\\W[0-9]+\\W[0-9]+\\W\\("
!            (regexp-opt '("+" "+~" "-" "-~"
! 								 "a2l" "adc~" "any2list" "bang" "bng" "cnv"
! 								 "dac~" "del" "delay"
! 								 "expr"
! 								 "f" "float"
! 								 "hsl" 
! 								 "i" "int" "loadbang"
! 								 "makefilename" "metro" "mod" 
! 								 "openpanel"
! 								 "pack" "pddp" "pddplink"
!                          "print"
! 								 "r" "route" 
! 								 "s" "savepanel" "sel" "select" "symbol"
! 								 "t" "tgl" "trigger"
! 								 "unpack" "vsl"))
!            "\\)\\W")
!       1 'font-lock-constant-face)))
    "Expressions to highlight in Pd config buffers.")
  
--- 93,109 ----
      (list "\\(^#X\\)" 0 'font-lock-builtin-face t)
  
! ;    (list "\\(^#N\\)" 0 'font-lock-constant-face t)
  
  ;    (list "^#N.*$" 0 'font-lock-comment-face t)
  
!     (list "^#X obj [0-9]+ [0-9]+ \\([a-zA-Z0-9+*._-]+\\)[ ;]" 
! 			 1 'font-lock-constant-face t)
! 
!     (list "^#X msg [0-9]+ [0-9]+ \\([a-zA-Z0-9+*._-]+\\);" 
! 			 1 'font-lock-variable-name-face)
! 
! ;    (list "^#X text [0-9]+ [0-9]+ \\(.*\\);" 
! ;			 1 'font-lock-comment-face)
! 	 ))
    "Expressions to highlight in Pd config buffers.")