* lisp/textmodes/texnfo-upd.el (texinfo-pointer-name): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9189884892e0cbaed98a87cd45245bac81f64b5b..9187e1f451b8b4929979b5b1d359e655b1d01de5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,8 @@
        * emulation/tpu-extras.el (tpu-with-position): New macro.
        (tpu-paragraph, tpu-page, tpu-search-internal): Use it.
 
+       * textmodes/texnfo-upd.el (texinfo-pointer-name): Fix typo.
+
        * textmodes/texnfo-upd.el (texinfo-all-menus-update)
        (texinfo-menu-copy-old-description, texinfo-start-menu-description)
        (texinfo-master-menu, texinfo-insert-node-lines)

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 4c3dbda80b0d9e1ef11a42f1bf8a31112933a8ce..ff021532c50cd26c49cfd469d7c84ad121c6d935 100644 (file)
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -1439,8 +1439,7 @@ The argument is the kind of section, either `normal' or `no-pointer'."
           (end-of-line)                ; this handles prev node top case
           (re-search-backward          ; when point is already
            "^@node"                    ; at the beginning of @node line
-           ;; FIXME this can't be right.  Missing the point?
-           (save-excursion (forward-line -3))
+           (line-beginning-position -2)
            t)
           (setq name (texinfo-copy-node-name)))
          ((eq kind 'no-pointer)