[O] [BUG] org-agenda-switch-to fails with void function org-pop-to-buffer-same-window

[Jeff Horn]

Recently did a fresh pull, which seems to have broken org-agenda-switch-to.

To reproduce, open an agenda buffer, navigate to a line you want to
inspect, press [RET]. On my machine, this calls autopair, then falls
back to org-agenda-switch-to. Autopair doesn't seem to be causing the
problem, since it persists even if I call =M-x org-agenda-switch-to=
instead of pressing [RET].

Org-mode version 7.8.02 (release_7.8.02.3.gfb8c)
GNU Emacs 24.0.90.3 (i386-apple-darwin9.8.0, NS apple-appkit-949.54)
of 2011-12-14 on braeburn.aquamacs.org - Aquamacs Distribution 3.xdev

Can anyone reproduce?

,----[ Full Backtrace ]
| Debugger entered--Lisp error: (void-function
|   org-pop-to-buffer-same-window) (org-pop-to-buffer-same-window
|   buffer) (let* ((marker (or (org-get-at-bol (quote org-marker))
|   (org-agenda-error))) (buffer (marker-buffer marker)) (pos
|   (marker-position marker))) (org-pop-to-buffer-same-window buffer)
|   (and delete-other-windows (delete-other-windows)) (widen) (goto-char
|   pos) (when (eq major-mode (quote org-mode)) (org-show-context (quote
|   agenda)) (save-excursion (and (outline-next-heading)
|   (org-flag-heading nil))) (when (outline-invisible-p) (show-entry))))
|   (if (and org-return-follows-link (not (org-get-at-bol (quote
|   org-marker))) (org-in-regexp org-bracket-link-regexp))
|   (org-open-link-from-string (match-string 0)) (let* ((marker (or
|   (org-get-at-bol (quote org-marker)) (org-agenda-error))) (buffer
|   (marker-buffer marker)) (pos (marker-position marker)))
|   (org-pop-to-buffer-same-window buffer) (and delete-other-windows
|   (delete-other-windows)) (widen) (goto-char pos) (when (eq major-mode
|   (quote org-mode)) (org-show-context (quote agenda)) (save-excursion
|   (and (outline-next-heading) (org-flag-heading nil))) (when
|   (outline-invisible-p) (show-entry))))) org-agenda-switch-to()
|   call-interactively(org-agenda-switch-to) (let ((cua-delete-selection
|   (not autopair-autowrap)) (blink-matching-paren (not
|   autopair-action))) (call-interactively beyond-autopair)) (let*
|   ((autopair-emulation-alist nil) (beyond-cua (let ((cua--keymap-alist
|   nil)) (autopair-original-binding))) (beyond-autopair
|   (autopair-original-binding))) (when autopair-autowrap (setq
|   autopair-wrap-action (autopair-calculate-wrap-action))) (setq
|   this-original-command beyond-cua) (when (and (featurep (quote
|   paredit)) (string-match "paredit" (symbol-name beyond-cua))) (setq
|   autopair-action nil)) (let ((cua-delete-selection (not
|   autopair-autowrap)) (blink-matching-paren (not autopair-action)))
|   (call-interactively beyond-autopair))) autopair-fallback(" ") (let
|   ((pair (autopair-find-pair (char-before)))) (when (and pair (eq
|   (char-syntax pair) 41) (eq (char-after) pair)) (setq autopair-action
|   (list (quote newline) pair (point)))) (autopair-fallback (kbd
|   "RET"))) autopair-newline() call-interactively(autopair-newline nil
|   nil)
`----
-- 
Jeffrey Horn
http://www.failuretorefrain.com/jeff/