bug#6765: 24.0.50; Tooltip over mode-line has strange content.

[YAMAMOTO Mitsuharu]

>>>>> On Fri, 30 Jul 2010 17:26:36 +0200, Jan Djärv <jan.h.d@swipnet.se> said:

> % emacs -q
> Move mouse to (Fundamental) in the mode-line.  A tooltip pops up:

> "mouse-1ode
> mouse-1: Display major mode menu
> mouse-2: Show help for major mode
> mouse-3: Toggle minor modes'
> "

> The first line is strange, should be "Major mode".

mouse-fixup-help-message in mouse.el seems to have clobbered it.

                                     YAMAMOTO Mitsuharu
                                mituharu@math.s.chiba-u.ac.jp

=== modified file 'lisp/mouse.el'
*** lisp/mouse.el       2010-01-13 08:35:10 +0000
--- lisp/mouse.el       2010-08-01 06:11:31 +0000
***************
*** 887,893 ****
      (if (and mouse-1-click-follows-link
             (stringp msg)
             (save-match-data
!              (string-match "^mouse-2" msg))
             (setq mp (mouse-pixel-position))
             (consp (setq pos (cdr mp)))
             (car pos) (>= (car pos) 0)
--- 887,893 ----
      (if (and mouse-1-click-follows-link
             (stringp msg)
             (save-match-data
!              (string-match "\\`mouse-2" msg))
             (setq mp (mouse-pixel-position))
             (consp (setq pos (cdr mp)))
             (car pos) (>= (car pos) 0)