(message "> Begin NT specific code")

;; ouch http://www.gnu.org/software/emacs/windows/faq3.html
;; when under windows, set emacs in full screen mode.
(w32-send-sys-command 61488)

(defun os-specific (a)
  (define-key a  "\C-cpb" 'bruce-nt-ps-print-buffer-with-faces)
  (define-key a  "\C-cpr" 'bruce-nt-ps-print-region-with-faces)
)
(setq ps-lpr-command "print")

(defun bruce-nt-ps-print-buffer-with-faces ()
  (interactive)
  (ps-print-buffer-with-faces ps-lpr-buffer)
  (shell-command
   (apply 'concat (append (list ps-lpr-command " ")
                          ps-lpr-switches
                          (list " " ps-lpr-buffer))))
)

(defun bruce-nt-ps-print-region-with-faces ()
  (interactive)
  (let ((beg (min (point) (mark)))
        (end (max (point) (mark))))
    (ps-print-region-with-faces beg end ps-lpr-buffer)
    (shell-command
     (apply 'concat (append (list ps-lpr-command " ")
                            ps-lpr-switches
                            (list " " ps-lpr-buffer))))))

(message "> End NT specific code")