; dvips
(defun my-dvips nil
  (interactive)
  (shell-command 
   (concat "dvips " (substring (buffer-name) 0 -4) ".dvi")))
(global-set-key "\C-cps" ' my-dvips )
; evince (PostScript viewer)
(defun my-evince nil
  (interactive)
  (shell-command 
   (concat "evince " (substring (buffer-name) 0 -4) ".ps &")))
(global-set-key "\C-cpp" ' my-evince )
; dvips -E -o output.eps input.dvi
(defun my-dvips-eps nil
  (interactive)
  (setq my-dvips-eps-filename (substring (buffer-name) 0 -4))
  (shell-command 
   (concat "dvips -E -o" my-dvips-eps-filename ".eps "
	   my-dvips-eps-filename ".dvi")))
(global-set-key "\C-cEps" ' my-dvips-eps)

http://arataka.wordpress.com/2008/04/13/pstrick%e3%81%8c%e4%bd%bf%e3%81%84%e3%82%84%e3%81%99%e3%81%8f%e3%81%aa%e3%82%8b%ef%bc%88%e3%81%8b%e3%82%82%e3%81%97%e3%82%8c%e3%81%aa%e3%81%84%ef%bc%89emacs/

just paste it to your .emacs

.emacs for PSTrick user

Emacs Lisp