From: Tanaka Akira <akr@m17n.org>
To: zsh-workers@sunsite.auc.dk
Subject: Re: Expand only completions, complete only uncompleted completions
Date: 06 May 2000 01:15:04 +0900 [thread overview]
Message-ID: <hvor9bhnfcn.fsf@serein.m17n.org> (raw)
In-Reply-To: <1000505144645.ZM651@candle.brasslantern.com> (Bart Schaefer's message of "Fri, 5 May 2000 14:46:44 +0000")
In article <1000505144645.ZM651@candle.brasslantern.com>,
"Bart Schaefer" <schaefer@candle.brasslantern.com> writes:
> On a slightly different topic:
>
>
> zagzig[117] cvs add _lzop _l<TAB>
> Completing file
> _lzop _look
>
>
> No, I don't need _lzop any more, it's already there.
This patch do it.
(And allow multiple --allow-root.)
Index: Completion/User/_cvs
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/User/_cvs,v
retrieving revision 1.4
diff -u -r1.4 _cvs
--- Completion/User/_cvs 2000/04/11 07:57:57 1.4
+++ Completion/User/_cvs 2000/05/05 16:12:02
@@ -7,7 +7,7 @@
_arguments -s \
-{a,f,H,l,n,Q,q,r,t,v,w,x} \
'--version' '--help' '--help-commands' '--help-synonyms' '--help-options' \
- '--allow-root=:rootdir:_files -/' \
+ '*--allow-root=:rootdir:_files -/' \
'-b+:bindir:_cvs_bindir' \
'-T+:temporary directory:_cvs_tempdir' \
'-d+:cvsroot:_cvs_root' \
@@ -601,6 +601,10 @@
_cvs_setup_prefix
if [[ -d ${pref}CVS ]]; then
_cvs_setup_modentries
+ setopt localoptions unset
+ local omit
+ omit=($line)
+ eval 'entries=(${entries:#('${(j:|:)${(@)omit:q}}')})'
(( $#entries )) && _files "$@" -g "${(j:|:)${(@)entries:q}}"
else
_files "$@"
@@ -615,7 +619,7 @@
_cvs_setup_allentries
setopt localoptions unset
local omit
- omit=(${pref}*(D:t))
+ omit=(${pref}*(D:t) $line)
eval 'entries=(${entries:#('${(j:|:)${(@)omit:q}}')})'
_tags directories && compadd "$@" -P "$qpref" - ${entries:q} ||
_cvs_directories "$@"
@@ -632,7 +636,7 @@
_cvs_setup_allentries
setopt localoptions unset
local omit
- omit=($_cvs_ignore_default ${entries:q} ${=cvsignore})
+ omit=($_cvs_ignore_default ${entries:q} ${=cvsignore} $line)
[[ -r ~/.cvsignore ]] && omit=($omit $(<~/.cvsignore))
[[ -r ${pref}.cvsignore ]] && omit=($omit $(<${pref}.cvsignore))
_path_files "$@" -g '*~(*/|)('${(j:|:)omit}')(D)' ||
--
Tanaka Akira
prev parent reply other threads:[~2000-05-05 16:14 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-05-05 14:46 Bart Schaefer
2000-05-05 16:15 ` Tanaka Akira [this message]
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=hvor9bhnfcn.fsf@serein.m17n.org \
--to=akr@m17n.org \
--cc=zsh-workers@sunsite.auc.dk \
/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 public inbox
https://git.vuxu.org/mirror/zsh/
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).