From: "Sung-Taek Lim" <totohero@gmail.com>
To: "martin rudalics" <rudalics@gmx.at>
Cc: 1116@emacsbugs.donarmstrong.com
Subject: bug#1116: Emacs hangs when executing Info-final-node
Date: Thu, 9 Oct 2008 21:37:36 +0900 [thread overview]
Message-ID: <c944a1210810090537r14c59110sa1ccc18e17e2e96c@mail.gmail.com> (raw)
In-Reply-To: <48ECCA78.7080106@gmx.at>
Thank you. Your patch works!
2008/10/8, martin rudalics <rudalics@gmx.at>:
> > I' running GNU Emacs 22.3.1 (i386-mingw-nt5.1.2600) of 2008-09-07 on
> SOFT-MJASON
> >
> > D:\> runemacs -Q --debug-init
> >
> > C-h i ;; open *info*
> > Press '>' ;; execute 'Info-final-node and emacs hangs!
> >
> > Always reproduced.
>
> Would the attached patch help?
>
> martin
>
> *** info.el.~1.501.2.7.~ 2008-03-25 14:48:24.000000000 +0100
> --- info.el 2008-10-08 16:52:49.703125000 +0200
> ***************
> *** 2437,2449 ****
> (Info-goto-node (Info-extract-menu-counting nil))
> ;; If the last node in the menu is not last in pointer structure,
> ;; move forward until we can't go any farther.
> ! (while (Info-forward-node t t) nil)
> ;; Then keep moving down to last subnode, unless we reach an index.
> (while (and (not (Info-index-node))
> (save-excursion (search-forward "\n* Menu:" nil t)))
> (Info-goto-node (Info-extract-menu-counting nil)))))
>
> ! (defun Info-forward-node (&optional not-down no-error)
> "Go forward one node, considering all nodes as forming one sequence."
> (interactive)
> (goto-char (point-min))
> --- 2437,2449 ----
> (Info-goto-node (Info-extract-menu-counting nil))
> ;; If the last node in the menu is not last in pointer structure,
> ;; move forward until we can't go any farther.
> ! (while (Info-forward-node t t t) nil)
> ;; Then keep moving down to last subnode, unless we reach an index.
> (while (and (not (Info-index-node))
> (save-excursion (search-forward "\n* Menu:" nil t)))
> (Info-goto-node (Info-extract-menu-counting nil)))))
>
> ! (defun Info-forward-node (&optional not-down no-error not-up)
> "Go forward one node, considering all nodes as forming one sequence."
> (interactive)
> (goto-char (point-min))
> ***************
> *** 2461,2467 ****
> ((save-excursion (search-backward "next:" nil t))
> (Info-next)
> t)
> ! ((and (save-excursion (search-backward "up:" nil t))
> ;; Use string-equal, not equal, to ignore text props.
> (not (string-equal (downcase (Info-extract-pointer "up"))
> "top")))
> --- 2461,2468 ----
> ((save-excursion (search-backward "next:" nil t))
> (Info-next)
> t)
> ! ((and (not not-up)
> ! (save-excursion (search-backward "up:" nil t))
> ;; Use string-equal, not equal, to ignore text props.
> (not (string-equal (downcase (Info-extract-pointer "up"))
> "top")))
>
>
>
next prev parent reply other threads:[~2008-10-09 12:37 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <48EF5EA2.8050408@gmx.at>
2008-10-08 0:48 ` bug#1116: Emacs hangs when executing Info-final-node Sung-Taek Lim
2008-10-08 14:58 ` martin rudalics
2008-10-08 16:00 ` Drew Adams
2008-10-08 18:03 ` martin rudalics
2008-10-08 18:29 ` Drew Adams
2008-10-08 16:03 ` Drew Adams
2008-10-09 12:37 ` Sung-Taek Lim [this message]
2008-10-10 14:05 ` bug#1116: marked as done (Emacs hangs when executing Info-final-node) Emacs bug Tracking System
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=c944a1210810090537r14c59110sa1ccc18e17e2e96c@mail.gmail.com \
--to=totohero@gmail.com \
--cc=1116@emacsbugs.donarmstrong.com \
--cc=rudalics@gmx.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.