Mercurial > emacs
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) |