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

          (minibuffer-complete-and-exit))
      ;;
      ;; Update the completion window.
      (let ((lusty-buffer (get-buffer-create lusty-completions-buffer)))
        (with-current-buffer lusty-buffer
          (setq buffer-read-only t)
          (let ((buffer-read-only nil))

                 (not (string= lusty--previous-contents
                               (minibuffer-contents-no-properties)))))
    (unless lusty--initial-window-config
      ;; (Only run when the explorer function is initially executed.)
      (lusty-setup-completion-window)
      ;;
      ;; Window configuration may be restored intermittently.
      (setq lusty--initial-window-config (current-window-configuration)))

    ;; TODO: check that last 'element' in minibuffer string is valid
