Mercurial > emacs
comparison lisp/info.el @ 40220:ac7e8ad8b1d6
(Info-fontify-node): Bind doun-mouse-{1,2} instead
of mouse-{1,2} since dragging is on the down event.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 23 Oct 2001 16:24:16 +0000 |
| parents | 0597a7bc10a2 |
| children | 4126b1d76d8f |
comparison
equal
deleted
inserted
replaced
| 40219:0e50d546f7cd | 40220:ac7e8ad8b1d6 |
|---|---|
| 2581 (let ((fun (cdr (assoc tag '(("Prev" . Info-prev) | 2581 (let ((fun (cdr (assoc tag '(("Prev" . Info-prev) |
| 2582 ("Next" . Info-next) | 2582 ("Next" . Info-next) |
| 2583 ("Up" . Info-up)))))) | 2583 ("Up" . Info-up)))))) |
| 2584 (when fun | 2584 (when fun |
| 2585 (let ((keymap (make-sparse-keymap))) | 2585 (let ((keymap (make-sparse-keymap))) |
| 2586 (define-key keymap [header-line mouse-1] fun) | 2586 (define-key keymap [header-line down-mouse-1] fun) |
| 2587 (define-key keymap [header-line mouse-2] fun) | 2587 (define-key keymap [header-line down-mouse-2] fun) |
| 2588 (put-text-property tbeg nend 'local-map keymap)))) | 2588 (put-text-property tbeg nend 'local-map keymap)))) |
| 2589 )))) | 2589 )))) |
| 2590 (goto-char (point-min)) | 2590 (goto-char (point-min)) |
| 2591 (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" | 2591 (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
| 2592 nil t) | 2592 nil t) |