diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2005-09-19 21:30:02 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2005-09-19 21:30:02 +0000 |
| commit | 78bc79a1ed2623c1d900a333135bf30b9ed361d5 (patch) | |
| tree | 51d7789055dc62db1db1e29c9bc5cc2711b89c6b | |
| parent | 6406b07aab0805a2096822e1289b83b0284c5ff1 (diff) | |
| download | mdk-78bc79a1ed2623c1d900a333135bf30b9ed361d5.tar.gz mdk-78bc79a1ed2623c1d900a333135bf30b9ed361d5.tar.bz2 | |
Further fixes by Pieter
| -rw-r--r-- | misc/mixal-mode.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/misc/mixal-mode.el b/misc/mixal-mode.el index 4782206..f9841ed 100644 --- a/misc/mixal-mode.el +++ b/misc/mixal-mode.el @@ -45,6 +45,10 @@ ;; Have fun. ;;; History: +;; Version 0.2: +;; 06/04/05: mixasm no longer needs -g option +;; fontlocking of comments works in all? cases now +;; added some more mixal-operation-codes ;; Version 0.1: ;; Version 0.1.1: ;; 22/11/02: bugfix in fontlocking, needed to add a '-' to the regex. @@ -69,8 +73,8 @@ ;;; Syntax table (defvar mixal-mode-syntax-table (let ((st (make-syntax-table))) - (modify-syntax-entry ?* "<" st) - (modify-syntax-entry ?\n ">" st) + ; (modify-syntax-entry ?* "<" st) we need to do a bit more to make + ; (modify-syntax-entry ?\n ">" st) fontlocking for comments work st) "Syntax table for `dot-mode'.") @@ -95,6 +99,7 @@ value.") "LD4" "LD5" "LD6" "LDX" "LDAN" "LD1N" "LD2N" "LD3N" "LD4N" "LD5N" "LD6N" "LDXN" "STA" "ST1" "ST2" "ST3" "ST4" "ST5" "ST6" "STX" "STJ" "STZ" "JBUS" "IOC" "IN" "OUT" "JRAD" "JMP" "JSJ" "JOV" "JNOV" + "JL" "JE" "JG" "JGE" "JNE" "JLE" "JAN" "J1N" "J2N" "J3N" "J4N" "J5N" "J6N" "JXN" "JAZ" "J1Z" "J2Z" "J3Z" "J4Z" "J5Z" "J6Z" "JXZ" "JAP" "J1P" "J2P" "J3P" "J4P" "J5P" "J6P" "JXP" @@ -122,8 +127,11 @@ value.") (,(regexp-opt mixal-assembly-pseudoinstructions 'words) . mixal-font-lock-assembly-pseudoinstruction-face) - ("^[A-Z0-9a-z]*[ \t]+[A-Z0-9a-z]+[ \t]+[\\-A-Z0-9a-z,():]*[\t]+\\(.*\\)$" - (1 font-lock-comment-face))) + ("^[A-Z0-9a-z]*[ \t]+[A-ZO-9a-z]+[ \t]+\\(=.*=\\).*$" + (1 font-lock-constant-face)) + ("^[A-Z0-9a-z]*[ \t]+[A-Z0-9a-z]+[ \t]+[A-Z0-9a-z,():+-\\*=\" ]*[\t]+\\(.*\\)$" + (1 font-lock-comment-face)) + ("^\\*.*$" . font-lock-comment-face)) "Keyword highlighting specification for `mixal-mode'.") ; (makunbound 'mixal-font-lock-keywords) |