1247 |
(save-excursion |
(save-excursion |
1248 |
(save-restriction |
(save-restriction |
1249 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1250 |
(when Info-header-line |
;;; (when Info-header-line |
1251 |
;; expose the header line in the buffer |
;;; ;; expose the header line in the buffer |
1252 |
(widen) |
;;; (widen) |
1253 |
(forward-line -1)) |
;;; (forward-line -1)) |
1254 |
(let ((bound (point))) |
(let ((bound (point))) |
1255 |
(forward-line 1) |
(forward-line 1) |
1256 |
(cond ((re-search-backward (concat name ":") bound t) |
(cond ((re-search-backward (concat name ":") bound t) |