CoCoA » CoCoA-5

This is the "wrong" code: keeps the window layout seems false with new version of emacs

(defun try-pop-to-buffer (buffer)
  "Switch to buffer, if it exists." 
  (let ((buf (get-buffer buffer)))
    (if buf
; switches buffer, but keeps the window layout:
; never changes the number and the sizes of the visible windows in the current frame.
    (pop-to-buffer buf)  
        ;; would destroy the window layout: (switch-to-buffer buf)
      (message "No buffer \"%s\"." buffer))))