Commit 4dcd20ec authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(Info-select-node): If Info-use-header-line is nil, set

header-line-format to nil.
(Info-fontify-node): Don't put a keymap text property on the
heading if we are not going to display the header line.
parent 7f1b5edc
2001-12-21 Eli Zaretskii <eliz@is.elta.co.il>
 
* info.el (Info-select-node): If Info-use-header-line is nil, set
header-line-format to nil.
(Info-fontify-node): Don't put a keymap text property on the
heading if we are not going to display the header line.
* ls-lisp.el (insert-directory): Insert the amount of free disk
space, like files.el's insert-directory does.
 
......
......@@ -999,7 +999,8 @@ Bind this in case the user sets it to nil."
(if Info-fontify (Info-fontify-node))
(if Info-use-header-line
(Info-setup-header-line)
(setq Info-header-line nil))
(setq Info-header-line nil)
(setq header-line-format nil)) ; so the header line isn't displayed
(run-hooks 'Info-selection-hook)))))
(defun Info-set-mode-line ()
......@@ -2599,15 +2600,18 @@ the variable `Info-file-list-for-emacs'."
'help-echo
(concat "Go to node "
(buffer-substring nbeg nend)))
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev)
("Next" . Info-next)
("Up" . Info-up))))))
(when fun
(let ((keymap (make-sparse-keymap)))
(define-key keymap [header-line down-mouse-1] fun)
(define-key keymap [header-line down-mouse-2] fun)
(put-text-property tbeg nend 'local-map keymap))))
))))
;; Don't bind mouse events on the header line if we
;; aren't going to display the header line.
(when Info-use-header-line
(let ((fun (cdr (assoc tag '(("Prev" . Info-prev)
("Next" . Info-next)
("Up" . Info-up))))))
(when fun
(let ((keymap (make-sparse-keymap)))
(define-key keymap [header-line down-mouse-1] fun)
(define-key keymap [header-line down-mouse-2] fun)
(put-text-property tbeg nend 'local-map keymap))))
)))))
(goto-char (point-min))
(while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$"
nil t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment