 (defun pir-uncomment-region (beg end &optional arg)
   "Uncomment each line in the region as PIR code."
   (interactive "r\nP")
-  (or arg (setq arg1))
-  (octave-comment-region beg end (- arg)))
+  (or arg (setq arg 1))
+  (pir-comment-region beg end (- arg)))
 
  

  (easy-menu-add pir-mode-menu-map pir-mode-map))



(provide 'pir-mode)
(provide 'pir-mode)

;;; pir-mode.el ends here

  "*The default comment column for PIR code."
  :type 'integer
  :group 'pir)

(defcustom pir-block-comment-start
  (concat (make-string 2 pir-comment-char) " ")
  "String to insert to start a new PIR comment on an empty line."
  :type 'string
  :group 'pir)

(defcustom pir-auto-indent-flag nil
  "*Non-nil means indent line after a semicolon or space in PIR mode."
  :type 'boolean
  :group 'pir)

(defcustom pir-auto-newline nil
  "*Non-nil means automatically newline after a semicolon in PIR mode."
  :type 'boolean
  :group 'pir)

(defcustom pir-blink-matching-block t
  "*Control the blinkin of matching PIR block keywords.
Non-nil means show matching begin of block when inserting a space,
newline or semicolon after an end keyword."
  :type 'boolean
  :group 'pir)

(defcustom pir-basic-indent 8
  "*Extra indentation applied to statements in PIR block structures."
  :type 'integer
  :group 'pir)


(defvar pir-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "\C-c;"     'pir-comment-region)
