   "Syntax highlighting for Sparkling mode"
 )
 
-(set-face-foreground 'font-lock-string-face "Gold")
+;; (set-face-foreground 'font-lock-string-face "Gold")
 
 ;; Indentation
 

  "Keymap for Sparkling major mode"
)

;; automatically turn it on
(add-to-list 'auto-mode-alist '("\\.spn\\'" . sparkling-mode))

(defvar sparkling-font-lock-keywords
  (list
   '("\\<\\(and\\|break\\|continue\\|do\\|e\\(lse\\|xtern\\)\\|f\\(n\\|or\\)\\|if\\|let\\|not\\|or\\|return\\|sizeof\\|while\\)\\>" . font-lock-keyword-face)

;; define major mode hook
;;; Code:
(defvar sparkling-mode-hook nil)

;; Local variables
(defgroup sparkling nil
  "Major mode for editing Sparkling code."
  :prefix "sparkling-"
  :group 'languages)

(defcustom sparkling-indent-offset 4
  "*Indentation offset for `sparkling-mode'."
  :type 'integer
  :group 'sparkling
  :safe #'integerp)

(defcustom sparkling-mode-hook nil
  "Hooks called on Sparkling mode."
  :type 'hook
  :group 'sparkling)

(eval-when-compile
  ;; Silence compilation warning about `compilation-error-regexp-alist' defined
  ;; in compile.el.
  (require 'compile))

(eval-and-compile
  (if (fboundp 'setq-local)
      (defalias 'sparkling--setq-local 'setq-local)
    (defmacro sparkling--setq-local (var val)
      `(set (make-local-variable (quote ,var)) ,val)))

  ;; Backward compatibility for Emacsen < 24.1
  (unless (fboundp 'prog-mode)
    (define-derived-mode prog-mode fundamental-mode "Prog")))

(defun sparkling-eval-replace-expr (start end)
  "Evaluate the contents of the selected region (or the region between START and END) as an expression and replace it with the result."
