bug#1249: menu-bar-item problem

bug#1249: menu-bar-item problem

[Sean Sieger]

    > GNU Emacs 23.0.60.2 (i686-pc-linux-gnu, GTK+ Version 2.12.9) of
    > 2008-10-21 on g41r2f1
    >
    > emacs -Q
    > f10
    > e
    >
    > Wrong type argument: listp, "Delete text in region and copy it to the
    > clipboard" [The backtrace is long.]
    > Is this a bug?

bug#1249: menu-bar-item problem

[Chong Yidong]

> emacs -Q
> f10
> e
>
> Wrong type argument: listp, "Delete text in region and copy it to the
> clipboard" [The backtrace is long.]

I can't reproduce this: after pressing f10 (which opens the File menu),
pressing "e" does nothing except beep.  Is it supposed to do anything?

bug#1249: menu-bar-item problem

[Lennart Borgman]

On Sat, Oct 25, 2008 at 7:47 PM, Chong Yidong <cyd@stupidchicken.com> wrote:
>> emacs -Q
>> f10
>> e
>>
>> Wrong type argument: listp, "Delete text in region and copy it to the
>> clipboard" [The backtrace is long.]
>
> I can't reproduce this: after pressing f10 (which opens the File menu),
> pressing "e" does nothing except beep.  Is it supposed to do anything?

On w32 it opens the Edit menu. I thought it should to that on all platforms.

bug#1249: menu-bar-item problem

[Sean Sieger]

"Lennart Borgman" <lennart.borgman@gmail.com> writes:

    On Sat, Oct 25, 2008 at 7:47 PM, Chong Yidong
    <cyd@stupidchicken.com> wrote: 
    >> emacs -Q
    >> f10
    >> e
    >>
    >> Wrong type argument: listp, "Delete text in region and copy it to the
    >> clipboard" [The backtrace is long.]
    >
    > I can't reproduce this: after pressing f10 (which opens the File menu),
    > pressing "e" does nothing except beep.  Is it supposed to do anything?

    On w32 it opens the Edit menu. I thought it should to that on all
    platforms. 

Right?  That's what I was expecting.

bug#1249: menu-bar-item problem

[Chong Yidong]

    >> emacs -Q
    >> f10
    >> e
    >>
    >> Wrong type argument: listp, "Delete text in region and copy it to the
    >> clipboard" [The backtrace is long.]
    >
    > I can't reproduce this: after pressing f10 (which opens the File menu),
    > pressing "e" does nothing except beep.  Is it supposed to do anything?

    On w32 it opens the Edit menu. I thought it should to that on all
    platforms. 

  Right?  That's what I was expecting.

Not on GNU/Linux.  But never mind; could you post the backtrace?

bug#1249: menu-bar-item problem

[Sean Sieger]

