Lines Matching +defs:end +defs:of
10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
54 (defvar tex-end-of-header)
55 (defvar tex-start-of-header)
65 The name of the file is appended to this string, separated by a space."
95 (defun makeinfo-region (region-beginning region-end)
96 "Make Info file from region of current Texinfo file, and switch to it.
100 command to gain use of `next-error'."
105 filename-or-header-end)
123 (let ((search-end (save-excursion (forward-line 100) (point))))
128 search-end t)
130 (buffer-substring (match-beginning 1) (match-end 1)))
134 ;; Find header and specify its beginning and end.
138 (search-forward tex-start-of-header search-end t)
139 (beginning-of-line)
140 ;; Mark beginning of header.
143 (search-forward tex-end-of-header nil t)
144 (beginning-of-line)
145 ;; Mark end of header
146 (setq filename-or-header-end (point))))
151 filename-or-header-end
156 (search-forward "@setfilename" search-end t)
157 (beginning-of-line)
160 (setq filename-or-header-end (point))
163 filename-or-header-end
168 (max region-beginning filename-or-header-end)
169 region-end
188 (error "Use `makeinfo-buffer' to gain use of the `next-error' command"))
225 "Return the name of the node containing point, in a texinfo file."
227 (end-of-line) ; in case point is at the start of an @node line
249 (let ((search-end (save-excursion (forward-line 100) (point))))
252 search-end t)
255 (buffer-substring (match-beginning 1) (match-end 1))))
277 The last line of the buffer is displayed on
278 line LINE of the window, or centered if LINE is nil."
293 ;;; Place `provide' at end of file.