From c026460bc47f9c3be3fc27efb014c39d782a955e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 9 Nov 2010 23:59:00 -0800 Subject: [PATCH] * lisp/textmodes/texnfo-upd.el (texinfo-pointer-name): Fix typo. --- lisp/ChangeLog | 2 ++ lisp/textmodes/texnfo-upd.el | 3 +-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9189884892e..9187e1f451b 100644 --- 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 4c3dbda80b0..ff021532c50 100644 --- 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) -- 2.39.5