/[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.288 by monnier, Mon Dec 3 04:26:43 2001 UTC revision 1.289 by eliz, Fri Dec 21 18:37:00 2001 UTC
# Line 999  Bind this in case the user sets it to ni Line 999  Bind this in case the user sets it to ni
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 ()
# Line 2599  the variable `Info-file-list-for-emacs'. Line 2600  the variable `Info-file-list-for-emacs'.
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)

Legend:
Removed from v.1.288  
changed lines
  Added in v.1.289

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