Mercurial > emacs
changeset 10154:a864b7f97b56
(Info-tagify): Avoid 1-off error in position of a tag.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 13 Dec 1994 18:53:37 +0000 |
| parents | 2279074cd821 |
| children | 689adf47dee3 |
| files | lisp/informat.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/informat.el Tue Dec 13 18:47:37 1994 +0000 +++ b/lisp/informat.el Tue Dec 13 18:53:37 1994 +0000 @@ -48,9 +48,11 @@ (case-fold-search t) list) (while (search-forward "\n\^_" nil t) - (forward-line 1) - (let ((beg (point))) - (forward-line 1) + ;; We want the 0-origin character position of the ^_. + ;; That is the same as the Emacs (1-origin) position + ;; of the newline before it. + (let ((beg (match-beginning 0))) + (forward-line 2) (if (re-search-backward regexp beg t) (setq list (cons (list (buffer-substring