From 262f5c37cc39ed18c503f6fd29e9d2c3cd95bb6f Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 19 Sep 2005 21:30:02 +0000 Subject: Further fixes by Pieter --- misc/mixal-mode.el | 16 ++++++++++++---- 1 file 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) -- cgit v1.2.3