 (defvar lusty-file-face font-lock-string-face)
 
 (defvar lusty-completions-buffer " *Lusty-Completions*")
-(defvar lusty-completion-separator "    ")
+(defvar lusty-column-separator "    ")
 (defvar lusty-no-entries-string
   (propertize "-- NO ENTRIES --" 'face 'font-lock-warning-face))
 (defvar lusty-truncated-string


;;; Code:

(require 'font-lock)
(require 'advice)
(require 'iswitchb)
(eval-when-compile (require 'cl))

(defvar lusty-match-face font-lock-function-name-face)
(defvar lusty-directory-face font-lock-type-face)

  (apply 'insert args))

(defadvice minibuffer-complete (around lusty-completion-wrapper activate)
  "Circumvent default completion in *Completions* window."
  (ecase lusty--active-mode
    (:file-explorer (lusty-file-explorer-minibuffer-tab-complete))
    (:buffer-explorer (lusty-buffer-explorer-minibuffer-tab-complete))
