(setq default-frame-alist '( (cursor-color . "blue") (cursor-type . box)))
(gnuserv-start) (setq gnuserv-frame (selected-frame))