2583 |
("Up" . Info-up)))))) |
("Up" . Info-up)))))) |
2584 |
(when fun |
(when fun |
2585 |
(let ((keymap (make-sparse-keymap))) |
(let ((keymap (make-sparse-keymap))) |
2586 |
(define-key keymap [header-line mouse-1] fun) |
(define-key keymap [header-line down-mouse-1] fun) |
2587 |
(define-key keymap [header-line mouse-2] fun) |
(define-key keymap [header-line down-mouse-2] fun) |
2588 |
(put-text-property tbeg nend 'local-map keymap)))) |
(put-text-property tbeg nend 'local-map keymap)))) |
2589 |
)))) |
)))) |
2590 |
(goto-char (point-min)) |
(goto-char (point-min)) |