 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))
+    p4-executable)
 
 ;; The kill-buffer hook for p4.
 (defun p4-kill-buffer-hook ()

;;; All functions start here.

;; A generic function that we use to execute p4 commands
(eval-and-compile
  (defun p4-exec-p4 (output-buffer args &optional clear-output-buffer)
    "Internal function called by various p4 commands.
Executes p4 in the current buffer's current directory
with output to a dedicated output buffer.

		 (boundp 'hilit-auto-rehighlight))
	    (setq hilit-auto-rehighlight nil))
	result)))

(defun p4-call-p4-here (&rest args)
    "Internal function called by various p4 commands.
Executes p4 in the current buffer (generally a temp)."
    (apply 'call-process (p4-check-p4-executable) nil
	   t
	   nil			; update display?
	   "-d" default-directory  ;override "PWD" env var
	   args))

(defun p4-push-window-config ()
  "Push the current window configuration on the `p4-window-config-stack'
