unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Bug in allout-hide-current-leaves
@ 2008-01-19 17:24 martin rudalics
  2008-01-21  9:08 ` Richard Stallman
  2008-01-21 18:49 ` Ken Manheimer
  0 siblings, 2 replies; 8+ messages in thread
From: martin rudalics @ 2008-01-19 17:24 UTC (permalink / raw)
  To: emacs-devel; +Cc: ken.manheimer

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.

^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2008-01-26 16:49 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-01-19 17:24 Bug in allout-hide-current-leaves martin rudalics
2008-01-21  9:08 ` Richard Stallman
2008-01-21 18:49 ` Ken Manheimer
2008-01-21 18:59   ` Ken Manheimer
2008-01-21 19:35     ` martin rudalics
2008-01-21 23:45       ` Ken Manheimer
2008-01-22 22:29         ` Richard Stallman
2008-01-26 16:49         ` Ken Manheimer

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).