Re: switch-to-buffer: for interactive use only

[martin rudalics]

> How's this patch?

IIUC in interactive use `switch-to-buffer' wants `force-same-window'
non-nil.  How do you address that here?

>     (interactive
>      (list (read-buffer-to-switch "Switch to buffer: ")))
>     (let ((buffer (window-normalize-buffer-to-switch-to buffer-or-name)))
> !     (when force-same-window
> !       (cond
> !        ((window-minibuffer-p)
> !          (error "Cannot switch buffers in minibuffer window"))
> !        ((eq (window-dedicated-p) t)
> !          (error "Cannot switch buffers in a dedicated window"))))
> !     (pop-to-buffer buffer-or-name
> !             '(same-window (reuse-window-dedicated . weak))
> !             norecord nil)))

martin