comparison lisp/hilit19.el @ 10133:3f9bc256eb13

Add patterns for asm-mode.
author Karl Heuer <kwzh@gnu.org>
date Fri, 09 Dec 1994 06:24:22 +0000
parents f26cd3c14187
children 97da4cb32d03
comparison
equal deleted inserted replaced
10132:d6ab8efcd2ff 10133:3f9bc256eb13
1470 'calendar-mode 1470 'calendar-mode
1471 '(("[A-Z][a-z]+ [0-9]+" nil define) ; month and year 1471 '(("[A-Z][a-z]+ [0-9]+" nil define) ; month and year
1472 ("S M Tu W Th F S" nil label))) ; week days 1472 ("S M Tu W Th F S" nil label))) ; week days
1473 1473
1474 (hilit-set-mode-patterns 1474 (hilit-set-mode-patterns
1475 'asm-mode
1476 '(("/\\*" "\\*/" comment)
1477 ("^#[ \t]*\\(undef\\|define\\).*$" "[^\\]$" define)
1478 ("^#.*$" nil include)
1479 ;; labels
1480 ("^.+:" nil defun)
1481 ;; assembler directives
1482 ("^[ \t]*\\..*$" nil decl)
1483 ;; register names
1484 ("\\$[a-z0-9]+" nil string)
1485 ;; mnemonics
1486 ("^[ \t]*[a-z]+" nil struct)))
1487
1488 (hilit-set-mode-patterns
1475 'pascal-mode 1489 'pascal-mode
1476 '(("(\\*" "\\*)" comment) 1490 '(("(\\*" "\\*)" comment)
1477 ("{" "}" comment) 1491 ("{" "}" comment)
1478 ;; Doesn't work when there are strings in comments.... 1492 ;; Doesn't work when there are strings in comments....
1479 ;; ("'[^']*'" nil string) 1493 ;; ("'[^']*'" nil string)