bug report: org-beamer-select-environment popup window not displaying nicely

[Jason Lewis <jasonblewis@gmail.com>]

--text follows this line--

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

Hi,

org-beamer-select-environment (C-c C-b) does not popup its selection
buffer nicely if the emacs frame is very wide.

Steps to reproduce:

1. make a narrow frame, make sure only 1 window is open.
2. create an org buffer and enable org-beamer-mode
3. on a heading, press C-c C-b
  - the popup window is nicely formatted

screenshot: http://take.ms/E389Mv

4. make the frame very wide, make sure only 1 window is visible.
5. on a heading, press C-c C-b
  - 2 new windows are created, one a copy of the original buffer, but
the formatting of the *Org tags* buffer

screenshot: http://take.ms/V3ZPkL

I expect org-beamer-select-environment should display the *Org Tags* the
same no matter the frame width.

Emacs  : GNU Emacs 24.3.50.3 (i686-pc-cygwin)
 of 2013-02-26 on jade
Package: Org-mode version 8.2.1 (8.2.1-3-g35e5e5-elpa @
/cygdrive/c/Users/jason/.emacs.d/elpa/org-20131007/)

current state:
==============
(setq
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
 org-latex-format-headline-function
'org-latex-format-headline-default-function
 outline-minor-mode-hook '(mediawiki-outline-magic-keys)
 org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
                      org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-hide-inline-tasks org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
 org-babel-pre-tangle-hook '(save-buffer)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-default-notes-file "~/Dropbox/org/todo.org"
 org-latex-classes '(("beamer"

"\\documentclass[presentation]{beamer}\n[DEFAULT-PACKAGES]\n[PACKAGES]\n[EXTRA]"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}"
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}")
                      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}"
                      ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" .
"\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}"
. "\\part*{%s}")
                      ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     )
 org-blank-before-new-entry nil
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook
org-show-block-all append local] 5]
                 #[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook
org-babel-show-result-all append
                    local]
                   5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes
                 (lambda nil (flyspell-mode -1)))
 org-directory "~/Dropbox/org"
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-agenda-files '("~/Dropbox/org/todo.org" "~/Dropbox/org"
"~/Dropbox/org/todo.org")
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-M-RET-may-split-line '((default))
 org-confirm-shell-link-function 'yes-or-no-p
 )



Jason

 
Jason Lewis http://emacstragic.net