[-- Attachment #1: Type: text/plain, Size: 987 bytes --]

On Mon, Oct 27, 2008 at 6:03 PM, Chong Yidong <cyd@stupidchicken.com> wrote:
>    >> emacs -Q
>    >> f10
>    >> e
>    >>
>    >> Wrong type argument: listp, "Delete text in region and copy it to the
>    >> clipboard" [The backtrace is long.]
>    >
>    > I can't reproduce this: after pressing f10 (which opens the File menu),
>    > pressing "e" does nothing except beep.  Is it supposed to do anything?
>
>    On w32 it opens the Edit menu. I thought it should to that on all
>    platforms.
>
>  Right?  That's what I was expecting.
>
> Not on GNU/Linux.  But never mind; could you post the backtrace?

Yes, respectfully, on

GNU Emacs 23.0.60.2 (i686-pc-linux-gnu, GTK+ Version 2.12.9) of
2008-10-21 on g41r2f1

Following f10, I did e expecting to see the expansion of Edit while I was
looking for something ... tools for working on NEWS / texi source / elisp
source ... and having seen it happen in the not-too-recent past on maybe
other menu-bar-items, I'd finally report it.

[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 14733 bytes --]

Debugger entered--Lisp error: (wrong-type-argument listp "Delete text in region and copy it to the clipboard")
  tmm-get-keymap((cut "Cut" "Delete text in region and copy it to the clipboard" . clipboard-kill-region) nil)
  #[(elt) "\b;ƒ	\0\b‰\x11‡\b<…\x12\0Ã\b\n\"‡" [elt gl-str not-menu tmm-get-keymap] 3]((cut "Cut" "Delete text in region and copy it to the clipboard" . clipboard-kill-region))
  mapc(#[(elt) "\b;ƒ	\0\b‰\x11‡\b<…\x12\0Ã\b\n\"‡" [elt gl-str not-menu tmm-get-keymap] 3] (keymap (undo menu-item "Undo" undo :enable (and ... ... ...) :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 (not buffer-read-only) :help "Paste (yank) text most recently cut/copied") (paste-from-menu menu-item "Paste from kill menu" yank-menu :enable (and ... ...) :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region :enable (and mark-active ... ...) :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" (keymap ... ... ... ... ... ... ... ... ... ... ... ... "Search")) (replace menu-item "Replace" (keymap ... ... ... ... ... "Replace")) (goto menu-item "Go To" (keymap ... ... ... ... ... ... ... ... ... ... ... ... "Go To")) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region :enable (and mark-active ...) :help "Fill text in region to fit between left and right margin") (props menu-item "Text Properties" facemenu-menu) "Edit"))
  tmm-prompt((keymap (undo menu-item "Undo" undo :enable (and ... ... ...) :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 (not buffer-read-only) :help "Paste (yank) text most recently cut/copied") (paste-from-menu menu-item "Paste from kill menu" yank-menu :enable (and ... ...) :help "Choose a string from the kill ring and paste it") (clear menu-item "Clear" delete-region :enable (and mark-active ... ...) :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" (keymap ... ... ... ... ... ... ... ... ... ... ... ... "Search")) (replace menu-item "Replace" (keymap ... ... ... ... ... "Replace")) (goto menu-item "Go To" (keymap ... ... ... ... ... ... ... ... ... ... ... ... "Go To")) (bookmark menu-item "Bookmarks" menu-bar-bookmark-map) (separator-bookmark menu-item "--") (fill menu-item "Fill" fill-region :enable (and mark-active ...) :help "Fill text in region to fit between left and right margin") (props menu-item "Text Properties" facemenu-menu) "Edit"))
  tmm-prompt((keymap (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 :keys "C-x C-c" :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 "--") (line-wrapping menu-item "Line Wrapping in this Buffer" ...) (auto-fill-mode menu-item "Auto Fill in Text Modes" menu-bar-text-mode-auto-fill :help "Automatically fill text while typing (Auto Fill Mode)" :button ...) (case-fold-search menu-item "Case-Insensitive Search" toggle-case-fold-search :help "Ignore letter-case in search commands" :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" ...) (menu-set-font menu-item "Set Default Font..." menu-set-font :visible ... :help "Select a default font") (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" [... ...] (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")) (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-encryption-decryption "--") (encryption-decryption menu-item "Encryption/Decryption" ...) (separator-games "--") (games menu-item "Games" ...) "Tools") (mouse-1 . tmm-menubar-mouse) (lisp-interaction "Lisp-Interaction" keymap (lisp-complete-symbol menu-item "Complete Lisp Symbol" lisp-complete-symbol :help "Perform completion on Lisp symbol preceding point") (indent-pp-sexp menu-item "Indent or Pretty-Print" indent-pp-sexp :help "Indent each line of the list starting just after point, or prettyprint it") (edebug-defun-lisp-interaction menu-item "Instrument Function for Debugging" edebug-defun :help "Evaluate the top level form point is in, stepping through with Edebug" :keys "C-u C-M-x") (eval-print-last-sexp menu-item "Evaluate and print" eval-print-last-sexp :help "Evaluate sexp before point; print value into current buffer") (eval-defun menu-item "Evaluate Defun" eval-defun :help "Evaluate the top-level form containing point, or after point") "Lisp-Interaction") (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-known-problems menu-item "Emacs Known Problems" view-emacs-problems :help "Read about known problems with Emacs") (send-emacs-bug-report menu-item "Send Bug Report..." report-emacs-bug :help "Send e-mail to Emacs maintainers") (emacs-psychotherapist menu-item "Emacs Psychotherapist" doctor :help "Our doctor will help you feel better") (sep1 "--") (search-documentation 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") (more-manuals menu-item "More Manuals" ...) (find-emacs-packages menu-item "Find Emacs Packages" finder-by-keyword :help "Find packages and features by keyword") (external-packages menu-item "External Packages" menu-bar-help-extra-packages :help "Lisp packages distributed separately for use in Emacs") (sep2 "--") (getting-new-versions 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-emacs menu-item "About Emacs" about-emacs :help "Display version number, copyright info, and basic help") (about-gnu-project menu-item "About GNU" describe-gnu-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 nil nil)

bug#1249: menu-bar-item problem

[Chong Yidong]

What is the value of menu-bar-mode (C-h v menu-bar-mode RET) in your
Emacs?  Are you using a text-only terminal or X?

bug#1249: menu-bar-item problem

[Chong Yidong]

Assuming you're using tmm (the text-based menu) instead of the GTK
menubar, I've just fixed a bug in tmm that is probably related to what
you're seeing.  Maybe that removes your problem; let me know.

bug#1249: menu-bar-item problem

[Sean Sieger]

On Wed, Oct 29, 2008 at 4:58 PM, Chong Yidong <cyd@stupidchicken.com> wrote:
> Assuming you're using tmm (the text-based menu) instead of the GTK
> menubar, I've just fixed a bug in tmm that is probably related to what
> you're seeing.  Maybe that removes your problem; let me know.
>

It certainly did, well done.

bug#1249: menu-bar-item problem

[Sean Sieger]

On Wed, Oct 29, 2008 at 4:41 PM, Chong Yidong <cyd@stupidchicken.com> wrote:
> What is the value of menu-bar-mode (C-h v menu-bar-mode RET) in your
> Emacs?

nil

> Are you using a text-only terminal or X?

Yes, xterm.