23.0.50; error when M-x menu-bar-open

23.0.50; error when M-x menu-bar-open

[Dave O'Toole]

I get the following when attempting to open the menu-bar via the keyboard:

> Debugger entered--Lisp error: (error "Attempt to delete minibuffer or sole ordinary window")
>   enlarge-window(-52)
>   fit-window-to-buffer(#<window 3 on *Completions*> nil)
>   Electric-pop-up-window("*Completions*")
>   tmm-add-prompt()
>   run-hooks(minibuffer-setup-hook)
>   completing-read("Menu bar (up/down to change, PgUp to menu): " (("e==>Ecasound" Ecasound keymap "Ecasound" (Get\ session menu-item "Get session" ecasound ...) (nil menu-item "-") (Normalize\.\.\. menu-item "Normalize..." ecasound-normalize ...) (Signalview\.\.\. menu-item "Signalview..." ecasound-signalview ...) (nil menu-item "-") (Customize\ startup\.\.\. menu-item "Customize startup..." ecasound-customize-startup ...)) ("f==>File" file keymap (new-file menu-item "Visit New File..." find-file ... :enable ... :help "Specify a new file's name, to edit the file") (open-file menu-item "Open File..." menu-find-file-existing ... :enable ... :help "Read an existing file into an Emacs buffer") (dired menu-item "Open Directory..." dired ... :enable ... :help "Read a directory, to operate on its files") (insert-file menu-item "Insert File..." insert-file ... :enable ... :help "Insert another file into current buffer") (kill-buffer menu-item "Close" kill-this-buffer ... :enable ... :help "Discard (kill) current buffer") (separator-save menu-item "--") (save-buffer menu-item "Save" save-buffer ... :enable ... :help "Save current buffer to its file") (write-file menu-item "Save As..." write-file ... :enable ... :help "Write current buffer to another file") (revert-buffer menu-item "Revert Buffer" revert-buffer ... :enable ... :help "Re-read current buffer from its file") (recover-session menu-item "Recover Crashed Session" recover-session ... :enable ... :help "Recover edits from a crashed session") (separator-print menu-item "--") (print-buffer menu-item "Print Buffer" print-buffer ... :enable ... :help "Print current buffer with page headings") (print-region menu-item "Print Region" print-region ... :enable mark-active :help "Print region between mark and current position") (ps-print-buffer-faces menu-item "Postscript Print Buffer" ps-print-buffer-with-faces ... :enable ... :help "Pretty-print current buffer to PostScript printer") (ps-print-region-faces menu-item "Postscript Print Region" ps-print-region-with-faces ... :enable mark-active :help "Pretty-print marked region to PostScript printer") (ps-print-buffer menu-item "Postscript Print Buffer (B+W)" ps-print-buffer ... :enable ... :help "Pretty-print current buffer in black and white to PostScript printer") (ps-print-region menu-item "Postscript Print Region (B+W)" ps-print-region ... :enable mark-active :help "Pretty-print marked region in black and white to PostScript printer") (separator-window menu-item "--") (split-window menu-item "Split Window" split-window-vertically ... :enable ... :help "Split selected window in two windows") (one-window menu-item "Remove Splits" delete-other-windows ... :enable ... :help "Selected window grows to fill the whole frame") (make-frame menu-item "New Frame" make-frame-command ... :visible ... :help "Open a new frame") (make-frame-on-display menu-item "New Frame on Display..." make-frame-on-display ... :visible ... :help "Open a new frame on another display") (delete-this-frame menu-item "Delete Frame" delete-frame ... :visible ... :enable ... :help "Delete currently selected frame") (separator-exit "--") (exit-emacs menu-item "Exit Emacs" save-buffers-kill-emacs ... :help "Save unsaved buffers, then exit") "File") ("E==>Edit" edit keymap (undo menu-item "Undo" undo ... :enable ... :help "Undo last operation") (cut "Cut" "Delete text in region and copy it to the clipboard" ... . clipboard-kill-region) (copy "Copy" "Copy text in region to the clipboard" ... . clipboard-kill-ring-save) (paste menu-item "Paste" x-clipboard-yank ... :enable ... :help "Paste (yank) text most recently cut/copied") (paste-from-menu menu-item "Paste from kill menu" yank-menu :enable ... :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region ... :enable ... :help "Delete the text in region between mark and current position") (mark-whole-buffer menu-item "Select All" mark-whole-buffer ... :help "Mark the whole buffer for a subsequent cut/copy.") (separator-search menu-item "--") (search menu-item "Search" ...) (replace menu-item "Replace" ...) (goto menu-item "Go To" ...) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region ... :enable ... :help "Fill text in region to fit between left and right margin") (props menu-item "Text Properties" facemenu-menu) "Edit") ("o==>Options" options keymap (transient-mark-mode menu-item "Active Region Highlighting" transient-mark-mode ... :enable ... :help "Make text in active region stand out in color (Transient Mark mode)" :button ...) (highlight-paren-mode menu-item "Paren Match Highlighting" show-paren-mode ... :help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button ...) (highlight-separator "--") (truncate-lines menu-item "Truncate Long Lines in this Buffer" toggle-truncate-lines ... :help "Truncate long lines on the screen" :button ... :enable ...) (auto-fill-mode menu-item "Word Wrap in Text Modes" menu-bar-text-mode-auto-fill ... :help "Automatically fill text between left and right margins (Auto Fill)" :button ...) (case-fold-search menu-item "Case-Insensitive Search" toggle-case-fold-search ... :help "Globally ignore letter-case in search" :button ...) (cua-emulation-mode menu-item "Shift movement mark region (CUA)" cua-mode ... :visible ... :help "Use shifted movement keys to set and extend the region." :button ...) (cua-mode menu-item "C-x/C-c/C-v Cut and Paste (CUA)" cua-mode ... :visible ... :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :button ...) (edit-options-separator "--") (uniquify menu-item "Use Directory Names in Buffer Names" toggle-uniquify-buffer-names ... :help "Uniquify buffer names by adding parent directory names" :button ...) (save-place menu-item "Save Place in Files between Sessions" toggle-save-place-globally ... :help "Visit files of previous session when restarting Emacs" :button ...) (cursor-separator "--") (blink-cursor-mode menu-item "Blinking Cursor" blink-cursor-mode ... :help "Whether the cursor blinks (Blink Cursor mode)" :button ...) (debugger-separator "--") (debug-on-error menu-item "Enter Debugger on Error" toggle-debug-on-error ... :help "Enter Lisp debugger when an error is signaled" :button ...) (debug-on-quit menu-item "Enter Debugger on Quit/C-g" toggle-debug-on-quit ... :help "Enter Lisp debugger when C-g is pressed" :button ...) (mule-separator "--") (mule menu-item "Mule (Multilingual Environment)" ...) (showhide-separator "--") (showhide menu-item "Show/Hide" ...) (mouse-set-font menu-item "Set Font/Fontset..." mouse-set-font ... :visible ... :help "Select a font from list of known fonts/fontsets") (custom-separator "--") (save menu-item "Save Options" menu-bar-options-save ... :help "Save options set from the menu above") (customize menu-item "Customize Emacs" ...) "Options") ("b==>Buffers" buffer keymap "Select Buffer" ("*mail*" "*mail*  *" ... . menu-bar-select-buffer) ("*info*" "*info*  %" ... . menu-bar-select-buffer) ("*Bug Help*" "*Bug Help*  %" ... . menu-bar-select-buffer) ("##metaconference" "##metaconference  " ... . menu-bar-select-buffer) ("#emacs" "#emacs  " ... . menu-bar-select-buffer) ("init.el" "init.el    --  /home/dto/e/" ... . menu-bar-select-buffer) ("*Group*" "*Group*  *%" ... . menu-bar-select-buffer) ("*Customize Group: Cursor*" "*Customize Group: Cursor*  *" ... . menu-bar-select-buffer) ("*Help*" "*Help*  %" ... . menu-bar-select-buffer) ("#lisp" "#lisp  " ... . menu-bar-select-buffer) (command-separator "--") (next-buffer menu-item "Next Buffer" next-buffer ... :help "Switch to the \"next\" buffer in a cyclic order") (previous-buffer menu-item "Previous Buffer" previous-buffer ... :help "Switch to the \"previous\" buffer in a cyclic order") (select-named-buffer menu-item "Select Named Buffer..." switch-to-buffer ... :help "Prompt for a buffer name, and select that buffer in the current window") (list-all-buffers menu-item "List All Buffers" list-buffers ... :help "Pop up a window listing all Emacs buffers")) ("0==>ElScreen" elscreen keymap "Select Screen" (48 menu-item "0+ *mail*:chat:*Bug Help*" elscreen-jump :keys "C-l 0") (49 menu-item "1- *Group*" elscreen-jump :keys "C-l 1") (elscreen-command-separator menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create ... :help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone Screen" elscreen-clone ... :help "Create a new screen with the window-configuration of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill ... :help "Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen and Buffers" elscreen-kill-screen-and-buffers ... :help "Kill current screen and buffers") (elscreen-kill-others menu-item "Kill Other Screens" elscreen-kill-others ... :help "Kill other screens") (elscreen-next menu-item "Next Screen" elscreen-next ... :help "Switch to the \"next\" screen in a cyclic order") (elscreen-previous menu-item "Previous Screen" elscreen-previous ... :help "Switch to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item "Toggle Screen" elscreen-toggle ... :help "Toggle to the screen selected previously") (elscreen-command-separator menu-item "--") (elscreen-toggle-display-screen-number menu-item "Display Screen Number" elscreen-toggle-display-screen-number ... :help "Display screen number on the mode line" :button ...) (elscreen-toggle-display-tab menu-item "Display Tab" elscreen-toggle-display-tab ... :help "Display tab on the top of screen" :button ...)) ("t==>Tools" tools keymap (grep menu-item "Search Files (Grep)..." grep ... :help "Search files for strings or regexps (with Grep)") (compile menu-item "Compile..." compile ... :help "Invoke compiler or Make, view compilation errors") (shell menu-item "Shell Command..." shell-command ... :help "Invoke a shell command and catch its output") (shell-on-region menu-item "Shell Command on Region..." shell-command-on-region ... :enable mark-active :help "Pass marked region to a shell command") (gdb menu-item "Debugger (GDB)..." gdb ... :help "Debug a program from within Emacs with GDB") (separator-prog "--") (spell menu-item "Spell Checking" ispell-menu-map) (separator-spell "--") (compare menu-item "Compare (Ediff)" menu-bar-ediff-menu) (ediff-merge menu-item "Merge" menu-bar-ediff-merge-menu) (epatch menu-item "Apply Patch" menu-bar-epatch-menu) (ediff-misc menu-item "Ediff Miscellanea" menu-bar-ediff-misc-menu) (separator-compare "--") (vc menu-item "Version Control" vc-menu-map :filter vc-menu-map-filter) (pcl-cvs menu-item "PCL-CVS" cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" gnus ... :help "Read network news groups") (rmail menu-item ... menu-bar-read-mail ... :visible ... :help "Read your mail and reply to it") (compose-mail menu-item ... compose-mail ... :visible ... :help "Send a mail message") (directory-search menu-item "Directory Search" eudc-tools-menu) (separator-net "--") (calendar menu-item "Calendar" calendar ... :help "Invoke the Emacs built-in calendar") (calc menu-item "Programmable Calculator" calc ... :help "Invoke the Emacs built-in full scientific calculator") (simple-calculator menu-item "Simple Calculator" calculator ... :help "Invoke the Emacs built-in quick calculator") (separator-games "--") (games menu-item "Games" ...) "Tools" (nil menu-item "--") (Color\ Themes menu-item "Color Themes" color-theme-select ...)) ("h==>Headers" headers keymap (to "To" . mail-to) (subject "Subject" . mail-subject) (cc "Cc" . mail-cc) (fcc "Fcc" . mail-fcc) (bcc "Bcc" . mail-bcc) (reply-to "Reply-To" . mail-reply-to) (mail-followup-to "Mail Followup To" . mail-mail-followup-to) (mail-reply-to "Mail Reply To" . mail-mail-reply-to) (sent-via "Sent Via" . mail-sent-via) (expand-aliases "Expand Aliases" . expand-mail-aliases) (text "Text" . mail-text) "Move to Header") ("m==>Mail" mail keymap (send "Send Message" . mail-send-and-exit) (send-stay "Send, Keep Editing" . mail-send) (cancel "Cancel" . mail-dont-send) (mail-sep "--") (signature "Insert Signature" . mail-signature) (yank "Cite Original" . mail-yank-original) (fill "Fill Citation" . mail-fill-yanked-message) "Mail") ("H==>Help" help-menu keymap (emacs-tutorial menu-item "Emacs Tutorial" help-with-tutorial ... :help "Learn how to use Emacs") (emacs-tutorial-language-specific menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-spec-language ... :help "Learn how to use Emacs (choose a language)") (emacs-faq menu-item "Emacs FAQ" view-emacs-FAQ ... :help "Frequently asked (and answered) questions about Emacs") (emacs-news menu-item "Emacs News" view-emacs-news ... :help "New features of this version") (emacs-problems menu-item "Emacs Known Problems" view-emacs-problems ... :help "Read about known problems with Emacs") (report-emacs-bug menu-item "Send Bug Report..." report-emacs-bug ... :help "Send e-mail to Emacs maintainers") (eliza menu-item "Emacs Psychotherapist" doctor ... :help "Our doctor will help you feel better") (sep1 "--") (apropos menu-item "Search Documentation" ...) (describe menu-item "Describe" ...) (emacs-manual menu-item "Read the Emacs Manual" info-emacs-manual ... :help "Full documentation of Emacs features") (manuals menu-item "More Manuals" ...) (finder-by-keyword menu-item "Find Emacs Packages" finder-by-keyword ... :help "Find packages and features by keyword") (more menu-item "External Packages" menu-bar-help-extra-packages ... :help "Lisp packages distributed separately for use in Emacs") (sep2 "--") (describe-distribution menu-item "Getting New Versions" describe-distribution ... :help "How to get latest versions of Emacs") (describe-copying menu-item "Copying Conditions" describe-copying ... :help "Show the Emacs license (GPL)") (describe-no-warranty menu-item "(Non)Warranty" describe-no-warranty ... :help "Explain that Emacs has NO WARRANTY") (sep4 "--") (about menu-item "About Emacs" about-emacs ... :help "Display version number, copyright info, and basic help") (describe-project menu-item "About GNU" describe-project ... :help "About the GNU System, GNU Project, and GNU/Linux") "Help")) nil t nil (history . 20))
>   tmm-prompt((keymap (Ecasound menu-item "Ecasound" (keymap "Ecasound" ... ... ... ... ... ...)) (file "File" keymap (new-file menu-item "Visit New File..." find-file ... :enable ... :help "Specify a new file's name, to edit the file") (open-file menu-item "Open File..." menu-find-file-existing ... :enable ... :help "Read an existing file into an Emacs buffer") (dired menu-item "Open Directory..." dired ... :enable ... :help "Read a directory, to operate on its files") (insert-file menu-item "Insert File..." insert-file ... :enable ... :help "Insert another file into current buffer") (kill-buffer menu-item "Close" kill-this-buffer ... :enable ... :help "Discard (kill) current buffer") (separator-save menu-item "--") (save-buffer menu-item "Save" save-buffer ... :enable ... :help "Save current buffer to its file") (write-file menu-item "Save As..." write-file ... :enable ... :help "Write current buffer to another file") (revert-buffer menu-item "Revert Buffer" revert-buffer ... :enable ... :help "Re-read current buffer from its file") (recover-session menu-item "Recover Crashed Session" recover-session ... :enable ... :help "Recover edits from a crashed session") (separator-print menu-item "--") (print-buffer menu-item "Print Buffer" print-buffer ... :enable ... :help "Print current buffer with page headings") (print-region menu-item "Print Region" print-region ... :enable mark-active :help "Print region between mark and current position") (ps-print-buffer-faces menu-item "Postscript Print Buffer" ps-print-buffer-with-faces ... :enable ... :help "Pretty-print current buffer to PostScript printer") (ps-print-region-faces menu-item "Postscript Print Region" ps-print-region-with-faces ... :enable mark-active :help "Pretty-print marked region to PostScript printer") (ps-print-buffer menu-item "Postscript Print Buffer (B+W)" ps-print-buffer ... :enable ... :help "Pretty-print current buffer in black and white to PostScript printer") (ps-print-region menu-item "Postscript Print Region (B+W)" ps-print-region ... :enable mark-active :help "Pretty-print marked region in black and white to PostScript printer") (separator-window menu-item "--") (split-window menu-item "Split Window" split-window-vertically ... :enable ... :help "Split selected window in two windows") (one-window menu-item "Remove Splits" delete-other-windows ... :enable ... :help "Selected window grows to fill the whole frame") (make-frame menu-item "New Frame" make-frame-command ... :visible ... :help "Open a new frame") (make-frame-on-display menu-item "New Frame on Display..." make-frame-on-display ... :visible ... :help "Open a new frame on another display") (delete-this-frame menu-item "Delete Frame" delete-frame ... :visible ... :enable ... :help "Delete currently selected frame") (separator-exit "--") (exit-emacs menu-item "Exit Emacs" save-buffers-kill-emacs ... :help "Save unsaved buffers, then exit") "File") (edit "Edit" keymap (undo menu-item "Undo" undo ... :enable ... :help "Undo last operation") (cut "Cut" "Delete text in region and copy it to the clipboard" ... . clipboard-kill-region) (copy "Copy" "Copy text in region to the clipboard" ... . clipboard-kill-ring-save) (paste menu-item "Paste" x-clipboard-yank ... :enable ... :help "Paste (yank) text most recently cut/copied") (paste-from-menu menu-item "Paste from kill menu" yank-menu :enable ... :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region ... :enable ... :help "Delete the text in region between mark and current position") (mark-whole-buffer menu-item "Select All" mark-whole-buffer ... :help "Mark the whole buffer for a subsequent cut/copy.") (separator-search menu-item "--") (search menu-item "Search" ...) (replace menu-item "Replace" ...) (goto menu-item "Go To" ...) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region ... :enable ... :help "Fill text in region to fit between left and right margin") (props menu-item "Text Properties" facemenu-menu) "Edit") (options "Options" keymap (transient-mark-mode menu-item "Active Region Highlighting" transient-mark-mode ... :enable ... :help "Make text in active region stand out in color (Transient Mark mode)" :button ...) (highlight-paren-mode menu-item "Paren Match Highlighting" show-paren-mode ... :help "Highlight matching/mismatched parentheses at cursor (Show Paren mode)" :button ...) (highlight-separator "--") (truncate-lines menu-item "Truncate Long Lines in this Buffer" toggle-truncate-lines ... :help "Truncate long lines on the screen" :button ... :enable ...) (auto-fill-mode menu-item "Word Wrap in Text Modes" menu-bar-text-mode-auto-fill ... :help "Automatically fill text between left and right margins (Auto Fill)" :button ...) (case-fold-search menu-item "Case-Insensitive Search" toggle-case-fold-search ... :help "Globally ignore letter-case in search" :button ...) (cua-emulation-mode menu-item "Shift movement mark region (CUA)" cua-mode ... :visible ... :help "Use shifted movement keys to set and extend the region." :button ...) (cua-mode menu-item "C-x/C-c/C-v Cut and Paste (CUA)" cua-mode ... :visible ... :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" :button ...) (edit-options-separator "--") (uniquify menu-item "Use Directory Names in Buffer Names" toggle-uniquify-buffer-names ... :help "Uniquify buffer names by adding parent directory names" :button ...) (save-place menu-item "Save Place in Files between Sessions" toggle-save-place-globally ... :help "Visit files of previous session when restarting Emacs" :button ...) (cursor-separator "--") (blink-cursor-mode menu-item "Blinking Cursor" blink-cursor-mode ... :help "Whether the cursor blinks (Blink Cursor mode)" :button ...) (debugger-separator "--") (debug-on-error menu-item "Enter Debugger on Error" toggle-debug-on-error ... :help "Enter Lisp debugger when an error is signaled" :button ...) (debug-on-quit menu-item "Enter Debugger on Quit/C-g" toggle-debug-on-quit ... :help "Enter Lisp debugger when C-g is pressed" :button ...) (mule-separator "--") (mule menu-item "Mule (Multilingual Environment)" ...) (showhide-separator "--") (showhide menu-item "Show/Hide" ...) (mouse-set-font menu-item "Set Font/Fontset..." mouse-set-font ... :visible ... :help "Select a font from list of known fonts/fontsets") (custom-separator "--") (save menu-item "Save Options" menu-bar-options-save ... :help "Save options set from the menu above") (customize menu-item "Customize Emacs" ...) "Options") (buffer "Buffers" keymap "Select Buffer" ("*mail*" "*mail*  *" ... . menu-bar-select-buffer) ("*info*" "*info*  %" ... . menu-bar-select-buffer) ("*Bug Help*" "*Bug Help*  %" ... . menu-bar-select-buffer) ("##metaconference" "##metaconference  " ... . menu-bar-select-buffer) ("#emacs" "#emacs  " ... . menu-bar-select-buffer) ("init.el" "init.el    --  /home/dto/e/" ... . menu-bar-select-buffer) ("*Group*" "*Group*  *%" ... . menu-bar-select-buffer) ("*Customize Group: Cursor*" "*Customize Group: Cursor*  *" ... . menu-bar-select-buffer) ("*Help*" "*Help*  %" ... . menu-bar-select-buffer) ("#lisp" "#lisp  " ... . menu-bar-select-buffer) (command-separator "--") (next-buffer menu-item "Next Buffer" next-buffer ... :help "Switch to the \"next\" buffer in a cyclic order") (previous-buffer menu-item "Previous Buffer" previous-buffer ... :help "Switch to the \"previous\" buffer in a cyclic order") (select-named-buffer menu-item "Select Named Buffer..." switch-to-buffer ... :help "Prompt for a buffer name, and select that buffer in the current window") (list-all-buffers menu-item "List All Buffers" list-buffers ... :help "Pop up a window listing all Emacs buffers")) (elscreen "ElScreen" keymap "Select Screen" (48 menu-item "0+ *mail*:chat:*Bug Help*" elscreen-jump :keys "C-l 0") (49 menu-item "1- *Group*" elscreen-jump :keys "C-l 1") (elscreen-command-separator menu-item "--") (elscreen-create menu-item "Create Screen" elscreen-create ... :help "Create a new screen and switch to it") (elscreen-clone menu-item "Clone Screen" elscreen-clone ... :help "Create a new screen with the window-configuration of current screen") (elscreen-kill menu-item "Kill Screen" elscreen-kill ... :help "Kill current screen") (elscreen-kill-screen-and-buffers menu-item "Kill Screen and Buffers" elscreen-kill-screen-and-buffers ... :help "Kill current screen and buffers") (elscreen-kill-others menu-item "Kill Other Screens" elscreen-kill-others ... :help "Kill other screens") (elscreen-next menu-item "Next Screen" elscreen-next ... :help "Switch to the \"next\" screen in a cyclic order") (elscreen-previous menu-item "Previous Screen" elscreen-previous ... :help "Switch to the \"previous\" screen in a cyclic order") (elscreen-toggle menu-item "Toggle Screen" elscreen-toggle ... :help "Toggle to the screen selected previously") (elscreen-command-separator menu-item "--") (elscreen-toggle-display-screen-number menu-item "Display Screen Number" elscreen-toggle-display-screen-number ... :help "Display screen number on the mode line" :button ...) (elscreen-toggle-display-tab menu-item "Display Tab" elscreen-toggle-display-tab ... :help "Display tab on the top of screen" :button ...)) (tools "Tools" keymap (grep menu-item "Search Files (Grep)..." grep ... :help "Search files for strings or regexps (with Grep)") (compile menu-item "Compile..." compile ... :help "Invoke compiler or Make, view compilation errors") (shell menu-item "Shell Command..." shell-command ... :help "Invoke a shell command and catch its output") (shell-on-region menu-item "Shell Command on Region..." shell-command-on-region ... :enable mark-active :help "Pass marked region to a shell command") (gdb menu-item "Debugger (GDB)..." gdb ... :help "Debug a program from within Emacs with GDB") (separator-prog "--") (spell menu-item "Spell Checking" ispell-menu-map) (separator-spell "--") (compare menu-item "Compare (Ediff)" menu-bar-ediff-menu) (ediff-merge menu-item "Merge" menu-bar-ediff-merge-menu) (epatch menu-item "Apply Patch" menu-bar-epatch-menu) (ediff-misc menu-item "Ediff Miscellanea" menu-bar-ediff-misc-menu) (separator-compare "--") (vc menu-item "Version Control" vc-menu-map :filter vc-menu-map-filter) (pcl-cvs menu-item "PCL-CVS" cvs-global-menu) (separator-vc "--") (gnus menu-item "Read Net News (Gnus)" gnus ... :help "Read network news groups") (rmail menu-item ... menu-bar-read-mail ... :visible ... :help "Read your mail and reply to it") (compose-mail menu-item ... compose-mail ... :visible ... :help "Send a mail message") (directory-search menu-item "Directory Search" eudc-tools-menu) (separator-net "--") (calendar menu-item "Calendar" calendar ... :help "Invoke the Emacs built-in calendar") (calc menu-item "Programmable Calculator" calc ... :help "Invoke the Emacs built-in full scientific calculator") (simple-calculator menu-item "Simple Calculator" calculator ... :help "Invoke the Emacs built-in quick calculator") (separator-games "--") (games menu-item "Games" ...) "Tools" (nil menu-item "--") (Color\ Themes menu-item "Color Themes" color-theme-select ...)) (mouse-1 . tmm-menubar-mouse) (headers "Headers" keymap (to "To" . mail-to) (subject "Subject" . mail-subject) (cc "Cc" . mail-cc) (fcc "Fcc" . mail-fcc) (bcc "Bcc" . mail-bcc) (reply-to "Reply-To" . mail-reply-to) (mail-followup-to "Mail Followup To" . mail-mail-followup-to) (mail-reply-to "Mail Reply To" . mail-mail-reply-to) (sent-via "Sent Via" . mail-sent-via) (expand-aliases "Expand Aliases" . expand-mail-aliases) (text "Text" . mail-text) "Move to Header") (mail "Mail" keymap (send "Send Message" . mail-send-and-exit) (send-stay "Send, Keep Editing" . mail-send) (cancel "Cancel" . mail-dont-send) (mail-sep "--") (signature "Insert Signature" . mail-signature) (yank "Cite Original" . mail-yank-original) (fill "Fill Citation" . mail-fill-yanked-message) "Mail") nil (help-menu "Help" keymap (emacs-tutorial menu-item "Emacs Tutorial" help-with-tutorial ... :help "Learn how to use Emacs") (emacs-tutorial-language-specific menu-item "Emacs Tutorial (choose language)..." help-with-tutorial-spec-language ... :help "Learn how to use Emacs (choose a language)") (emacs-faq menu-item "Emacs FAQ" view-emacs-FAQ ... :help "Frequently asked (and answered) questions about Emacs") (emacs-news menu-item "Emacs News" view-emacs-news ... :help "New features of this version") (emacs-problems menu-item "Emacs Known Problems" view-emacs-problems ... :help "Read about known problems with Emacs") (report-emacs-bug menu-item "Send Bug Report..." report-emacs-bug ... :help "Send e-mail to Emacs maintainers") (eliza menu-item "Emacs Psychotherapist" doctor ... :help "Our doctor will help you feel better") (sep1 "--") (apropos menu-item "Search Documentation" ...) (describe menu-item "Describe" ...) (emacs-manual menu-item "Read the Emacs Manual" info-emacs-manual ... :help "Full documentation of Emacs features") (manuals menu-item "More Manuals" ...) (finder-by-keyword menu-item "Find Emacs Packages" finder-by-keyword ... :help "Find packages and features by keyword") (more menu-item "External Packages" menu-bar-help-extra-packages ... :help "Lisp packages distributed separately for use in Emacs") (sep2 "--") (describe-distribution menu-item "Getting New Versions" describe-distribution ... :help "How to get latest versions of Emacs") (describe-copying menu-item "Copying Conditions" describe-copying ... :help "Show the Emacs license (GPL)") (describe-no-warranty menu-item "(Non)Warranty" describe-no-warranty ... :help "Explain that Emacs has NO WARRANTY") (sep4 "--") (about menu-item "About Emacs" about-emacs ... :help "Display version number, copyright info, and basic help") (describe-project menu-item "About GNU" describe-project ... :help "About the GNU System, GNU Project, and GNU/Linux") "Help")) nil nil)
>   tmm-menubar()
>   x-menu-bar-open(nil)
>   menu-bar-open()
>   call-interactively(menu-bar-open)
>   execute-extended-command(nil)
>   call-interactively(execute-extended-command)

In GNU Emacs 23.0.50.1 (i686-pc-linux-gnu, X toolkit)
 of 2007-09-21 on localhost.localdomain
Windowing system distributor `The X.Org Foundation', version 11.0.70101000
configured using `configure  '--prefix=/usr/local' '--without-toolkit-scroll-bars' '--with-x-toolkit=lucid''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Info

Minor modes in effect:
  shell-dirtrack-mode: t
  erc-track-mode: t
  erc-track-minor-mode: t
  erc-services-mode: t
  erc-ring-mode: t
  erc-notify-mode: t
  erc-netsplit-mode: t
  erc-menu-mode: t
  erc-match-mode: t
  erc-log-mode: t
  erc-pcomplete-mode: t
  erc-button-mode: t
  erc-fill-mode: t
  erc-stamp-mode: t
  erc-autojoin-mode: t
  erc-autoaway-mode: t
  erc-smiley-mode: t
  erc-irccontrols-mode: t
  erc-noncommands-mode: t
  erc-readonly-mode: t
  erc-scrolltobottom-mode: t
  iswitchb-mode: t
  display-time-mode: t
  show-paren-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-p C-p <return> 5 0 0 <return> M-> q C-l C-n <down-mouse-1> 
<mouse-1> <next> n [ ] <f10> <f10> C-h k <f10> C-x 
<left> <C-tab> <C-tab> <C-tab> <C-tab> M-x m e n u 
- b a r - o p e n <return> <f7> M-x <up> <return> C-g 
C-g C-] <C-tab> M-x r e p o r t <tab> b <tab> <return> 
e r r o r SPC w h e n SPC M - x SPC m e n u - b a r 
- o p e n <return> C-p C-p C-p C-p C-p C-SPC C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n M-w M-< 
C-x k <return> <C-tab> <C-tab> <C-tab> M-x <up> <up> 
<return> C-g <C-tab> <C-tab> C-g C-] C-] C-] C-n C-n 
C-n C-n C-n C-n M-x d e b u g - C-g M-x s e t - v a 
r i a b l e <return> d e b u g - o n <tab> e r <tab> 
<return> n i l <return> M-x <S-up> <up> <return> M-x 
r e p o r t - e m a c s - b u g <return>

