(interactive
(let ((styles (directory-files liece-window-style-directory)))
(list
- (liece-minibuffer-completing-default-read
- "Window style: " (list-to-alist styles) nil t
+ (liece-minibuffer-completing-read
+ "Window style: " (list-to-alist styles) nil t nil nil
liece-window-current-style))))
(liece-window-load-style-file style))