(progn
(setq config (current-window-configuration))
(save-excursion
- (switch-to-buffer (setq buffer (liece-get-buffer-create
- (concat (if arg "*" " *")
- (liece-version) "*"))))
+ (setq buffer (generate-new-buffer
+ (concat (if arg "*" " *")
+ (liece-version) "*")))
+ (switch-to-buffer buffer)
(erase-buffer)
(static-cond
((and (fboundp 'image-type-available-p)