Re: describe-key-briefly doesn't work for popup menus

[Richard Stallman]

Does this fix it?

diff -c /home/rms/emacs/lisp/help.el.\~39\~ /home/rms/emacs/lisp/help.el
*** /home/rms/emacs/lisp/help.el.~39~   Tue Sep 19 11:37:57 2006
--- /home/rms/emacs/lisp/help.el        Sat Sep 23 18:05:56 2006
***************
*** 574,584 ****
           ;; down-events on scroll bars and mode lines: the actual
           ;; event then is in the second element of the vector.
           (and (vectorp key)
!               (or (and (eventp (aref key 0))
!                        (memq 'down (event-modifiers (aref key 0))))
!                   (and (> (length key) 1)
!                        (eventp (aref key 1))
!                        (memq 'down (event-modifiers (aref key 1)))))
                (read-event))
           (list
            key
--- 574,582 ----
           ;; down-events on scroll bars and mode lines: the actual
           ;; event then is in the second element of the vector.
           (and (vectorp key)
!               (let ((last-idx (1- (length key))))
!                 (and (eventp (aref key last-idx))
!                      (memq 'down (event-modifiers (aref key last-idx)))))
                (read-event))
           (list
            key

Diff finished.  Sat Sep 23 18:07:16 2006