Re: [21.1]: mouse-1 on header-line in *info* barfs and gotos node

[Gerd Moellmann]

"Marshall, Simon" <simon.marshall@misys.com> writes:

> now mouse-1 on the "Top" in "Up: Top" in the header-line.
> Emacs barfs (though it does then takes you to the Top node).

Thanks, Simon.  I think this should fix it:

*** info.el.~1.280.~    Thu Oct 11 10:26:22 2001
--- info.el     Tue Oct 23 18:22:04 2001
***************
*** 2583,2590 ****
                                             ("Up" . Info-up))))))
                  (when fun
                    (let ((keymap (make-sparse-keymap)))
!                     (define-key keymap [header-line mouse-1] fun)
!                     (define-key keymap [header-line mouse-2] fun)
                      (put-text-property tbeg nend 'local-map keymap))))
                ))))
        (goto-char (point-min))
--- 2583,2590 ----
                                             ("Up" . Info-up))))))
                  (when fun
                    (let ((keymap (make-sparse-keymap)))
!                     (define-key keymap [header-line down-mouse-1] fun)
!                     (define-key keymap [header-line down-mouse-2] fun)
                      (put-text-property tbeg nend 'local-map keymap))))
                ))))
        (goto-char (point-min))