/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.278.4.1 by gerd, Tue Oct 23 16:25:44 2001 UTC revision 1.278.4.2 by eliz, Fri Dec 21 19:08:17 2001 UTC
# Line 1000  Bind this in case the user sets it to ni Line 1000  Bind this in case the user sets it to ni
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 ()
# Line 2573  the variable `Info-file-list-for-emacs'. Line 2574  the variable `Info-file-list-for-emacs'.
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)

Legend:
Removed from v.1.278.4.1  
changed lines
  Added in v.1.278.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26