 
   (pir-initialize-completions)
   (pir-add-pir-menu)
-  
+
   (run-hooks 'pir-mode-hook))
 
 (defun pir-describe-major-mode ()

    (modify-syntax-entry ?$  "'" st)
    (modify-syntax-entry ?,  "."  st)
    (modify-syntax-entry ?.  ". p"  st)
    st))

(defvar pir-PMC-keyword-symbols
  '("Array" "Boolean" "Compiler" "Continuation" "Coroutine" "CSub"

  (use-local-map pir-mode-map)
  (setq major-mode 'pir-mode)
  (setq mode-name "PIR")

  (set-syntax-table pir-mode-syntax-table)

  (setlocalq font-lock-defaults '(pir-font-lock-keywords))
  (setlocalq indent-line-function 'pir-indent-line)
  (setlocalq pir-basic-indent pir-basic-indent)
  (setlocalq require-final-newline t)

  (setlocalq comment-start "# ")
  (setlocalq comment-end "")
  (setlocalq comment-column pir-comment-column)
