999 |
(if Info-fontify (Info-fontify-node)) |
(if Info-fontify (Info-fontify-node)) |
1000 |
(if Info-use-header-line |
(if Info-use-header-line |
1001 |
(Info-setup-header-line) |
(Info-setup-header-line) |
1002 |
(setq Info-header-line nil)) |
(setq Info-header-line nil) |
1003 |
|
(setq header-line-format nil)) ; so the header line isn't displayed |
1004 |
(run-hooks 'Info-selection-hook))))) |
(run-hooks 'Info-selection-hook))))) |
1005 |
|
|
1006 |
(defun Info-set-mode-line () |
(defun Info-set-mode-line () |
2600 |
'help-echo |
'help-echo |
2601 |
(concat "Go to node " |
(concat "Go to node " |
2602 |
(buffer-substring nbeg nend))) |
(buffer-substring nbeg nend))) |
2603 |
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev) |
;; Don't bind mouse events on the header line if we |
2604 |
("Next" . Info-next) |
;; aren't going to display the header line. |
2605 |
("Up" . Info-up)))))) |
(when Info-use-header-line |
2606 |
(when fun |
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev) |
2607 |
(let ((keymap (make-sparse-keymap))) |
("Next" . Info-next) |
2608 |
(define-key keymap [header-line down-mouse-1] fun) |
("Up" . Info-up)))))) |
2609 |
(define-key keymap [header-line down-mouse-2] fun) |
(when fun |
2610 |
(put-text-property tbeg nend 'local-map keymap)))) |
(let ((keymap (make-sparse-keymap))) |
2611 |
)))) |
(define-key keymap [header-line down-mouse-1] fun) |
2612 |
|
(define-key keymap [header-line down-mouse-2] fun) |
2613 |
|
(put-text-property tbeg nend 'local-map keymap)))) |
2614 |
|
))))) |
2615 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2616 |
(while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
(while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
2617 |
nil t) |
nil t) |