   "If non-nil, when locate opens a new window it will give it the focus."
   :group 'merlin :type 'boolean)
 
+(defcustom merlin-logfile nil
+  "If non-nil, use this file for the log file (should be an absolute path)"
+  :group 'merlin :type 'filename)
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal variables ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;

(defvar merlin-process-queue nil
  "The transaction queue for the local process (only valid in a process buffer).")
(make-variable-buffer-local 'merlin-process-queue)

(defvar merlin-process-last-user nil
  "Last buffer that used the local process (only valid in a process buffer).")


(defun merlin-one-group ()
  "Groups every buffer in one emacs instance."
  (append
   '((name . "default"))
   (if merlin-logfile (list (cons 'logfile merlin-logfile)))))

(defun merlin-dir-group ()
  "Group buffers by directory" ()
