   "If non-nil, report warnings, otherwise ignore them."
   :group 'merlin :type 'boolean)
 
+(defcustom merlin-buffer-name "*merlin*"
+  "The name of the buffer storing module signatures."
+  :group 'merlin :type 'string)
+
 (defcustom merlin-type-buffer-name "*merlin-types*"
   "The name of the buffer storing module signatures."
   :group 'merlin :type 'string)


(defun merlin-process-dead-p ()
  "Return non-nil if merlin process is dead."
  (and (merlin-get-process)
       (not (equal (process-status (merlin-get-process)) 'run))))

(defun merlin-lighter ()
  "Return the lighter for merlin which indicates the status of merlin process."

  "Set up a buffer for use with merlin."
  (interactive)
  (set (make-local-variable 'merlin-lock-point) (point-min))
  ; if there is not yet a merlin process
  (when (not (merlin-process-started-p))
    (merlin-start-process merlin-current-flags))
  (when (and (fboundp 'auto-complete-mode)
             merlin-use-auto-complete-mode)
    (auto-complete-mode 1)
