From: jdc@chow.mat.jhu.edu (Dan Christensen)
Subject: jump and select
Date: Sat, 28 Feb 1998 16:19:20 -0500 [thread overview]
Message-ID: <x7sop3ig13.fsf@chow.mat.jhu.edu> (raw)
The following patch adds an optional argument to
gnus-group-jump-to-group which asks it to select the group it is
jumping to. So if the user types `C-u j', he or she will be
prompted for a group-name which will then be selected.
1) Is this a good way to get this functionality?
2) If so, can this patch be applied?
Dan
*** gnus-group.el Sat Feb 28 16:03:13 1998
--- gnus-group.el.orig Sat Feb 28 15:58:30 1998
***************
*** 1619,1649 ****
group)
;;(error nil)
(quit nil)))))
! (defun gnus-group-jump-to-group (group &optional select)
"Jump to newsgroup GROUP."
(interactive
(list (completing-read
"Group: " gnus-active-hashtb nil
(gnus-read-active-file-p)
nil
! 'gnus-group-history)
! current-prefix-arg))
(when (equal group "")
(error "Empty group name"))
! (if select
! (gnus-group-read-group t t group)
! (unless (gnus-ephemeral-group-p group)
;; Either go to the line in the group buffer...
(unless (gnus-group-goto-group group)
;; ... or insert the line.
(gnus-group-update-group group)
(gnus-group-goto-group group)))
;; Adjust cursor point.
! (gnus-group-position-point)))
(defun gnus-group-goto-group (group &optional far)
"Goto to newsgroup GROUP.
If FAR, it is likely that the group is not on the current line."
--- 1619,1646 ----
group)
;;(error nil)
(quit nil)))))
! (defun gnus-group-jump-to-group (group)
"Jump to newsgroup GROUP."
(interactive
(list (completing-read
"Group: " gnus-active-hashtb nil
(gnus-read-active-file-p)
nil
! 'gnus-group-history)))
(when (equal group "")
(error "Empty group name"))
! (unless (gnus-ephemeral-group-p group)
;; Either go to the line in the group buffer...
(unless (gnus-group-goto-group group)
;; ... or insert the line.
(gnus-group-update-group group)
(gnus-group-goto-group group)))
;; Adjust cursor point.
! (gnus-group-position-point))
(defun gnus-group-goto-group (group &optional far)
"Goto to newsgroup GROUP.
If FAR, it is likely that the group is not on the current line."
next reply other threads:[~1998-02-28 21:19 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-02-28 21:19 Dan Christensen [this message]
1998-03-01 12:57 ` Lars Magne Ingebrigtsen
1998-03-01 17:01 ` Dan Christensen
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=x7sop3ig13.fsf@chow.mat.jhu.edu \
--to=jdc@chow.mat.jhu.edu \
/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).