Recent messages:
Loading emacsbug...done
Mark set
Auto-saving...done
Saved text from "From: Dave O'Toole <dto@gnu.org>
To: ema"
Mark set
Entering debugger...
Quit [5 times]
call-interactively: No recursive edit is in progress [2 times]
Quit
fit-window-to-buffer: Attempt to delete minibuffer or sole ordinary window

-- 
David O'Toole 
dto@gnu.org
http://dto.freeshell.org/notebook/

Re: 23.0.50; error when M-x menu-bar-open

[Richard Stallman]

    > Debugger entered--Lisp error: (error "Attempt to delete minibuffer or sole ordinary window")
    >   enlarge-window(-52)
    >   fit-window-to-buffer(#<window 3 on *Completions*> nil)
    >   Electric-pop-up-window("*Completions*")

I suspect the package that Electric-pop-up-window comes from
needs some updating.

Re: 23.0.50; error when M-x menu-bar-open

[martin rudalics]

 > I get the following when attempting to open the menu-bar via the keyboard:
 >
 >
 >>Debugger entered--Lisp error: (error "Attempt to delete minibuffer or sole ordinary window")
 >>  enlarge-window(-52)
 >>  fit-window-to-buffer(#<window 3 on *Completions*> nil)
 >>  Electric-pop-up-window("*Completions*")

Can you still reproduce this?  If so, could you please debug
`fit-window-to-buffer' to find out how it sets `delta' to -52?