[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Local values of PC-word-delimiters.
|
From: |
Kevin Rodgers |
|
Subject: |
Re: Local values of PC-word-delimiters. |
|
Date: |
Wed, 19 Apr 2006 10:14:25 -0600 |
|
User-agent: |
Mozilla Thunderbird 0.9 (X11/20041105) |
Michaël Cadilhac wrote:
> (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))))
(defadvice gnus-group-jump-to-group (before PC-word-delimiters activate)
"Temporarily bind `PC-word-delimiters' while reading GROUP."
(interactive
(let ((PC-word-delimiters ":"))
(prog2 (ad-deactivate 'gnus-group-jump-to-group)
(call-interactively
`(lambda (&rest args)
,(interactive-form 'gnus-group-jump-to-group)
args))
(ad-activate 'gnus-group-jump-to-group)))))
--
Kevin Rodgers