     buffers))
 
 (defun project-status ()
-  "View project's variables."
-  (interactive)
-  (if mk-proj-basedir
-      (let ((msg))
-        (dolist (v mk-proj-proj-vars)
-          (setq msg (concat msg (format "%-24s = %s\n" v (symbol-value v)))))
-        (message msg))
-    (message "No project loaded.")))
+ "View project's variables."
+ (interactive)
+ (if mk-proj-basedir
+   (let ((b (get-buffer-create "*project-status*")))
+     (with-current-buffer b
+       (kill-region (point-min) (point-max))
+       (dolist (v mk-proj-proj-vars)
+         (insert (format "%-24s = %s\n" v (symbol-value v)))))
+     (when (not (eq b (current-buffer)))
+       (switch-to-buffer-other-window b)))
+   (message "No project loaded.")))
 
 ;; ---------------------------------------------------------------------
 ;; Save/Restore open files

                             (cvs . "'*/.CVS/*'")
                             (svn . "'*/.svn/*'")
                             (bzr . "'*/.bzr/*'")
                             (hg  . "'*/.hg/*'"))
  "When `mk-proj-vcs' is one of the VCS types listed here, ignore
the associated paths when greping or indexing the project. This
value is not used if a custom find command is set in

          mk-proj-ack-args " "
          regex))

(defun project-ack (&optional phrase from-current-dir)
  "Run ack from project's basedir, using the `ack-args' configuration.
With C-u prefix, start ack from the current directory."
  (interactive)
  (mk-proj-assert-proj)
  (let* ((wap (word-at-point))
         (regex (or phrase
                    (if wap (read-string (concat "Ack project for (default \"" wap "\"): ") nil nil wap)
                  (read-string "Ack project for: "))))
         (whole-cmd (mk-proj-ack-cmd regex))
         (confirmed-cmd (read-string "Ack command: " whole-cmd nil whole-cmd))
         (default-directory (file-name-as-directory
                             (if (or from-current-dir (mk-proj-has-univ-arg))
                                 default-directory
                               mk-proj-basedir))))
    (compilation-start confirmed-cmd 'ack-mode)))
