 (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))

;;    read-file-name-completion-ignore-case TODO
;;    read-buffer-completion-ignore-case TODO
;;

;;; Code:


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