mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(Info-setup-header-line): If the node header includes

Browse Source 
either Next: or Prev: links, don't show the File: and Node: parts
in the header line.
This commit is contained in:
Eli Zaretskii 2001-01-11 16:41:38 +00:00
parent d527b615a2
commit 6e961dcde2
2 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2001-01-11 Eli Zaretskii <eliz@is.elta.co.il>
* info.el (Info-setup-header-line): If the node header includes
either Next: or Prev: links, don't show the File: and Node: parts
in the header line.
2001-01-11 Gerd Moellmann <gerd@gnu.org>
* comint.el (comint-goto-process-mark): Don't print a message

20
lisp/info.el
View File

@ -984,11 +984,21 @@ Bind this in case the user sets it to nil."
;; should be called when the node is already narrowed.
(defun Info-setup-header-line ()
(goto-char (point-min))
(forward-line 1)
(set (make-local-variable 'Info-header-line)
(buffer-substring (point-min) (1- (point))))
(setq header-line-format 'Info-header-line)
(narrow-to-region (point) (point-max)))
(let* ((case-fold-search t)
(header-end (save-excursion (forward-line 1) (1- (point))))
;; If we find neither Next: nor Prev: link, show the entire
;; node header. Otherwise, don't show the File: and Node:
;; parts, to avoid wasting precious space on information that
;; is available in the mode line.
(header-beg (if (re-search-forward
"\\(next\\|prev[ious]*\\): "
header-end t)
(match-beginning 1)
(point))))
(set (make-local-variable 'Info-header-line)
(buffer-substring header-beg header-end))
(setq header-line-format 'Info-header-line)
(narrow-to-region (1+ header-end) (point-max))))
;; Go to an info node specified with a filename-and-nodename string
;; of the sort that is found in pointers in nodes.