From: Hrvoje Niksic <hniksic@srce.hr>
Subject: Re: Bug with gnus-group-jump-to-group and topics
Date: 27 May 1997 19:32:38 +0200 [thread overview]
Message-ID: <kigaflgn7m1.fsf@jagor.srce.hr> (raw)
In-Reply-To: Paul Stodghill's message of 27 May 1997 09:10:15 -0400
Paul Stodghill <stodghil@CS.Cornell.EDU> writes:
> It seems to go into an infinite loop.
This looks repeatable. When I set `debug-on-quit' to t and load the
uncompiled files, I get the following backtrace:
Signaling: (quit)
equal(nil "Gnus")
(not (equal (caaar tp) topic))
)
(while (not (equal ... topic)) (setq tp (cdr tp)))
)
(let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
(if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
gnus-topic-goto-missing-topic("Gnus")
(if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic (caadr top)))
)
(let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
(if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
gnus-topic-goto-missing-topic("Computers...")
(if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic (caadr top)))
)
(let* ((top ...) (tp ...)) (while (not ...) (setq tp ...)) (pop tp) (while (and tp ...) (pop tp)) (if tp (gnus-topic-forward-topic 1) (gnus-topic-goto-missing-topic ...)))
)
(if (gnus-topic-goto-topic topic) (forward-line 1) (let* (... ...) (while ... ...) (pop tp) (while ... ...) (if tp ... ...)) nil)
)
gnus-topic-goto-missing-topic("Emacs")
(not (gnus-topic-goto-missing-topic topic))
)
(and unfound topic (not (gnus-topic-goto-missing-topic topic)))
)
(if (and unfound topic (not ...)) (progn (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
(when (and unfound topic (not ...)) (gnus-topic-insert-topic-line topic t t (car ...) nil 0))
)
(progn (setq g (cdr ...)) (while (and g unfound) (when ... ... ...)) (when (and unfound topic ...) (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
(if (not g) (progn (setq g ...) (while ... ...) (when ... ...)))
)
(when (not g) (setq g (cdr ...)) (while (and g unfound) (when ... ... ...)) (when (and unfound topic ...) (gnus-topic-insert-topic-line topic t t ... nil 0)))
)
(let* ((topic ...) (groups ...) (g ...) (unfound t)) (while (and g ...) (pop g)) (when (not g) (setq g ...) (while ... ...) (when ... ...)))
)
gnus-topic-goto-missing-group("comp.emacs")
funcall(gnus-topic-goto-missing-group "comp.emacs")
(if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let (...) (while ... ...) (or entry ...)))
)
(if (or found visible-only) nil (if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let ... ... ...)) (let (...) (gnus-group-insert-group-line-info group) (save-excursion ... ...)))
)
(unless (or found visible-only) (if gnus-goto-missing-group-function (funcall gnus-goto-missing-group-function group) (let ... ... ...)) (let (...) (gnus-group-insert-group-line-info group) (save-excursion ... ...)))
)
(let ((ident ...) (loc ...) found buffer-read-only) (let (...) (when ... ...)) (while (setq loc ...) (setq found t) (goto-char loc) (let ... ... ... ...) (setq loc ...)) (unless (or found visible-only) (if gnus-goto-missing-group-function ... ...) (let ... ... ...)) (when gnus-group-update-group-function (funcall gnus-group-update-group-function group)) (gnus-group-set-mode-line))
)
(save-restriction (widen) (let (... ... found buffer-read-only) (let ... ...) (while ... ... ... ... ...) (unless ... ... ...) (when gnus-group-update-group-function ...) (gnus-group-set-mode-line)))
)
(let ((buf ...) mark) (set-buffer gnus-group-buffer) (setq mark (point-marker)) (save-restriction (widen) (let ... ... ... ... ... ...)) (goto-char mark) (set-marker mark nil) (set-buffer buf))
)
gnus-group-update-group("comp.emacs")
(if (gnus-group-goto-group group) nil (gnus-group-update-group group) (gnus-group-goto-group group))
)
(unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group))
)
(if (gnus-ephemeral-group-p group) nil (unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group)))
)
(unless (gnus-ephemeral-group-p group) (unless (gnus-group-goto-group group) (gnus-group-update-group group) (gnus-group-goto-group group)))
)
(lambda (group) "Jump to newsgroup GROUP." (interactive (list ...)) (when (equal group "") (error "Empty group name")) (unless (gnus-ephemeral-group-p group) (unless ... ... ...)) (gnus-group-position-point))("comp.emacs")
call-interactively(gnus-group-jump-to-group)
--
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Then... his face does a complete change of expression. It goes from
a "Vengeance is mine" expression, to a "What the fuck" blank look.
next prev parent reply other threads:[~1997-05-27 17:32 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-05-27 13:10 Paul Stodghill
1997-05-27 17:32 ` Hrvoje Niksic [this message]
1997-05-30 20:14 ` Lars Magne Ingebrigtsen
1997-05-30 20:15 ` Lars Magne Ingebrigtsen
1997-05-31 16:34 ` Paul Stodghill
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=kigaflgn7m1.fsf@jagor.srce.hr \
--to=hniksic@srce.hr \
/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.
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 NNTP newsgroup(s).