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 allout-hide-current-leaves Date: Sat, 19 Jan 2008 18:24:55 +0100 Message-ID: <47923267.2090500@gmx.at> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1200763793 555 80.91.229.12 (19 Jan 2008 17:29:53 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 19 Jan 2008 17:29:53 +0000 (UTC) Cc: ken.manheimer@gmail.com To: emacs-devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Jan 19 18:30:12 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 1JGHWE-0004lB-9c for ged-emacs-devel@m.gmane.org; Sat, 19 Jan 2008 18:30:10 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JGHVp-0003QY-3x for ged-emacs-devel@m.gmane.org; Sat, 19 Jan 2008 12:29:45 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JGHVm-0003QR-5v for emacs-devel@gnu.org; Sat, 19 Jan 2008 12:29:42 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JGHVk-0003QC-Ly for emacs-devel@gnu.org; Sat, 19 Jan 2008 12:29:40 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JGHVk-0003Q9-Io for emacs-devel@gnu.org; Sat, 19 Jan 2008 12:29:40 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1JGHVk-0000xS-5H for emacs-devel@gnu.org; Sat, 19 Jan 2008 12:29:40 -0500 Original-Received: (qmail invoked by alias); 19 Jan 2008 17:29:38 -0000 Original-Received: from N945P004.adsl.highway.telekom.at (EHLO [62.47.62.4]) [62.47.62.4] by mail.gmx.net (mp029) with SMTP; 19 Jan 2008 18:29:38 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX1+wTdhXyQqwxf6wh1YwjDueKmRq6laROVuceYmnPl cGj83c77rrbYPb 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:87081 Archived-At: To reproduce with Emacs -Q: Open src/keyboard.c, do M-x allout-mode, and M-x allout-hide-current-leaves. Gets me: Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) -(nil nil 2) (max 1 (- allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction)) (setq allout-recent-prefix-end (or (match-end 1) (match-end 2)) allout-recent-prefix-beginning (or (match-beginning 1) (match-beginning 2)) allout-recent-depth (max 1 (- allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction))) allout-prefix-data() (setq done (allout-prefix-data)) (if (looking-at allout-regexp) (setq done (allout-prefix-data)) (forward-char -1)) (while (and (not done) (search-backward "\n" nil 1)) (forward-char 1) (if (looking-at allout-regexp) (setq done ...) (forward-char -1))) (let (done) (while (and ... ...) (forward-char 1) (if ... ... ...)) (if (bobp) (cond ... ... ...) done)) (progn (let (done) (while ... ... ...) (if ... ... done))) (unwind-protect (progn (let ... ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (let (done) (while ... ... ...) (if ... ... done))) allout-goto-prefix() (if (allout-goto-prefix) (if (and ... ...) (allout-previous-heading) (point))) allout-goto-prefix-doublechecked() (if (allout-goto-prefix-doublechecked) (if (<= ... bol-point) (if ... ... ...) (goto-char ...) nil)) (let ((bol-point ...)) (if (allout-goto-prefix-doublechecked) (if ... ... ... nil))) allout-back-to-current-heading() allout-hide-current-leaves() call-interactively(allout-hide-current-leaves) execute-extended-command(nil) call-interactively(execute-extended-command) Note that `allout-regexp' is "\\(/\\*_[ ]*[\\.,\\*\\+--=>()\\[{}&!\\?#%\"X@\\$~_\\\\:;\\^/\\*_]\\)\\|\\(/\\*_\\|/\\*_\\)+ ?[^/*_]\\|\f" hence it cannot possibly match _two_ parenthetical subexpressions.