;;
;; $Id$
;; $Source$
;; $Author$
;;
;; Major mode for QMODEQ
;; (Replace QMODEQ with the name of your mode.  File should be called QMODEQ.el)
;;

(provide 'QMODEQ)

(defvar QMODEQ-mode-map nil
  "Keymap used for editing QMODEQ files.")
(if (null QMODEQ-mode-map)
    (progn
      (setq QMODEQ-mode-map (make-sparse-keymap))
      (define-key QMODEQ-mode-map "\C-c\C-a" 'QMODEQ-XXX)
      )
  )

(defun QMODEQ-XXX ()
  (interactive)
  (message "MAJOR QMODEQ")
  (sit-for 1)
  )

(defvar QMODEQ-mode-syntax-table nil
  "Syntax table in use in QMODEQ buffers.")
(if (null QMODEQ-mode-syntax-table)
    (progn
      (setq QMODEQ-mode-syntax-table (make-syntax-table))
      ;; (modify-syntax-entry ?% "<" QMODEQ-mode-syntax-table)
      )
  )

(defun QMODEQ-mode ()
  "Major mode for editing QMODEQ files."
  (interactive)
  (use-local-map QMODEQ-mode-map)
  (set-syntax-table QMODEQ-mode-syntax-table)
  (setq major-mode 'QMODEQ-mode)
  (setq mode-name "QMODEQ")
  ;;
  ;; Insert other local customization here
  ;;
  (run-hooks 'QMODEQ-mode-hook)
  )