From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Bug in outline-minor-mode Date: Sat, 19 Jan 2008 19:05:16 +0100 Message-ID: <47923BDC.3050800@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------000600030708080000000303" X-Trace: ger.gmane.org 1200766060 7531 80.91.229.12 (19 Jan 2008 18:07:40 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 19 Jan 2008 18:07:40 +0000 (UTC) To: emacs-devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jan 19 19:07:59 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JGI6l-0000c8-Gp for ged-emacs-devel@m.gmane.org; Sat, 19 Jan 2008 19:07:55 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JGI6M-0007ad-8F for ged-emacs-devel@m.gmane.org; Sat, 19 Jan 2008 13:07:30 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JGI6I-0007Zs-Fz for emacs-devel@gnu.org; Sat, 19 Jan 2008 13:07:26 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JGI6G-0007Yz-U7 for emacs-devel@gnu.org; Sat, 19 Jan 2008 13:07:25 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JGI6G-0007Yp-MZ for emacs-devel@gnu.org; Sat, 19 Jan 2008 13:07:24 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1JGI6G-0007z7-5q for emacs-devel@gnu.org; Sat, 19 Jan 2008 13:07:24 -0500 Original-Received: (qmail invoked by alias); 19 Jan 2008 18:07:22 -0000 Original-Received: from M3112P026.adsl.highway.telekom.at (EHLO [88.117.36.250]) [88.117.36.250] by mail.gmx.net (mp030) with SMTP; 19 Jan 2008 19:07:22 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1+sYTB0geusHV9LiCJQMNu00jBaZdmLxxpJTSotrI kKDxSdW5xG+V9C User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en X-Y-GMX-Trusted: 0 X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:87084 Archived-At: This is a multi-part message in MIME format. --------------000600030708080000000303 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit With Emacs -Q open keyboard.c, scroll down so that line 89 reading /* Variables for blockinput.h: */ is the first line of the window. Now do M-x outline-minor-mode M-x hide-other Here, Emacs consumes ~100% CPU and I have to get out of this via C-g. Note: The problem does not occur when I call `hide-other' at bob. The attached patch fixes the problem for me. --------------000600030708080000000303 Content-Type: text/plain; name="outline.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="outline.patch" *** outline.el.~1.34.~ Tue Oct 9 11:52:48 2007 --- outline.el Fri Jan 18 20:59:52 2008 *************** *** 971,978 **** (or (eq last-command 'outline-up-heading) (push-mark))) (outline-back-to-heading invisible-ok) (let ((start-level (funcall outline-level))) ! (if (eq start-level 1) ! (error "Already at top level of the outline")) (while (and (> start-level 1) (> arg 0) (not (bobp))) (let ((level start-level)) (while (not (or (< level start-level) (bobp))) --- 971,978 ---- (or (eq last-command 'outline-up-heading) (push-mark))) (outline-back-to-heading invisible-ok) (let ((start-level (funcall outline-level))) ! (when (<= start-level 1) ! (error "Already at top level of the outline")) (while (and (> start-level 1) (> arg 0) (not (bobp))) (let ((level start-level)) (while (not (or (< level start-level) (bobp))) --------------000600030708080000000303 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --------------000600030708080000000303--