(setq buffer-name ...) changed to (rename-buffer ...)