;; Set Font Lock (Syntax highlighting)
(require 'font-lock)
(setq initial-major-mode
      (lambda ()
	(text-mode)
	(font-lock-mode)))
(setq font-lock-mode-maximum-decoration t
      font-lock-use-default-fonts t
      font-lock-use-default-colors t)
(if (fboundp 'global-font-lock-mode)
    (global-font-lock-mode t))

;; Use c-mode for McStas .instr files
(setq auto-mode-alist (cons '("\\.instr\\'" . c-mode) auto-mode-alist))