1000 |
(if Info-fontify (Info-fontify-node)) |
(if Info-fontify (Info-fontify-node)) |
1001 |
(if Info-use-header-line |
(if Info-use-header-line |
1002 |
(Info-setup-header-line) |
(Info-setup-header-line) |
1003 |
(setq Info-header-line nil)) |
(setq Info-header-line nil) |
1004 |
|
(setq header-line-format nil)) ; so the header line isn't displayed |
1005 |
(run-hooks 'Info-selection-hook))))) |
(run-hooks 'Info-selection-hook))))) |
1006 |
|
|
1007 |
(defun Info-set-mode-line () |
(defun Info-set-mode-line () |
2574 |
'help-echo |
'help-echo |
2575 |
(concat "Go to node " |
(concat "Go to node " |
2576 |
(buffer-substring nbeg nend))) |
(buffer-substring nbeg nend))) |
2577 |
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev) |
;; Don't bind mouse events on the header line if we |
2578 |
("Next" . Info-next) |
;; aren't going to display the header line. |
2579 |
("Up" . Info-up)))))) |
(when Info-use-header-line |
2580 |
(when fun |
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev) |
2581 |
(let ((keymap (make-sparse-keymap))) |
("Next" . Info-next) |
2582 |
(define-key keymap [header-line down-mouse-1] fun) |
("Up" . Info-up)))))) |
2583 |
(define-key keymap [header-line down-mouse-2] fun) |
(when fun |
2584 |
(put-text-property tbeg nend 'local-map keymap)))) |
(let ((keymap (make-sparse-keymap))) |
2585 |
)))) |
(define-key keymap [header-line down-mouse-1] fun) |
2586 |
|
(define-key keymap [header-line down-mouse-2] fun) |
2587 |
|
(put-text-property tbeg nend 'local-map keymap))))) |
2588 |
|
(if (not Info-use-header-line) |
2589 |
|
;; In case they switched Info-use-header-line off |
2590 |
|
;; in the middle of an Info session, some text |
2591 |
|
;; properties may have been left lying around from |
2592 |
|
;; past visits of this node. Remove them. |
2593 |
|
(remove-text-properties tbeg nend '(local-map nil))) |
2594 |
|
)))) |
2595 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2596 |
(while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
(while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$" |
2597 |
nil t) |
nil t) |