fix regex
This commit is contained in:
		
							parent
							
								
									290692570f
								
							
						
					
					
						commit
						6a3cdeca00
					
				
							
								
								
									
										13
									
								
								ztl-mode.el
								
								
								
								
							
							
						
						
									
										13
									
								
								ztl-mode.el
								
								
								
								
							| 
						 | 
				
			
			@ -5,10 +5,6 @@
 | 
			
		|||
 | 
			
		||||
(defconst ztl-mode-syntax-table
 | 
			
		||||
  (let ((syn-table (make-syntax-table)))
 | 
			
		||||
    (modify-syntax-entry ?! "< b" syn-table) ; Line comment (extend to end of line)
 | 
			
		||||
    (modify-syntax-entry ?\[ "(]" syn-table)
 | 
			
		||||
    (modify-syntax-entry ?\] ")[" syn-table)
 | 
			
		||||
    (modify-syntax-entry ?\" "\"" syn-table)
 | 
			
		||||
    syn-table))
 | 
			
		||||
 | 
			
		||||
(defvar ztl-keywords
 | 
			
		||||
| 
						 | 
				
			
			@ -39,11 +35,12 @@
 | 
			
		|||
    ("\\_<\\([A-Z][a-zA-Z0-9_]+\\)\\>" 1 font-lock-type-face)
 | 
			
		||||
 | 
			
		||||
    ;; Function definitions
 | 
			
		||||
    ("\\_<fn\\>\\s-+\\(\\w+\\)\\s-*(" (1 font-lock-function-name-face))
 | 
			
		||||
    ("\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\([ \t\n\r]*\\)(" 1 font-lock-function-name-face)
 | 
			
		||||
 | 
			
		||||
    ("\\b[0-9]+\\b" 1 font-lock-number-face)
 | 
			
		||||
 | 
			
		||||
    ))
 | 
			
		||||
 | 
			
		||||
    ;; Function calls
 | 
			
		||||
    ("\\_<\\(\\w+\\)\\s-*(\\>" (1 font-lock-function-name-face))
 | 
			
		||||
))
 | 
			
		||||
 | 
			
		||||
(define-derived-mode ztl-mode prog-mode "ZTL"
 | 
			
		||||
  "Major mode for ZTL programming."
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue