Extent novaboot mode for Emacs

diff --git a/contrib/novaboot-mode.el b/contrib/novaboot-mode.el
index fd068b05777d2a894ae90d2d6019bb6c0c7525d4..e3b5e402a5f8f44ad9ca3614eb7bdbec6b863bbc 100644 (file)
--- a/contrib/novaboot-mode.el
+++ b/contrib/novaboot-mode.el
@@ -38,7 +38,8 @@
       (modify-syntax-entry (pop list) (pop list) table))
     table))
 
-(defvar novaboot-mode-font-lock-keywords
+(defvar novaboot-mode-font-lock-keywords)
+(setq novaboot-mode-font-lock-keywords
   `(("^#.*" . font-lock-comment-face)
     ("^load\\>.*\\(<<EOF\\)\n\\(\\(?:.*\n\\)*?\\)\\(EOF\\)\n"
      (1 font-lock-preprocessor-face)
@@ -51,6 +52,7 @@
      (1 font-lock-string-face))
     ("^\\(run\\|uboot\\)\\>" . font-lock-keyword-face)
     ("^\\([A-Z_]+\\)=" (1 font-lock-variable-name-face))
+    ("\\$\\(NB_\\(MYIP\\|PREFIX\\)\\)\\>" (1 font-lock-variable-name-face))
     ))
 
 (defun novaboot-font-lock-extend-region ()
@@ -78,6 +80,8 @@
   (set (make-local-variable 'font-lock-defaults)
        '(novaboot-mode-font-lock-keywords t))
   (set (make-local-variable 'font-lock-verbose) t)
+  (set (make-local-variable 'comment-start) "# ")
+  (set (make-local-variable 'comment-end) "")
   (setq font-lock-multiline t)
   (add-hook 'font-lock-extend-region-functions 'novaboot-font-lock-extend-region)
   (add-hook 'post-self-insert-hook 'novaboot-post-self-insert))