bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Gerd Moellmann
Subject: Re: [21.1]: mouse-1 on header-line in *info* barfs and gotos node
Date: 23 Oct 2001 18:23:59 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1.50

"Marshall, Simon" <address@hidden> 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]