From: Stefan Monnier <monnier@iro.umontreal.ca>
To: Eric Abrahamsen <eric@ericabrahamsen.net>
Cc: larsi@gnus.org, 38252@debbugs.gnu.org
Subject: bug#38252: 27.0.50; Gnus server definitions and generic function specializers
Date: Sun, 17 Nov 2019 23:36:09 -0500 [thread overview]
Message-ID: <jwvd0dp95h5.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <87imnhan3t.fsf@ericabrahamsen.net> (Eric Abrahamsen's message of "Sun, 17 Nov 2019 19:18:30 -0800")
> But just so I don't feel like I wasted my afternoon: how *would* one
> write the generalizer I'm talking about?
Ah, that part.
I guess It could look like (guaranteed 100% untested):
(defvar gnus--legacy-server-tag (make-symbol "gnus-legacy-server"))
(cl-generic-define-generalizer gnus-legacy-server-generalizer
90 (lambda (varname &rest _)
`(and (consp ,varname)
(symbolp (car ,varname))
(assq (car ,varname) nnoo-definition-alist)
(stringp (cadr ,varname))
gnus--legacy-server-tag))
(lambda (tag &rest _)
(when (eq tag gnus--legacy-server-tag) (list tag))))
(cl-defmethod cl-generic-generalizers ((_ (eql gnus-legacy-server)))
"Dispatch on old-style Gnus server definitions."
(list gnus-legacy-server-generalizer))
-- Stefan
next prev parent reply other threads:[~2019-11-18 4:36 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-11-17 22:31 bug#38252: 27.0.50; Gnus server definitions and generic function specializers Eric Abrahamsen
2019-11-18 2:03 ` Stefan Monnier
2019-11-18 3:18 ` Eric Abrahamsen
2019-11-18 4:36 ` Stefan Monnier [this message]
2019-11-18 20:43 ` Eric Abrahamsen
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=jwvd0dp95h5.fsf-monnier+emacs@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=38252@debbugs.gnu.org \
--cc=eric@ericabrahamsen.net \
--cc=larsi@gnus.org \
/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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.