  '(menu-bar-mode nil)
  '(mode-line-format (quote (" " mode-line-mule-info mode-line-modified " " mode-line-buffer-identification " " global-mode-string " %[(" mode-name mode-line-process minor-mode-alist "%n" ")%] " (line-number-mode "L%l ") (column-number-mode "C%c ") (-3 . "%p"))))
  '(mode-line-inverse-video t)
+ '(mouse-buffer-menu-maxlen 100)
+ '(mouse-buffer-menu-mode-mult 100)
  '(speedbar-show-unknown-files t)
  '(tool-bar-mode nil nil (tool-bar))
  '(verilog-auto-delete-trailing-whitespace t)
  '(verilog-auto-inst-column 10)
  '(verilog-auto-newline nil)
- '(verilog-indent-begin-after-if nil)
- '(mouse-buffer-menu-maxlen 100)
- '(mouse-buffer-menu-mode-mult 100)
-)
+ '(verilog-indent-begin-after-if nil))
 
 (load-file (concat "/home/" (getenv "USER")
 		   "/pfk/etc/go-mode.el"))

	   (let ((minibuftitle (concat "Emacs Minibuffer" desktop)))
	     (setq
	      default-frame-alist '((minibuffer . nil)
	    (font . "-misc-*-*-r-semicondensed-*-13-120-*-*-*-*-iso8859-1")
				    (width . 81)
				    (cursor-color . "red"))
	      initial-frame-alist 'nil

 '(mouse ((t (:background "white" :foreground "black"))))
 '(scroll-bar ((t (:background "grey85" :foreground "red")))))

(defun my-init-hook ()
  ""
  (progn
;    (message "my-init-hook was run")
    ))

(add-hook 'after-init-hook 'my-init-hook)

(setq pfk-small-font "Source Code Pro Medium-9")
(setq pfk-big-font   "Source Code Pro Medium-14")

(defun my-fix-minibuffer ()
  ""
  (progn
    (select-frame default-minibuffer-frame)
    (set-frame-font "Source Code Pro Medium-10")
    ))

(run-at-time 1 nil 'my-fix-minibuffer)

(defun my-make-frame-hook (frame)
  ""
  (interactive)
  (progn
    (select-frame frame)
    (set-frame-font pfk-small-font)
    (set-foreground-color "yellow")
    (set-background-color "black")
    (set-cursor-color "red")
    ))

(add-hook 'after-make-frame-functions 'my-make-frame-hook)

(cond (window-system
       (progn
