From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.bugs Subject: bug#1116: Emacs hangs when executing Info-final-node Date: Wed, 08 Oct 2008 16:58:00 +0200 Message-ID: <48ECCA78.7080106@gmx.at> References: Reply-To: martin rudalics , 1116@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------080503010108090502060600" X-Trace: ger.gmane.org 1223480757 21062 80.91.229.12 (8 Oct 2008 15:45:57 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 8 Oct 2008 15:45:57 +0000 (UTC) Cc: 1116@emacsbugs.donarmstrong.com To: Sung-Taek Lim Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Oct 08 17:46:53 2008 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Knb1i-0000ia-C4 for geb-bug-gnu-emacs@m.gmane.org; Wed, 08 Oct 2008 17:32:38 +0200 Original-Received: from localhost ([127.0.0.1]:42086 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Knb0e-0000pv-FQ for geb-bug-gnu-emacs@m.gmane.org; Wed, 08 Oct 2008 11:31:32 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KnazC-0008Pk-5v for bug-gnu-emacs@gnu.org; Wed, 08 Oct 2008 11:30:02 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KnazA-0008Oj-K9 for bug-gnu-emacs@gnu.org; Wed, 08 Oct 2008 11:30:01 -0400 Original-Received: from [199.232.76.173] (port=49698 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KnazA-0008OU-Af for bug-gnu-emacs@gnu.org; Wed, 08 Oct 2008 11:30:00 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:52082) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KnazA-0000dl-4t for bug-gnu-emacs@gnu.org; Wed, 08 Oct 2008 11:30:00 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m98FTvJB002040; Wed, 8 Oct 2008 08:29:57 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.13.8/8.13.8/Submit) id m98FA46e029906; Wed, 8 Oct 2008 08:10:04 -0700 X-Loop: don@donarmstrong.com Resent-From: martin rudalics Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs Resent-Date: Wed, 08 Oct 2008 15:10:04 +0000 Resent-Message-ID: Resent-Sender: don@donarmstrong.com X-Emacs-PR-Message: report 1116 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by 1116-submit@emacsbugs.donarmstrong.com id=B1116.122347808527768 (code B ref 1116); Wed, 08 Oct 2008 15:10:04 +0000 Original-Received: (at 1116) by emacsbugs.donarmstrong.com; 8 Oct 2008 15:01:25 +0000 Original-Received: from mail.gmx.net (mail.gmx.net [213.165.64.20]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with SMTP id m98F1GEe027761 for <1116@emacsbugs.donarmstrong.com>; Wed, 8 Oct 2008 08:01:18 -0700 Original-Received: (qmail invoked by alias); 08 Oct 2008 15:01:10 -0000 Original-Received: from 62-47-40-234.adsl.highway.telekom.at (EHLO [62.47.40.234]) [62.47.40.234] by mail.gmx.net (mp002) with SMTP; 08 Oct 2008 17:01:10 +0200 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX18JlR1IDX0JVUUmfSa6tQshNaXi8bC+7op0sBBGAE nIXoUf4QOnngqU User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) In-Reply-To: X-Y-GMX-Trusted: 0 X-FuHaFi: 0.64,0.6 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) Resent-Date: Wed, 08 Oct 2008 11:30:01 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:21274 Archived-At: This is a multi-part message in MIME format. --------------080503010108090502060600 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit > 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 --------------080503010108090502060600 Content-Type: text/plain; name="1116.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="1116.diff" *** 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"))) --------------080503010108090502060600--