   :type 'sexp
   :group 'p4)
 
-(eval-and-compile
-  (defvar p4-output-buffer-name "*P4 Output*" "P4 Output Buffer."))
+(defvar p4-output-buffer-name "*P4 Output*" "P4 Output Buffer.")
 
 ;; Set this variable in .emacs if you want p4-set-client-name to complete
 ;; your client name for you.

Argument P4-EXE-NAME The new value of the p4 executable, with full path."
    (interactive "fFull path to your P4 executable: " )
    (setq p4-executable p4-exe-name)
    p4-executable))

;; The kill-buffer hook for p4.
(defun p4-kill-buffer-hook ()

	   (easy-menu-add (p4-mode-menu "P4"))))
    t)

(defun p4-help-text (cmd text)
    (if cmd
	(let ((buf (generate-new-buffer p4-output-buffer-name))
	      (help-text ""))
