Commit 6b1e3271 authored by Richard M. Stallman's avatar Richard M. Stallman

(Info-tagify): Avoid 1-off error in position of a tag.

parent f0653de7
......@@ -48,9 +48,11 @@
(case-fold-search t)
(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
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