unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: michael.cadilhac@lrde.org (Michaël Cadilhac)
Subject: Re: Local values of PC-word-delimiters.
Date: Tue, 18 Apr 2006 12:05:01 +0200	[thread overview]
Message-ID: <87zmijrygi.fsf@lrde.org> (raw)
In-Reply-To: <87sloc9ls5.fsf@lrde.org> (Michaël Cadilhac's message of "Mon, 17 Apr 2006 19:03:54 +0200")


[-- Attachment #1.1: Type: text/plain, Size: 2426 bytes --]

michael.cadilhac@lrde.org (Michaël Cadilhac) writes:

> Kevin Rodgers <ihs_4664@yahoo.com> writes:
>
>> Michaël Cadilhac wrote:
>>>   I've a problem I can't solve in a clean way, here.
>>>
>>>   I   want  that  when   `gnus-group-jump-to-group'  is   called,  its
>>>   completing-read (PC enabled) uses `:' as PC-word-delimiters.
>>>
>>
>> Does this work?
>>
>> (defadvice gnus-group-jump-to-group (before PC-word-delimiters activate)
>>   "Temporarily bind  `PC-word-delimiters' while reading GROUP."
>>   (interactive
>>    (let ((PC-word-delimiters ":"))
>>      (call-interactively
>>       `(lambda (&rest args)
>>          ,(interactive-form 'gnus-group-jump-to-group)
>>          args)))))
>
>   Nice try :-)
>
>   Well, it doesn't. It complains about infinite recursion. I think it's
>   due to infinite evaluation of the advice on the « interactive-form ».
>
>   However, with a « before » advice, I think jump-to-group would have
>   been called twice.

    Okey, this remark was silly, I didn't read as I should your
    proposition, TITS with a lot of attention ;-)

    The following doesn't work:

> (defadvice gnus-group-jump-to-group (around PC-word-delimiters activate)
>   "Temporarily bind  `PC-word-delimiters' while reading GROUP."
>   (interactive
>    (let ((PC-word-delimiters ":"))
>      (ad-deactivate 'gnus-group-jump-to-group)
>      (call-interactively 'gnus-group-jump-to-group)
>      (ad-activate 'gnus-group-jump-to-group))))

    And is really dirty.

    One can fix your proposal, which is a really great one, by the
    following :

(defadvice gnus-group-jump-to-group (before PC-word-delimiters activate)
  "Temporarily bind  `PC-word-delimiters' while reading GROUP."
  (interactive
   (progn (ad-deactivate 'gnus-group-jump-to-group)
	  (let* ((PC-word-delimiters ":")
		 (retval (call-interactively
			  `(lambda (&rest args)
			     ,(interactive-form 'gnus-group-jump-to-group)
			     args))))
	    (ad-activate 'gnus-group-jump-to-group)
	    retval))))

   Thank you again, now it seems fine !

-- 
 |      Michaël `Micha' Cadilhac   |   Pour les 35-40 ans, l'humour         |
 |         Epita/LRDE Promo 2007   |        c'est une plus-value.           |
 | http://www.lrde.org/~cadilh_m   |           -- Guillaume L.              |
 `--  -   JID: micha@amessage.be --'                                   -  --'

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

  reply	other threads:[~2006-04-18 10:05 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2006-04-15 14:05 Local values of PC-word-delimiters Michaël Cadilhac
2006-04-17 16:22 ` Kevin Rodgers
2006-04-17 17:03   ` Michaël Cadilhac
2006-04-18 10:05     ` Michaël Cadilhac [this message]
2006-04-19 16:14       ` Kevin Rodgers

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

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87zmijrygi.fsf@lrde.org \
    --to=michael.cadilhac@lrde.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. 
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).