FM / functions

/usr/share/zsh/4.3.11/functions/

/usr/share/zsh/4.3.11/functions

Name	Size	Mode	Actions
add-zsh-hook	1632	0644	edit dl rm
age	2033	0644	edit dl rm
allopt	770	0644	edit dl rm
backward-kill-word-match	593	0644	edit dl rm
backward-word-match	450	0644	edit dl rm
bashcompinit	4702	0644	edit dl rm
calendar	11746	0644	edit dl rm
calendar_add	8273	0755	edit dl rm
calendar_edit	794	0644	edit dl rm
calendar_lockfiles	1629	0644	edit dl rm
calendar_parse	6115	0644	edit dl rm
calendar_read	1271	0644	edit dl rm
calendar_scandate	29150	0644	edit dl rm
calendar_show	1029	0644	edit dl rm
calendar_showdate	1461	0644	edit dl rm
calendar_sort	1930	0644	edit dl rm
capitalize-word-match	373	0644	edit dl rm
catch	1250	0644	edit dl rm
cdr	11510	0644	edit dl rm
checkmail	817	0755	edit dl rm
chpwd_recent_add	506	0644	edit dl rm
chpwd_recent_dirs	1593	0644	edit dl rm
chpwd_recent_filehandler	1176	0644	edit dl rm
colors	3401	0644	edit dl rm
compaudit	4911	0644	edit dl rm
compdump	4015	0644	edit dl rm
compinit	16088	0644	edit dl rm
compinstall	61500	0644	edit dl rm
copy-earlier-word	795	0644	edit dl rm
cycle-completion-positions	497	0644	edit dl rm
define-composed-chars	7947	0644	edit dl rm
delete-whole-word-match	1705	0644	edit dl rm
down-case-word-match	376	0644	edit dl rm
down-line-or-beginning-search	586	0644	edit dl rm
edit-command-line	550	0644	edit dl rm
forward-word-match	764	0644	edit dl rm
getjobs	827	0644	edit dl rm
harden	96	0755	edit dl rm
history-beginning-search-menu	3483	0644	edit dl rm
history-pattern-search	2170	0644	edit dl rm
history-search-end	812	0644	edit dl rm
incarg	1002	0644	edit dl rm
incremental-complete-word	3868	0644	edit dl rm
insert-composed-char	5237	0644	edit dl rm
insert-files	997	0644	edit dl rm
insert-unicode-char	693	0644	edit dl rm
is-at-least	1371	0644	edit dl rm
keeper	3226	0644	edit dl rm
keymap+widget	2663	0644	edit dl rm
kill-word-match	591	0644	edit dl rm
match-word-context	992	0644	edit dl rm
match-words-by-style	9078	0644	edit dl rm
mere	2062	0644	edit dl rm
modify-current-argument	1948	0644	edit dl rm
narrow-to-region	3539	0644	edit dl rm
narrow-to-region-invisible	211	0644	edit dl rm
nslookup	1126	0644	edit dl rm
pick-web-browser	4875	0644	edit dl rm
predict-on	4715	0644	edit dl rm
promptinit	5810	0644	edit dl rm
promptnl	3301	0644	edit dl rm
prompt_adam1_setup	1810	0644	edit dl rm
prompt_adam2_setup	4090	0644	edit dl rm
prompt_bart_setup	6739	0644	edit dl rm
prompt_bigfade_setup	1854	0644	edit dl rm
prompt_clint_setup	1695	0644	edit dl rm
prompt_elite2_setup	1638	0644	edit dl rm
prompt_elite_setup	1523	0644	edit dl rm
prompt_fade_setup	1810	0644	edit dl rm
prompt_fire_setup	1989	0644	edit dl rm
prompt_off_setup	121	0644	edit dl rm
prompt_oliver_setup	1467	0644	edit dl rm
prompt_pws_setup	663	0644	edit dl rm
prompt_redhat_setup	273	0644	edit dl rm
prompt_special_chars	775	0644	edit dl rm
prompt_suse_setup	260	0644	edit dl rm
prompt_walters_setup	558	0644	edit dl rm
prompt_zefram_setup	509	0644	edit dl rm
quote-and-complete-word	1442	0644	edit dl rm
read-from-minibuffer	1429	0644	edit dl rm
regexp-replace	1039	0644	edit dl rm
relative	888	0644	edit dl rm
replace-string	651	0644	edit dl rm
replace-string-again	1824	0644	edit dl rm
run-help	2915	0755	edit dl rm
run-help-git	144	0644	edit dl rm
run-help-openssl	59	0644	edit dl rm
run-help-p4	78	0644	edit dl rm
run-help-sudo	56	0644	edit dl rm
run-help-svk	42	0644	edit dl rm
run-help-svn	42	0644	edit dl rm
select-word-style	1901	0644	edit dl rm
smart-insert-last-word	4151	0644	edit dl rm
split-shell-arguments	1530	0644	edit dl rm
sticky-note	4702	0755	edit dl rm
tcp_alias	4093	0644	edit dl rm
tcp_close	2981	0644	edit dl rm
tcp_command	68	0644	edit dl rm
tcp_expect	4156	0644	edit dl rm
tcp_fd_handler	970	0644	edit dl rm
tcp_log	2285	0644	edit dl rm
tcp_open	6789	0644	edit dl rm
tcp_output	1792	0644	edit dl rm
tcp_point	443	0644	edit dl rm
tcp_proxy	849	0644	edit dl rm
tcp_read	7055	0644	edit dl rm
tcp_rename	850	0644	edit dl rm
tcp_send	1988	0644	edit dl rm
tcp_sess	1039	0644	edit dl rm
tcp_shoot	329	0644	edit dl rm
tcp_spam	2909	0644	edit dl rm
tcp_talk	1472	0644	edit dl rm
tcp_wait	459	0644	edit dl rm
tetris	5433	0644	edit dl rm
throw	1022	0644	edit dl rm
transpose-lines	1088	0644	edit dl rm
transpose-words-match	1336	0644	edit dl rm
up-case-word-match	377	0644	edit dl rm
up-line-or-beginning-search	564	0644	edit dl rm
url-quote-magic	5737	0644	edit dl rm
vcs_info	3272	0644	edit dl rm
VCS_INFO_adjust	246	0644	edit dl rm
VCS_INFO_bydir_detect	754	0644	edit dl rm
VCS_INFO_check_com	322	0644	edit dl rm
VCS_INFO_detect_bzr	326	0644	edit dl rm
VCS_INFO_detect_cdv	335	0644	edit dl rm
VCS_INFO_detect_cvs	325	0644	edit dl rm
VCS_INFO_detect_darcs	333	0644	edit dl rm
VCS_INFO_detect_git	657	0644	edit dl rm
VCS_INFO_detect_hg	674	0644	edit dl rm
VCS_INFO_detect_mtn	336	0644	edit dl rm
VCS_INFO_detect_p4	2360	0644	edit dl rm
VCS_INFO_detect_svk	1468	0644	edit dl rm
VCS_INFO_detect_svn	300	0644	edit dl rm
VCS_INFO_detect_tla	345	0644	edit dl rm
VCS_INFO_formats	3707	0644	edit dl rm
VCS_INFO_get_cmd	233	0644	edit dl rm
VCS_INFO_get_data_bzr	1238	0644	edit dl rm
VCS_INFO_get_data_cdv	305	0644	edit dl rm
VCS_INFO_get_data_cvs	512	0644	edit dl rm
VCS_INFO_get_data_darcs	311	0644	edit dl rm
VCS_INFO_get_data_git	5619	0644	edit dl rm
VCS_INFO_get_data_hg	8198	0644	edit dl rm
VCS_INFO_get_data_mtn	410	0644	edit dl rm
VCS_INFO_get_data_p4	1109	0644	edit dl rm
VCS_INFO_get_data_svk	729	0644	edit dl rm
VCS_INFO_get_data_svn	1292	0644	edit dl rm
VCS_INFO_get_data_tla	479	0644	edit dl rm
VCS_INFO_hook	1335	0644	edit dl rm
vcs_info_lastmsg	493	0644	edit dl rm
VCS_INFO_maxexports	472	0644	edit dl rm
VCS_INFO_nvcsformats	423	0644	edit dl rm
vcs_info_printsys	1298	0644	edit dl rm
VCS_INFO_quilt	5590	0644	edit dl rm
VCS_INFO_realpath	250	0644	edit dl rm
VCS_INFO_reposub	295	0644	edit dl rm
VCS_INFO_set	853	0644	edit dl rm
vcs_info_setsys	571	0644	edit dl rm
which-command	1031	0644	edit dl rm
xtermctl	4185	0644	edit dl rm
zargs	8874	0644	edit dl rm
zcalc	7129	0755	edit dl rm
zed	2162	0755	edit dl rm
zed-set-file-name	145	0644	edit dl rm
zfanon	1904	0644	edit dl rm
zfautocheck	1318	0644	edit dl rm
zfcd	1933	0644	edit dl rm
zfcd_match	1161	0644	edit dl rm
zfcget	2077	0644	edit dl rm
zfclose	90	0644	edit dl rm
zfcput	2491	0644	edit dl rm
zfdir	3229	0644	edit dl rm
zffcache	729	0644	edit dl rm
zfgcp	1954	0644	edit dl rm
zfget	1775	0644	edit dl rm
zfget_match	824	0644	edit dl rm
zfgoto	2250	0644	edit dl rm
zfhere	181	0644	edit dl rm
zfinit	2550	0644	edit dl rm
zfls	208	0644	edit dl rm
zfmark	1442	0644	edit dl rm
zfopen	1186	0644	edit dl rm
zfparams	687	0644	edit dl rm
zfpcp	1300	0644	edit dl rm
zfput	1444	0644	edit dl rm
zfrglob	2137	0644	edit dl rm
zfrtime	1362	0644	edit dl rm
zfsession	1644	0644	edit dl rm
zfstat	2024	0644	edit dl rm
zftp_chpwd	1386	0644	edit dl rm
zftp_progress	2081	0644	edit dl rm
zftransfer	1578	0644	edit dl rm
zftype	613	0644	edit dl rm
zfuget	3923	0644	edit dl rm
zfuput	2680	0644	edit dl rm
zkbd	7172	0755	edit dl rm
zmathfuncdef	2279	0644	edit dl rm
zmv	11142	0644	edit dl rm
zrecompile	6185	0644	edit dl rm
zsh-mime-handler	8055	0644	edit dl rm
zsh-mime-setup	11359	0644	edit dl rm
zsh-newuser-install	30038	0644	edit dl rm
zstyle+	1267	0644	edit dl rm
ztodo	1405	0644	edit dl rm
_a2ps	2809	0644	edit dl rm
_a2utils	487	0644	edit dl rm
_aap	2638	0644	edit dl rm
_acpi	1272	0644	edit dl rm
_acpitool	2435	0644	edit dl rm
_acroread	3501	0644	edit dl rm
_alias	711	0644	edit dl rm
_aliases	708	0644	edit dl rm
_all_labels	920	0644	edit dl rm
_all_matches	970	0644	edit dl rm
_alternative	1950	0644	edit dl rm
_analyseplugin	647	0644	edit dl rm
_ant	6106	0644	edit dl rm
_antiword	1109	0644	edit dl rm
_apachectl	116	0644	edit dl rm
_apm	1680	0644	edit dl rm
_approximate	3472	0644	edit dl rm
_apt	20700	0644	edit dl rm
_apt-file	1796	0644	edit dl rm
_apt-move	1812	0644	edit dl rm
_apt-show-versions	750	0644	edit dl rm
_aptitude	3257	0644	edit dl rm
_arch_archives	413	0644	edit dl rm
_arch_namespace	3308	0644	edit dl rm
_arguments	16936	0644	edit dl rm
_arg_compile	7569	0644	edit dl rm
_arp	1169	0644	edit dl rm
_arping	1351	0644	edit dl rm
_arrays	86	0644	edit dl rm
_assign	64	0644	edit dl rm
_attr	2294	0644	edit dl rm
_auto-apt	1081	0644	edit dl rm
_autocd	85	0644	edit dl rm
_awk	972	0644	edit dl rm
_axi-cache	725	0644	edit dl rm
_bash_completions	1358	0644	edit dl rm
_baz	16017	0644	edit dl rm
_bindkey	2048	0644	edit dl rm
_bind_addresses	408	0644	edit dl rm
_bison	923	0644	edit dl rm
_bittorrent	4902	0644	edit dl rm
_bogofilter	5288	0644	edit dl rm
_brace_parameter	43	0644	edit dl rm
_brctl	1762	0644	edit dl rm
_bsd_pkg	5553	0644	edit dl rm
_bts	7051	0644	edit dl rm
_bug	4687	0644	edit dl rm
_builtin	178	0644	edit dl rm
_bzip2	2364	0644	edit dl rm
_bzr	10732	0644	edit dl rm
_cache_invalid	707	0644	edit dl rm
_cal	547	0644	edit dl rm
_calendar	1406	0644	edit dl rm
_call_function	737	0644	edit dl rm
_call_program	211	0644	edit dl rm
_canonical_paths	4203	0644	edit dl rm
_ccal	778	0644	edit dl rm
_cd	3671	0644	edit dl rm
_cdbs-edit-patch	56	0644	edit dl rm
_cdcd	2142	0644	edit dl rm
_cdr	1196	0644	edit dl rm
_cdrdao	8249	0644	edit dl rm
_cdrecord	4862	0644	edit dl rm
_chflags	1539	0644	edit dl rm
_chkconfig	777	0644	edit dl rm
_chmod	2278	0644	edit dl rm
_chown	2538	0644	edit dl rm
_chrt	1667	0644	edit dl rm
_combination	2500	0644	edit dl rm
_comm	409	0644	edit dl rm
_command	238	0644	edit dl rm
_command_names	1153	0644	edit dl rm
_compdef	1963	0644	edit dl rm
_complete	3167	0644	edit dl rm
_complete_debug	755	0644	edit dl rm
_complete_help	2455	0644	edit dl rm
_complete_help_generic	412	0644	edit dl rm
_complete_tag	1866	0644	edit dl rm
_compress	1414	0644	edit dl rm
_condition	1696	0644	edit dl rm
_configure	444	0644	edit dl rm
_coreadm	1500	0644	edit dl rm
_correct	518	0644	edit dl rm
_correct_filename	1961	0644	edit dl rm
_correct_word	388	0644	edit dl rm
_cowsay	535	0644	edit dl rm
_cp	2396	0644	edit dl rm
_cpio	4658	0644	edit dl rm
_cplay	339	0644	edit dl rm
_cssh	795	0644	edit dl rm
_csup	1128	0644	edit dl rm
_ctags_tags	170	0644	edit dl rm
_cut	2636	0644	edit dl rm
_cvs	28948	0644	edit dl rm
_cvsup	937	0644	edit dl rm
_cygcheck	2052	0644	edit dl rm
_cygpath	2613	0644	edit dl rm
_cygrunsrv	2772	0644	edit dl rm
_cygserver	1539	0644	edit dl rm
_cygstart	2178	0644	edit dl rm
_dak	9184	0644	edit dl rm
_darcs	1199	0644	edit dl rm
_date	1132	0644	edit dl rm
_dchroot	1058	0644	edit dl rm
_dchroot-dsa	987	0644	edit dl rm
_dcop	2945	0644	edit dl rm
_dd	812	0644	edit dl rm
_debchange	511	0644	edit dl rm
_debdiff	894	0644	edit dl rm
_debfoster	3216	0644	edit dl rm
_debsign	623	0644	edit dl rm
_deb_packages	3612	0644	edit dl rm
_default	682	0644	edit dl rm
_defaults	1724	0644	edit dl rm
_delimiters	329	0644	edit dl rm
_describe	3195	0644	edit dl rm
_description	3107	0644	edit dl rm
_devtodo	4554	0644	edit dl rm
_dhclient	925	0644	edit dl rm
_dhcpinfo	1203	0644	edit dl rm
_dict	2141	0644	edit dl rm
_dict_words	1292	0644	edit dl rm
_diff	90	0644	edit dl rm
_diffstat	727	0644	edit dl rm
_diff_options	7144	0644	edit dl rm
_directories	117	0644	edit dl rm
_directory_stack	1418	0644	edit dl rm
_dirs	262	0644	edit dl rm
_dir_list	680	0644	edit dl rm
_disable	459	0644	edit dl rm
_dispatch	2057	0644	edit dl rm
_django	5996	0644	edit dl rm
_dladm	14058	0644	edit dl rm
_dlocate	893	0644	edit dl rm
_dmidecode	935	0644	edit dl rm
_domains	585	0644	edit dl rm
_dpatch-edit-patch	1275	0644	edit dl rm
_dpkg	7458	0644	edit dl rm
_dpkg-buildpackage	1201	0644	edit dl rm
_dpkg-cross	1147	0644	edit dl rm
_dpkg-repack	378	0644	edit dl rm
_dpkg_source	1318	0644	edit dl rm
_dput	1288	0644	edit dl rm
_du	3184	0644	edit dl rm
_dumpadm	596	0644	edit dl rm
_dumper	377	0644	edit dl rm
_dupload	780	0644	edit dl rm
_dvi	4034	0644	edit dl rm
_dynamic_directory_name	164	0644	edit dl rm
_ecasound	8577	0644	edit dl rm
_echotc	93	0644	edit dl rm
_echoti	94	0644	edit dl rm
_elinks	2958	0644	edit dl rm
_elm	653	0644	edit dl rm
_email_addresses	5452	0644	edit dl rm
_emulate	217	0644	edit dl rm
_enable	338	0644	edit dl rm
_enscript	5362	0644	edit dl rm
_env	429	0644	edit dl rm
_equal	33	0644	edit dl rm
_espeak	2083	0644	edit dl rm
_ethtool	6771	0644	edit dl rm
_expand	6902	0644	edit dl rm
_expand_alias	1990	0644	edit dl rm
_expand_word	307	0644	edit dl rm
_fakeroot	486	0644	edit dl rm
_fc	1364	0644	edit dl rm
_feh	7011	0644	edit dl rm
_fetch	1394	0644	edit dl rm
_fetchmail	554	0644	edit dl rm
_ffmpeg	5278	0644	edit dl rm
_figlet	1503	0644	edit dl rm
_files	3602	0644	edit dl rm
_file_descriptors	826	0644	edit dl rm
_file_systems	1164	0644	edit dl rm
_find	2618	0644	edit dl rm
_finger	2157	0644	edit dl rm
_fink	5366	0644	edit dl rm
_first	1631	0644	edit dl rm
_flasher	1660	0644	edit dl rm
_flex	1451	0644	edit dl rm
_floppy	110	0644	edit dl rm
_fortune	601	0644	edit dl rm
_freebsd-update	935	0644	edit dl rm
_fsh	519	0644	edit dl rm
_fstat	675	0644	edit dl rm
_functions	101	0644	edit dl rm
_fuser	2107	0644	edit dl rm
_fusermount	650	0644	edit dl rm
_fuse_arguments	1078	0644	edit dl rm
_fuse_values	1648	0644	edit dl rm
_gcc	11498	0644	edit dl rm
_gcore	805	0644	edit dl rm
_gdb	1725	0644	edit dl rm
_generic	328	0644	edit dl rm
_genisoimage	2006	0644	edit dl rm
_getclip	532	0644	edit dl rm
_getconf	2225	0644	edit dl rm
_getent	1514	0644	edit dl rm
_getfacl	1370	0644	edit dl rm
_getmail	1080	0644	edit dl rm
_git	169890	0644	edit dl rm
_git-buildpackage	2574	0644	edit dl rm
_global	1849	0644	edit dl rm
_global_tags	186	0644	edit dl rm
_globflags	693	0644	edit dl rm
_globquals	5704	0644	edit dl rm
_globqual_delims	466	0644	edit dl rm
_gnome-gv	139	0644	edit dl rm
_gnupod	5699	0644	edit dl rm
_gnutls	6250	0644	edit dl rm
_gnu_generic	178	0644	edit dl rm
_gpg	13275	0644	edit dl rm
_gphoto2	2504	0644	edit dl rm
_gprof	1337	0644	edit dl rm
_gqview	619	0644	edit dl rm
_graphicsmagick	28872	0644	edit dl rm
_grep	4074	0644	edit dl rm
_grep-excuses	315	0644	edit dl rm
_groff	2251	0644	edit dl rm
_groups	1009	0644	edit dl rm
_growisofs	19631	0644	edit dl rm
_gs	1616	0644	edit dl rm
_guard	169	0644	edit dl rm
_guilt	1552	0644	edit dl rm
_gv	1309	0644	edit dl rm
_gzip	3529	0644	edit dl rm
_hash	1128	0644	edit dl rm
_have_glob_qual	858	0644	edit dl rm
_hdiutil	22443	0644	edit dl rm
_hg	29794	0644	edit dl rm
_history	1343	0644	edit dl rm
_history_complete_word	3451	0644	edit dl rm
_history_modifiers	1953	0644	edit dl rm
_hosts	2378	0644	edit dl rm
_iconv	1989	0644	edit dl rm
_id	453	0644	edit dl rm
_ifconfig	2866	0644	edit dl rm
_iftop	665	0644	edit dl rm
_ignored	1647	0644	edit dl rm
_imagemagick	28109	0644	edit dl rm
_inetadm	406	0644	edit dl rm
_init_d	2576	0644	edit dl rm
_invoke-rc.d	555	0644	edit dl rm
_in_vared	813	0644	edit dl rm
_ionice	337	0644	edit dl rm
_ip	18962	0644	edit dl rm
_ipset	6449	0644	edit dl rm
_iptables	10602	0644	edit dl rm
_irssi	1351	0644	edit dl rm
_ispell	4210	0644	edit dl rm
_iwconfig	2397	0644	edit dl rm
_java	23468	0644	edit dl rm
_java_class	681	0644	edit dl rm
_jobs	1987	0644	edit dl rm
_jobs_bg	27	0644	edit dl rm
_jobs_builtin	360	0644	edit dl rm
_jobs_fg	31	0644	edit dl rm
_joe	2274	0644	edit dl rm
_join	933	0644	edit dl rm
_kfmclient	3267	0644	edit dl rm
_kill	475	0644	edit dl rm
_killall	365	0644	edit dl rm
_kld	867	0644	edit dl rm
_knock	304	0644	edit dl rm
_kvno	566	0644	edit dl rm
_last	472	0644	edit dl rm
_ldd	1311	0644	edit dl rm
_ld_debug	1169	0644	edit dl rm
_less	5673	0644	edit dl rm
_lighttpd	413	0644	edit dl rm
_limit	166	0644	edit dl rm
_limits	105	0644	edit dl rm
_linda	1443	0644	edit dl rm
_links	2091	0644	edit dl rm
_lintian	4745	0644	edit dl rm
_list	822	0644	edit dl rm
_list_files	1420	0644	edit dl rm
_loadkeys	595	0644	edit dl rm
_locales	349	0644	edit dl rm
_locate	4606	0644	edit dl rm
_logical_volumes	455	0644	edit dl rm
_look	444	0644	edit dl rm
_losetup	737	0644	edit dl rm
_lp	1382	0644	edit dl rm
_ls	6078	0644	edit dl rm
_lscfg	658	0644	edit dl rm
_lsdev	1427	0644	edit dl rm
_lslv	348	0644	edit dl rm
_lsof	2380	0644	edit dl rm
_lspv	432	0644	edit dl rm
_lsusb	861	0644	edit dl rm
_lsvg	505	0644	edit dl rm
_lynx	11166	0644	edit dl rm
_lzop	3839	0644	edit dl rm
_mac_applications	139	0644	edit dl rm
_mac_files_for_application	2000	0644	edit dl rm
_madison	688	0644	edit dl rm
_mail	432	0644	edit dl rm
_mailboxes	6024	0644	edit dl rm
_main_complete	9598	0644	edit dl rm
_make	4706	0644	edit dl rm
_make-kpkg	2642	0644	edit dl rm
_man	3324	0644	edit dl rm
_match	2429	0644	edit dl rm
_math	327	0644	edit dl rm
_md5sum	457	0644	edit dl rm
_mdadm	8004	0644	edit dl rm
_members	390	0644	edit dl rm
_mencal	1082	0644	edit dl rm
_menu	558	0644	edit dl rm
_mere	57	0644	edit dl rm
_mergechanges	106	0644	edit dl rm
_message	788	0644	edit dl rm
_metaflac	1447	0644	edit dl rm
_mh	3596	0644	edit dl rm
_mii-tool	748	0644	edit dl rm
_mime_types	1156	0644	edit dl rm
_mkdir	1894	0644	edit dl rm
_mkshortcut	1274	0644	edit dl rm
_mkzsh	371	0644	edit dl rm
_module	5500	0644	edit dl rm
_module-assistant	2095	0644	edit dl rm
_modutils	4295	0644	edit dl rm
_mondo	2001	0644	edit dl rm
_monotone	2511	0644	edit dl rm
_most_recent_file	871	0644	edit dl rm
_mount	38276	0644	edit dl rm
_mozilla	4777	0644	edit dl rm
_mpc	6616	0644	edit dl rm
_mplayer	8284	0644	edit dl rm
_mt	3212	0644	edit dl rm
_mtools	4090	0644	edit dl rm
_mtr	725	0644	edit dl rm
_multi_parts	8351	0644	edit dl rm
_mutt	1005	0644	edit dl rm
_mysqldiff	1125	0644	edit dl rm
_mysql_utils	9979	0644	edit dl rm
_my_accounts	45	0644	edit dl rm
_nautilus	538	0644	edit dl rm
_ncftp	280	0644	edit dl rm
_nedit	2865	0644	edit dl rm
_netcat	1323	0644	edit dl rm
_netscape	2935	0644	edit dl rm
_net_interfaces	1056	0644	edit dl rm
_newsgroups	210	0644	edit dl rm
_next_label	600	0644	edit dl rm
_next_tags	3464	0644	edit dl rm
_nice	246	0644	edit dl rm
_nmap	3466	0644	edit dl rm
_normal	1011	0644	edit dl rm
_nothing	90	0644	edit dl rm
_nslookup	5677	0644	edit dl rm
_object_classes	146	0644	edit dl rm
_oldlist	1915	0644	edit dl rm
_open	1103	0644	edit dl rm
_options	182	0644	edit dl rm
_options_set	299	0644	edit dl rm
_options_unset	309	0644	edit dl rm
_osc	4146	0644	edit dl rm
_other_accounts	64	0644	edit dl rm
_pack	361	0644	edit dl rm
_parameter	37	0644	edit dl rm
_parameters	776	0644	edit dl rm
_patch	8141	0644	edit dl rm
_path_commands	2471	0644	edit dl rm
_path_files	25969	0644	edit dl rm
_pax	2786	0644	edit dl rm
_pbm	25861	0644	edit dl rm
_pbuilder	1258	0644	edit dl rm
_pdf	408	0644	edit dl rm
_perforce	84512	0644	edit dl rm
_perl	2564	0644	edit dl rm
_perldoc	1945	0644	edit dl rm
_perl_basepods	716	0644	edit dl rm
_perl_modules	4671	0644	edit dl rm
_pfctl	4205	0644	edit dl rm
_pfexec	670	0644	edit dl rm
_php	3063	0644	edit dl rm
_physical_volumes	124	0644	edit dl rm
_pick_variant	737	0644	edit dl rm
_pids	1627	0644	edit dl rm
_pine	2945	0644	edit dl rm
_ping	1732	0644	edit dl rm
_piuparts	972	0644	edit dl rm
_pkg-config	2156	0644	edit dl rm
_pkgadd	1012	0644	edit dl rm
_pkginfo	613	0644	edit dl rm
_pkgrm	551	0644	edit dl rm
_pkgtool	2436	0644	edit dl rm
_pkg_instance	353	0644	edit dl rm
_pon	443	0644	edit dl rm
_portaudit	563	0644	edit dl rm
_portlint	748	0644	edit dl rm
_portmaster	3975	0644	edit dl rm
_ports	285	0644	edit dl rm
_portsnap	1030	0644	edit dl rm
_postfix	530	0644	edit dl rm
_powerd	628	0644	edit dl rm
_prcs	6848	0644	edit dl rm
_precommand	188	0644	edit dl rm
_prefix	1618	0644	edit dl rm
_print	1549	0644	edit dl rm
_printenv	104	0644	edit dl rm
_printers	3209	0644	edit dl rm
_procstat	706	0644	edit dl rm
_prompt	296	0644	edit dl rm
_ps	333	0644	edit dl rm
_pscp	716	0644	edit dl rm
_pspdf	326	0644	edit dl rm
_psutils	3646	0644	edit dl rm
_ptree	449	0644	edit dl rm
_pump	1441	0644	edit dl rm
_putclip	538	0644	edit dl rm
_pydoc	436	0644	edit dl rm
_python	2074	0644	edit dl rm
_qemu	2527	0644	edit dl rm
_qiv	2647	0644	edit dl rm
_qtplay	525	0644	edit dl rm
_quilt	802	0644	edit dl rm
_raggle	2740	0644	edit dl rm
_rake	2849	0644	edit dl rm
_ranlib	403	0644	edit dl rm
_rar	4614	0644	edit dl rm
_rcs	766	0644	edit dl rm
_read	919	0644	edit dl rm
_readshortcut	1057	0644	edit dl rm
_read_comp	3852	0644	edit dl rm
_rebootin	574	0644	edit dl rm
_redirect	421	0644	edit dl rm
_regex_arguments	2496	0644	edit dl rm
_regex_words	746	0644	edit dl rm
_renice	424	0644	edit dl rm
_reprepro	2561	0644	edit dl rm
_requested	268	0644	edit dl rm
_retrieve_cache	732	0644	edit dl rm
_retrieve_mac_apps	3303	0644	edit dl rm
_ri	3470	0644	edit dl rm
_rlogin	2683	0644	edit dl rm
_rm	1564	0644	edit dl rm
_rpm	11028	0644	edit dl rm
_rpmbuild	3388	0644	edit dl rm
_rrdtool	491	0644	edit dl rm
_rsync	12311	0644	edit dl rm
_rubber	2708	0644	edit dl rm
_ruby	2907	0644	edit dl rm
_sablotron	1808	0644	edit dl rm
_samba	3436	0644	edit dl rm
_savecore	228	0644	edit dl rm
_sccs	6172	0644	edit dl rm
_sched	467	0644	edit dl rm
_schroot	1497	0644	edit dl rm
_screen	6399	0644	edit dl rm
_sed	986	0644	edit dl rm
_sep_parts	3801	0644	edit dl rm
_service	1048	0644	edit dl rm
_services	938	0644	edit dl rm
_set	1473	0644	edit dl rm
_setfacl	2010	0644	edit dl rm
_setopt	193	0644	edit dl rm
_setup	1958	0644	edit dl rm
_setxkbmap	2431	0644	edit dl rm
_set_command	815	0644	edit dl rm
_sh	461	0644	edit dl rm
_showmount	428	0644	edit dl rm
_signals	1013	0644	edit dl rm
_sisu	3936	0644	edit dl rm
_slrn	1131	0644	edit dl rm
_smit	856	0644	edit dl rm
_socket	1089	0644	edit dl rm
_softwareupdate	2332	0644	edit dl rm
_sort	2016	0644	edit dl rm
_source	226	0644	edit dl rm
_spamassassin	475	0644	edit dl rm
_sqsh	2158	0644	edit dl rm
_ssh	12549	0644	edit dl rm
_sshfs	752	0644	edit dl rm
_stat	568	0644	edit dl rm
_stgit	951	0644	edit dl rm
_store_cache	1742	0644	edit dl rm
_strace	6077	0644	edit dl rm
_strip	2363	0644	edit dl rm
_stty	762	0644	edit dl rm
_su	1944	0644	edit dl rm
_subscript	4284	0644	edit dl rm
_subversion	9250	0644	edit dl rm
_sub_commands	136	0644	edit dl rm
_sudo	1137	0644	edit dl rm
_suffix_alias_files	525	0644	edit dl rm
_surfraw	18143	0644	edit dl rm
_svcadm	1471	0644	edit dl rm
_svccfg	1667	0644	edit dl rm
_svcprop	634	0644	edit dl rm
_svcs	1029	0644	edit dl rm
_svcs_fmri	2684	0644	edit dl rm
_svn-buildpackage	2644	0644	edit dl rm
_sysctl	1712	0644	edit dl rm
_tags	1466	0644	edit dl rm
_tar	6104	0644	edit dl rm
_tardy	678	0644	edit dl rm
_tar_archive	1014	0644	edit dl rm
_tcpdump	4299	0644	edit dl rm
_tcpsys	1002	0644	edit dl rm
_tcptraceroute	583	0644	edit dl rm
_telnet	2140	0644	edit dl rm
_terminals	210	0644	edit dl rm
_tex	200	0644	edit dl rm
_texi	129	0644	edit dl rm
_texinfo	8719	0644	edit dl rm
_tidy	7305	0644	edit dl rm
_tiff	7230	0644	edit dl rm
_tilde	732	0644	edit dl rm
_tilde_files	676	0644	edit dl rm
_time_zone	222	0644	edit dl rm
_tin	2116	0644	edit dl rm
_tla	17997	0644	edit dl rm
_tmux	49423	0644	edit dl rm
_todo.sh	4169	0644	edit dl rm
_toilet	863	0644	edit dl rm
_toolchain-source	328	0644	edit dl rm
_topgit	177	0644	edit dl rm
_totd	287	0644	edit dl rm
_tpb	975	0644	edit dl rm
_tpconfig	1120	0644	edit dl rm
_tracepath	87	0644	edit dl rm
_trap	101	0644	edit dl rm
_ttyctl	113	0644	edit dl rm
_tune2fs	1405	0644	edit dl rm
_twisted	2835	0644	edit dl rm
_typeset	3752	0644	edit dl rm
_ulimit	1020	0644	edit dl rm
_uml	5261	0644	edit dl rm
_unace	472	0644	edit dl rm
_uname	2558	0644	edit dl rm
_unexpand	620	0644	edit dl rm
_unhash	555	0644	edit dl rm
_uniq	1173	0644	edit dl rm
_units	2812	0644	edit dl rm
_unsetopt	190	0644	edit dl rm
_update-alternatives	1384	0644	edit dl rm
_update-rc.d	637	0644	edit dl rm
_urls	5918	0644	edit dl rm
_urpmi	13818	0644	edit dl rm
_urxvt	1481	0644	edit dl rm
_uscan	1037	0644	edit dl rm
_users	251	0644	edit dl rm
_users_on	253	0644	edit dl rm
_user_admin	1943	0644	edit dl rm
_user_at_host	729	0644	edit dl rm
_user_expand	3469	0644	edit dl rm
_uzbl	304	0644	edit dl rm
_valgrind	4909	0644	edit dl rm
_value	1623	0644	edit dl rm
_values	3750	0644	edit dl rm
_vared	326	0644	edit dl rm
_vars	469	0644	edit dl rm
_vim	4662	0644	edit dl rm
_vim-addons	1660	0644	edit dl rm
_vnc	904	0644	edit dl rm
_volume_groups	87	0644	edit dl rm
_vorbis	5699	0644	edit dl rm
_vorbiscomment	607	0644	edit dl rm
_vserver	3058	0644	edit dl rm
_vux	1812	0644	edit dl rm
_w3m	4531	0644	edit dl rm
_wait	66	0644	edit dl rm
_wajig	2513	0644	edit dl rm
_wakeup_capable_devices	439	0644	edit dl rm
_wanna-build	2070	0644	edit dl rm
_wanted	183	0644	edit dl rm
_webbrowser	203	0644	edit dl rm
_wget	7465	0644	edit dl rm
_whereis	36	0644	edit dl rm
_which	1132	0644	edit dl rm
_whois	4819	0644	edit dl rm
_wiggle	1119	0644	edit dl rm
_xargs	502	0644	edit dl rm
_xauth	2580	0644	edit dl rm
_xdvi	1704	0644	edit dl rm
_xfig	1972	0644	edit dl rm
_xloadimage	3902	0644	edit dl rm
_xmlsoft	6425	0644	edit dl rm
_xmms2	5383	0644	edit dl rm
_xmodmap	2274	0644	edit dl rm
_xpdf	1759	0644	edit dl rm
_xrandr	1089	0644	edit dl rm
_xscreensaver	823	0644	edit dl rm
_xset	5196	0644	edit dl rm
_xterm	905	0644	edit dl rm
_xt_arguments	1744	0644	edit dl rm
_xt_session_id	40	0644	edit dl rm
_xv	2484	0644	edit dl rm
_xwit	4743	0644	edit dl rm
_x_arguments	600	0644	edit dl rm
_x_borderwidth	125	0644	edit dl rm
_x_color	1007	0644	edit dl rm
_x_colormapid	396	0644	edit dl rm
_x_cursor	409	0644	edit dl rm
_x_display	75	0644	edit dl rm
_x_extension	484	0644	edit dl rm
_x_font	307	0644	edit dl rm
_x_geometry	125	0644	edit dl rm
_x_keysym	615	0644	edit dl rm
_x_locale	120	0644	edit dl rm
_x_modifier	153	0644	edit dl rm
_x_name	116	0644	edit dl rm
_x_resource	124	0644	edit dl rm
_x_selection_timeout	130	0644	edit dl rm
_x_title	118	0644	edit dl rm
_x_utils	4650	0644	edit dl rm
_x_visual	272	0644	edit dl rm
_x_window	402	0644	edit dl rm
_yafc	1844	0644	edit dl rm
_yast	525	0644	edit dl rm
_yodl	658	0644	edit dl rm
_yp	3242	0644	edit dl rm
_yum	7845	0644	edit dl rm
_zattr	552	0644	edit dl rm
_zcalc_line	1721	0644	edit dl rm
_zcat	99	0644	edit dl rm
_zcompile	927	0644	edit dl rm
_zdump	112	0644	edit dl rm
_zed	179	0644	edit dl rm
_zfs	6716	0644	edit dl rm
_zfs_dataset	675	0644	edit dl rm
_zfs_pool	51	0644	edit dl rm
_zftp	2582	0644	edit dl rm
_zip	5380	0644	edit dl rm
_zle	2292	0644	edit dl rm
_zlogin	300	0644	edit dl rm
_zmodload	2292	0644	edit dl rm
_zmv	805	0644	edit dl rm
_zpool	3995	0644	edit dl rm
_zpty	2005	0644	edit dl rm
_zsh-mime-handler	719	0644	edit dl rm
_zstyle	14564	0644	edit dl rm
_ztodo	586	0644	edit dl rm

Edit: /usr/share/zsh/4.3.11/functions/compinstall (61500B)

# Configure the completion system.

emulate -L zsh
setopt extendedglob

local key
local compcontext=-default-

__ci_tidyup() {
  unfunction -m __ci_\* 2>/dev/null
  unfunction compinstall
  autoload -Uz compinstall
}

__ci_newline() {
  read -k \
    key"?${1:---- Hit newline to continue or \`q' to exit without saving --- }"
  print
  if [[ $key = [qQ] ]]; then
    print "compinstall aborted."
    __ci_tidyup
    return 1
  else
    return 0
  fi
}

typeset startline='# The following lines were added by compinstall'
typeset endline='# End of lines added by compinstall'
typeset ifile line fpath_line compinit_args opt detect basic line2
typeset -A styles
typeset match mbegin mend warn_unknown warn_old warn_comment output
integer lines_found

while getopts "do" opt; do
  case $opt in
    (d)
    # Detect an existing compinstall setup.
    detect=1
    ;;

(o)
    # Output basic setup information only.
    basic=1
    ;;
  esac
done

#
# Check the user's .zshrc, if any.
#
# This relies on the stuff we find being only minimally edited from
# the stuff we originally saved.  A better way of doing this would
# almost certainly be to use the style mechanism directly:  save the
# current styles in a variable, delete all styles, read in and evaluate
# any styles found, manipulate styles directly using zstyle, write out
# using zstyle -L, and if necessary restore the original styles.  One
# day I may even do that.
#

__ci_test_ifile() {
  [[ -f $1 ]] && grep "$endline" $1 >/dev/null 2>&1
}

local foundold=false
if zstyle -s :compinstall filename ifile &&
  __ci_test_ifile $ifile; then
  foundold=true
else
  ifile=${ZDOTDIR:-~}/.zshrc
  if __ci_test_ifile ${ZDOTDIR:-~}/.compinstall; then
    ifile=${ZDOTDIR:-~}/.compinstall
    foundold=true
  elif __ci_test_ifile $ifile; then
    foundold=true
  fi
fi

if [[ -n $detect ]]; then
  __ci_tidyup
  [[ $foundold = true ]]
  return
fi

__ci_output() {
  print -r "$startline"
  [[ -n $output ]] && print -r "$output"
  if [[ -n $ifile ]]; then
    line="zstyle :compinstall filename ${(qq)ifile}"
    print -r "$line"
    eval "$line"
  fi

[[ -n $fpath_line ]] && print -r "$fpath_line"

print -r "
autoload -Uz compinit
compinit${compinit_args:+ $compinit_args}"

print -r "$endline"
}

if [[ -n $basic ]]; then
  __ci_output
  __ci_tidyup
  return
fi

local newifile=$ifile
if [[ $foundold = true ]]; then
  if [[ $newifile != [~/]* ]]; then
    newifile=${ZDOTDIR:-~}/$newifile
    print "[Existing completion definition file is not absolute path:
updating to $newifile]"
  fi
  print "I have found completion definitions in $newifile.
If you want me to read these, just hit return.  Otherwise, edit the file
name to look for definitions somewhere else, or delete the whole line
in order not to use existing definitions."
  vared -ch -p 'file> ' newifile
  if [[ -n $newifile && $newifile != [/~]* ]]; then
    newifile=$PWD/$newifile
    print "[Not absolute path: updating to $newifile]"
  fi
  [[ -z $newifile || ! -f $newifile ]] && foundold=false
else
  print "I haven't found any existing completion definitions.
If you have some already defined by compinstall, edit the name of the
file where these can be found.  Note that this will only work if they
are exactly the form in which compinstall inserted them.  If you leave
the line as it is, or empty, I won't search."
  while true;  do
    vared -ch -p 'file> ' newifile || break
    if [[ -n $newifile && $newifile != [/~]* ]]; then
      newifile=$PWD/$newifile
      print "[Not absolute path: updating to $newifile]"
    fi
    if [[ -n $newifile && $ifile != $newifile ]]; then
      if __ci_test_ifile $newifile; then
        foundold=true
	break
      fi
      print "I couldn't find any definitions there.  Edit a new filename, or
leave the line blank to ignore it."
    else
      break
    fi
  done
fi
ifile=${~newifile}

if [[ $foundold = true ]]; then
  sed -n "/^[ 	]*$startline/,/^[ 	]*$endline/p" $ifile |
  # We can't use the default read behaviour to handle continuation lines
  # since it messes up internal backslashes.
  while read -r line; do
    # detect real continuation backslashes by checking there are an
    # odd number together.  i think this is reliable since the only
    # other way of quoting a backslash involves following it with
    # a closing quote.
    while [[ $line = *\\ ]]; do
      line2=${(M)line%%\\##}
      (( ${#line2} & 1 )) || break
      read -r line2 || break
      line="${line[1,-2]}$line2"
    done
    (( lines_found++ ))
    if [[ $line = *'$fpath'* ]]; then
      fpath_line=$line
      if [[ $line != *\) ]]; then
        while read -r line; do
          fpath_line="$fpath_line
$line"
          [[ $line = *\) ]] && break
        done
      fi
    elif [[ $line = (#b)[[:blank:]]#zstyle[[:blank:]]##(\'[^\']#\')\
[[:blank:]]##([^[:blank:]]##)[[:blank:]]##(*) ]]; then
      styles[$match[2]]="${styles[$match[2]]:+${styles[$match[2]]}
}${(Q)match[1]}
${match[3]}"
    elif [[ $line = [[:blank:]]#compconf* ]]; then
      warn_old=1
    elif [[ $line == $startline || $line == $endline ]]; then
      # no-op
    elif [[ $line = [[:blank:]]#\#* ]]; then
      warn_comment=1
    elif [[ $line = [[:blank:]]#compinit[[:blank:]]##(#b)([^[:blank:]]*) ]]
    then
      compinit_args=$match[1]
    elif [[ $line != [[:blank:]]# &&
      $line != [[:blank:]]#'autoload '*' compinit' &&
      $line != [[:blank:]]#compinit &&
      $line != [[:blank:]]#zstyle[[:blank:]]#:compinstall* ]]; then
      warn_unknown="${warn_unknown:+$warn_unknown
}$line"
    fi
  done
fi

#
# Print warnings about what we found in .zshrc.
#

if [[ -n $warn_old ]]; then
  print "\
WARNING: your configuration appears to contain commands for the 3.1.6
configuration system.  You will have to reconfigure from scratch and the
existing configuration commands will be overwritten.  If you wish to preserve
the old commands, you should quit, copy them somewhere else, then rerun
compinstall.  Sorry."
elif [[ -n $warn_unknown ]]; then
  print "\
WARNING: your configuration contains bits not understood by compinstall,
which will not be retained (shown below).  If you wish to retain these, you
should quit, copy them somewhere else, and then rerun compinstall.

$warn_unknown"
elif [[ -n $warn_comment ]]; then
  print "All the comments in your configuration section will be lost.
If you want to keep them, you should copy them somewhere else first."
elif (( ! $lines_found )); then
  print "Starting a new completion configuration from scratch."
  if [[ -n $ifile && ! -d $ifile ]]; then
    print -n "This will be "
    if [[ ! -f $ifile ]]; then
      print "written to the new file $ifile."
    elif [[ ! -w $ifile ]]; then
      print "written to the file ~/.compinstall for copying to $ifile."
      ifile=$HOME/.compinstall
    else
      print "appended to the file $ifile.  It is up to you to ensure
that these lines are actually executed.  They will not be if your .zshrc
usually returns before the end."
    fi
  fi
fi
print "Note that you will be given a chance to save the new setup
somewhere else at the end."

__ci_newline || return 1

typeset d compdir subdirs lines

#
# Make sure we have the completion functions in $fpath.
#

__ci_set_compdir() {
  for d in $*; do
    # If we find both the functions more than once, assume the later
    # one is the standard set.
    if [[ -f $d/compinit && -f $d/compdump ]]; then
      compdir=$d
    fi
  done
}

__ci_set_compdir $fpath

if [[ -d $compdir/Base/Core ]]; then
  subdirs=2
elif [[ -d $compdir/Base ]]; then
  subdirs=1
  ### compdir=${compdir:h}
fi

if [[ -z $compdir ]]; then
  # Start up a new zsh and get its default fpath.  If some swine has
  # tinkered with this in /etc/zshenv we're out of luck.
  lines=(${(f)"$(zsh -fc 'print -l $ZSH_VERSION $fpath')"})
  line=$lines[1]
  shift lines
  # If the zsh in that path isn't right, maybe the user's shell is elsewhere.
  if [[ $line != $ZSH_VERSION && -x $SHELL ]]; then
    lines=(${(f)"$($SHELL -fc 'print -l $ZSH_VERSION $fpath' 2>/dev/null)"})
    line=$lines[1]
    shift lines
  fi
  if [[ $line != $ZSH_VERSION ]]; then
    print "Hmmm, the zsh in your path is not what's running, nor is \$SHELL.
That's bad.
"
  fi
  __ci_set_compdir $lines
  if [[ -n $compdir ]]; then
    print "\
I've found the completion directories and will add them to your \$fpath,
but they should already be there at shell startup, so something (probably
an unconditional assignment in a startup file) is taking them out.  You
might want to check this, although what I'm doing should work."
    if [[ -n $fpath_line ]]; then
      print "\

What's more, there is already an \$fpath assignment in your completion
setup.  This gives me cause for concern.  I will override this, but don't
be surprised if it doesn't go according to plan.  If you have not
initialised completion in this shell, you should do so, then run
compinstall again."
    fi
  fi
  if [[ $subdirs = 2 ]]; then
    fpath_line=($compdir/[A-Z]*/[A-Z]*)
    fpath_line="fpath=($fpath ${(F)fpath_line})"
  elif [[ -n $subdirs ]]; then
    fpath_line=($compdir/[A-Z]*)
    fpath_line="fpath=($fpath ${(F)fpath_line})"
  fi
else
  if [[ $subdirs = 2 ]]; then
    print "Completion directories $compdir/*/*
are already in your \$fpath, good."
  elif [[ -n $subdirs ]]; then
    print "Completion directories $compdir/*
are already in your \$fpath, good."
  else
    print "Completion directory $compdir
is already in your \$fpath, good."
  fi
  if [[ -n $fpath_line ]]; then
    print "I shall keep the existing \$fpath=( ... ) assignment."
  fi
fi

if [[ -z $compdir ]]; then
  print "\
The zsh in your path doesn't seem to have completion directories in the
function autoload path (\$fpath).  This suggests the shell wasn't installed
for completion.  If you want to use it, you will need to locate all the
completion functions yourself and install them in your \$fpath.  I will
continue, but don't expect this to have much effect until you do.

If you are planning to continue using the old compctl system for
completion, compinstall won't do you any good anyway."
fi

__ci_newline || return 1

#
# Code for changing styles
#

typeset defcontext=":completion:*"
typeset curcontext=$defcontext

#
# Utility functions
#

#
# Get the style $1 for $curcontext into $2.
#
__ci_get_this_style() {
  typeset -A tassoc
  local style=$1 scalar=$2

tassoc=(${(f)styles[$style]})
  eval "$scalar=\${tassoc[\$curcontext]}"
}

#
# Set the style $1 for $curcontext using scalar $2 for the value for this
# context.  If $2 is null, delete the context (this may not be correct for
# all styles).  Don't do any extra quotation.
# $2 gives the name of the scalar for symmetry with __ci_get_this_style.
#
__ci_set_this_style() {
  local style=$1 scalar=$2 k
  typeset -A tassoc
  tassoc=(${(f)styles[$style]})

if [[ -n ${(P)scalar} ]]; then
    tassoc[$curcontext]=${(P)scalar}
  else
    unset "tassoc[$curcontext]"
  fi

styles[$style]=
  for k in ${(ko)tassoc}; do
    styles[$style]="${styles[$style]:+$styles[$style]
}$k
${tassoc[$k]}"
  done
}

#
# Functions displaying menus
#

__ci_change_context() {
  clear
  print "\
             *** compinstall: change context ***

The context tells the completion system under what circumstances your
value will be used.  It has this form:
  :completion:<function-name>:<completer>:<command>:<argument>:<tag>
See the documentation for more detail on each of these components.  The
default context \`$defcontext' matches everywhere in completion, unless you
define a more specific pattern which matches the completion context being
used. \`More specific' means either a string instead of a pattern, or a
longer pattern instead of a shorter pattern.

Edit a new context, or leave the line blank to reset the context to the
default value.  Note that you do not require quotes around the context,
which will automatically be added later.  Line editing and history are
available.
"

vared -eh -p 'context> ' curcontext
  [[ -z $curcontext ]] && curcontext=$defcontext
}

__ci_toggle_completer() {
  # used locally within __ci_do_completers
  if [[ -n $completers[$1] ]]; then
    completers[$1]=
  else
    completers[$1]=1
  fi
}

__ci_do_minor_completer_options() {
  # Set the options for the minor completers.
  local key cond word olist omenu moriginal aspace tmparr
  __ci_get_this_style condition cond
  [[ -n $cond ]] && cond=${(Q)cond}
  __ci_get_this_style word word
  __ci_get_this_style old-list olist
  __ci_get_this_style old-menu omenu
  __ci_get_this_style match-original moriginal
  __ci_get_this_style add-space aspace

while true; do

# insert-unambiguous can be handled somewhere else.
    clear
    print "\
              *** compinstall: minor completer options ***

Current context: $curcontext

l.     Set options for _list: condition for delay and comparison.
o.     Set options for _oldlist: when to keep old list.
m.     Set options for _match: whether to assume a \`*' at the cursor.
p.     Set options for _prefix: whether to add a space before the suffix.

q.     Return to the previous menu without saving.
0.     Done setting completer options.
"

read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      [lL]) print "\
You can set a condition under which the _list completer will delay completion
until the second keypress.  It should evaluate to a number; a non-zero value
turns this behaviour on.  It can include parameters, in particular NUMERIC
to refer to a numeric argument.  For example, \`NUMERIC != 1' forces the
delay unless you give an argument 1 to the command.  Leave it blank to
assume the condition is true."
            vared -eh -c -p 'condition> ' cond
	    print -n "
_list will usually compare the contents of the entire line with its previous
contents to decided if it has been changed since the last keypress.  You
can instead perform this comparison on just the current word, ignoring
the rest of the command line.  Do you want to do this? (y/n) [n] "
	    word=
            read -q key && word=true
	    print
	    ;;
      [oO]) print "\
_oldlist can keep a generated completion list for reshowing in the usual
way, e.g. with ^D, even if the list was generated by some special completion
command.  The default behaviour of _oldlist is to show this list if it was
not already visible, otherwise to generate the standard completion listing,
but you can force it always to be shown, or make it never shown.
Alternatively, you can specify a list of completers for which _oldlist will
be used.  Choose:

d.    Default behaviour.
a.    Always show old list.
n.    Never show old list.
s.    Specify a list of completers.
"

while true; do
	      read -k key'?--- Hit selection --- '
	      print
	      case $key in
		[dD]) olist=
		   ;;
		[aA]) olist=always
		      ;;
		[nN]) olist=never
		      ;;
		[sS]) olist=
		      tmparr=(_complete _approximate _correct _match _expand)
		      while true; do
			clear
			print "\
     *** compinstall:  choosing completers to have _oldlist behaviour ***

Type any of:

1.  _complete
2.  _approximate
3.  _correct
4.  _match
5.  _expand

or 0 to end, or - to delete the last choice."
			if [[ -n $olist ]]; then
			  print "\
Current choices:
  $olist"
			fi
			read -k key'?--- Hit selection --- '
			print
			case $key in
			  0) break
			     ;;
			  -) olist=(${olist[1,-2]})
			     ;;
			  [1-5]) olist=($olist $tmparr[$key])
			         ;;
			esac
                      done
		      ;;
		*) print "Type one of d, a, n or s."
		   continue
		   ;;
	      esac
	      break
	    done

print -n "
_oldlist can keep the old completion list for use in menu completion, e.g. by
repeatedly hitting tab, even if the list was generated by some special
completion command.  This is the default behaviour of _oldlist, but
you can turn it off, so that hitting tab would use the standard completion
list.

Do you want to turn it off? (y/n) [n] "
            omenu=
	    read -q key && omenu=false
	    ;;
      [mM]) print "\
The _match completer will usually assume there is a \`*' at the cursor
position when trying pattern matches.  For example, \`f*n<TAB>e' would
be able to complete to \`filename', not just to patterns matching \`f*ne'.
(Note that this assumes you have the option COMPLETE_IN_WORD set, else all
completion takes place at the end of the word.)  You can tell _match not
to assume there is a \`*', or to try first without the \`*', then with it.
Type one of:

a.     Always assume \`*' at cursor position.
n.     Never assume \`*' at cursor position.
w.     Try without the \`*', then with it if that fails."
            while true; do
	      read -k key'?--- Hit selection --- '
	      print
	      case $key in
		a) moriginal=
		   ;;
		n) moriginal=only
		   ;;
		w) moriginal=both
		   ;;
		*) print "Type one of a, n or w."
		   continue
		   ;;
	      esac
	      break
	    done
            ;;
      [pP]) print -n "\
The _prefix completer completes only what is behind the cursor, ignoring
completely what is after, even if there is no space at the cursor position.
However, you can force it to add a space between the resulting completion
and the part ignored.  For example, \`f<TAB>bar' might expand to \`filebar'
without this, and to \`file bar' with it.  Do wish _prefix to add the
space? (y/n) [n] "
            aspace=
            read -q key && aspace=true
	    ;;
      [qQ]) return 1
	    ;;
    esac

done

[[ -n $cond && $cond != [[:alnum:]]## ]] && cond=${(qq)cond}
  __ci_set_this_style condition cond
  __ci_set_this_style word word
  __ci_set_this_style old-list olist
  __ci_set_this_style old-menu omenu
  __ci_set_this_style match-original moriginal
  __ci_set_this_style add-space aspace

return 0
}

__ci_do_minor_completers() {
  # Set the minor completers not handled by __ci_do_completers.
  # Called within __ci_do_completers, so inherits the environment.
  # It's only divided off to keep the menus short.

local key

while true; do

clear
    print "\
              *** compinstall: minor completer menu ***

Current context: $curcontext

The following completers are available.  Those marked \`(*)' are already
set for the context shown above.  Note none of these are required for
normal completion behaviour.

1. ${${completers[_ignored]:+(*)}:-   } _ignored: $ckeys[_ignored]
2. ${${completers[_list]:+(*)}:-   } _list:    $ckeys[_list]
3. ${${completers[_oldlist]:+(*)}:-   } _oldlist: $ckeys[_oldlist]
4. ${${completers[_match]:+(*)}:-   } _match:   $ckeys[_match]
5. ${${completers[_prefix]:+(*)}:-   } _prefix:  $ckeys[_prefix]

o.     Set options for the completers above.
q.     Return without saving.
0.     Done setting minor completers.
"
    read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) __ci_toggle_completer _ignored
	 if [[ -n $completers[_ignored] ]]; then
	   print "\
I am inserting the \`ignored' completer immediately after normal
completion.  You can move it later in the list by hand, if you prefer, so
that ignored completions are only used after, for example, approximations.
To do this, edit $ifile, look for the zstyle ... completers line, and
move \`_ignored' to where you want it.  This will be retained if you use
compinstall again provided you don't go into the completers menu.
"
	   # TODO: we could be more careful about keeping the user's
	   # order, particularly with multiple completers.
           read -k key'?--- Hit any key to continue --- '
	   print
	 fi
	 ;;
      2) __ci_toggle_completer _list
	 ;;
      3) __ci_toggle_completer _oldlist
	 ;;
      4) __ci_toggle_completer _match
	 ;;
      5) __ci_toggle_completer _prefix
	 ;;
      o) __ci_do_minor_completer_options
	 ;;
      q) return 1
	 ;;
    esac

done

return 0
}

__ci_do_completer_options() {
  # Set options for the main completers; called from __ci_do_completers.

local maxe errors prompt glob subst compl cond

__ci_get_this_style max-errors errors
  __ci_get_this_style prompt prompt
  [[ -n $prompt ]] && prompt=${(Q)prompt}
  __ci_get_this_style glob glob
  [[ -n $glob ]] && glob=${(Q)glob}
  __ci_get_this_style substitute subst
  [[ -n $subst ]] && subst=${(Q)subst}
  __ci_get_this_style completions compl
  [[ -n $compl ]] && compl=${(Q)compl}

while true; do

clear
    print "\
              *** compinstall: completer options ***

Current context: $curcontext

The following options are available.  Note that these require the relevant
completers to be present, as set in the menu above this one.

a.     Set options for approximation or correction.
e.     Set options for expansion.
q.     Return without saving.

0.     Done setting options.
"

read -k key'?--- Hit selection --- '
    print

# We handle approximation and correction together to avoid having
    # to be too particular about context.
    case $key in
      a) clear
         print "\
Approximation and correction can correct the errors in what you have typed,
up to a maximum number of errors which you can specify.  Each \`error'
is the omission of a character, the addition of a superfluous character,
the substitution of one character by an incorrect one, or transposition of
two different characters.

Current context: $curcontext

To have different values for approximation and correction, you should
change the context appropriately.  For approximation, use
\`:completion:*:approximate:*' and for correction use
\`:completion:*:correct:*'.

Enter maximum number of errors allowed:
"
         maxe=
	 while true; do
	   vared -eh -c -p "number> " maxe
	   [[ $maxe = [[:digit:]]## ]] && break
	   print "Please enter a number"
	   maxe=
	 done
	 while true; do
	   print "\nSelect behaviour of numeric prefix.

1.     Numeric prefix is not used by approximation or completion.
2.     Numeric prefix, if provided, gives max number of errors allowed,
       replacing the number you just typed for that one completion.
3.     Numeric prefix, if provided, prevents approximation or completion
       from taking place at all for that one completion.
"
           read -k -- key'?--- Hit selection --- '
	   print
	   [[ $key = [123] ]] || continue
	   case $key in
             2) maxe="$maxe numeric"
		;;
	     3) maxe="$maxe not-numeric"
		;;
	   esac
	   print "
You can edit a prompt which will appear above lists of corrections.  The
string \`%e' inside the prompt will be replaced with the number of errors
found.  Leave blank for no prompt.  Quotation marks will be added
automatically."
	   vared -eh -c -p "prompt> " prompt
	   break
	 done
	 errors=$maxe
	 ;;
      e) while true; do
           clear
           print "\
The _expand completer can be tuned to perform any of globbing (filename
generation), substitution (anything with a \`\$' or backquote), or
normal completion (which is useful for inserting all possible completions
into the command line).  For each feature, a 1 turns it on, while a 0 turns
it off; if the feature is unset, that expansion will *not* be performed.

You can also give more complicated mathematical expressions, which can use
the parameter NUMERIC to refer to the numeric argument.  For example, the
expression \`NUMERIC == 2' means that the expansion takes effect if you
type ESC-2 (Emacs mode) or 2 (Vi command mode) before the expansion.
Quotes will be added automatically as needed.

g.     Set condition to perform globbing: ${glob:-unset}
s.     Set condition to perform substitution: ${subst:-unset}
c.     Set condition to perform completion: ${compl:-unset}
0.     Done setting conditions (will not be saved until you leave options)
"
           read -k key'?--- Enter selection --- '
	   print

case $key in
	     g) vared -eh -c -p 'globbing condition> ' glob
		;;
	     s) vared -eh -c -p 'substitution condition> ' subst
		;;
	     c) vared -eh -c -p 'completion condition> ' compl
		;;
	   esac

[[ $key = 0 ]] && break

done
	 ;;
      q) return 1
	 ;;
    esac

[[ $key = 0 ]] && break
  done

__ci_set_this_style max-errors errors
  [[ -n $prompt ]] && prompt=${(qq)prompt}
  __ci_set_this_style prompt prompt
  [[ -n $glob && $glob != [[:alnum:]]## ]] && glob=${(qq)glob}
  __ci_set_this_style glob glob
  [[ -n $subst && $subst != [[:alnum:]]## ]] && subst=${(qq)subst}
  __ci_set_this_style substitute subst
  [[ -n $compl && $compl != [[:alnum:]]## ]] && compl=${(qq)compl}
  __ci_set_this_style completions compl

key=
  return 0
}

__ci_do_completers() {
  # Set the completers for the current context.
  # This is mostly done via a series of toggles.

typeset -A completers ckeys
  local c clist newc
  __ci_get_this_style completer newc
  for c in ${=newc}; do
    completers[$c]=1
  done
  if (( ${#completers} == 0 )); then
    completers[_complete]=1
    completers[_ignored]=1
  fi
  clist=(_list _oldlist _menu _expand _complete _ignored
         _match _correct _approximate _prefix)

# TODO: these are a bit brief, so could provide some more detailed help.
  ckeys=(_complete 'Basic completion.'
         _approximate
'Approximate completion:  completion with correction of existing word.'
         _correct
'Correction:  correct existing word, no completion.'
         _expand
'Expansion: use globbing and parameter substitution, if possible.'

_ignored
'Use patterns that were previously ignored if no matches so far.'
         _list
'Only list matches until the second time you hit TAB.'
         _oldlist
'Keep matches generated by special completion functions.'
        _match
'If completion fails, retry with pattern matching.'
         _prefix
'If completion fails, retry ignoring the part after the cursor.'
         )

# TODO: You'll need to handle the bindkey to make _expand work.
  # TODO: _prefix completer should make sure completeinword is set.

while true; do

clear
    print "\
              *** compinstall: completer menu ***

Current context: $curcontext

The following completers are available.  Those marked \`(*)' are already
set for the context shown above.  If none are selected, the completers will
not be set for this context at all.

1. ${${completers[_complete]:+(*)}:-   } $ckeys[_complete]
2. ${${completers[_approximate]:+(*)}:-   } $ckeys[_approximate]
3. ${${completers[_correct]:+(*)}:-   } $ckeys[_correct]
4. ${${completers[_expand]:+(*)}:-   } $ckeys[_expand]

o.     Set options for the completers above.
m.     Set completers that modify the behaviour of the four main ones above.
q.     Return without saving.
0.     Done setting completers.
"
    read -k key'?--- Hit selection --- '
    print

case $key in
      1) __ci_toggle_completer _complete
	 ;;
      2) __ci_toggle_completer _approximate
	 ;;
      3) __ci_toggle_completer _correct
	 ;;
      4) __ci_toggle_completer _expand
	 ;;
      [mM]) __ci_do_minor_completers || return
            continue
	    ;;
      [oO]) __ci_do_completer_options || return
            continue
	    ;;
      q) return 1
	 ;;
    esac

[[ $key = 0 ]] && break
  done

newc=
  for c in $clist; do
    [[ -n $completers[$c] ]] && newc="${newc:+$newc }$c"
  done
  [[ -z $newc ]] && newc="''"
  __ci_set_this_style completer newc
}

__ci_toggle_matcher() {
  # Toggle on/off the matcher in array $1 for element $2
  if [[ ${${(P)1}[$2]} = ' ' ]]; then
    # toggle on
    eval "${1}[$2]=$2"
    if [[ $1 = n* ]]; then
      # no matcher turned on, turn off the others
      c_list[$2]=' '
      C_list[$2]=' '
      p_list[$2]=' '
      s_list[$2]=' '
    else
      # something else turned on, turn off no matcher
      n_list[$2]=' '
    fi
    return 0
  else
    # toggle off
    eval "${1}[$2]=' '"
    if [[ $c_list[$2] == ' ' && $C_list[$2] == ' ' && \
	  $p_list[$2] == ' ' && $s_list[$2] == ' ' ]]; then
      a_or_r[$2]=' '
    fi
    return 1
  fi
}

__ci_do_matchers() {
  # Set matchers via the matcher-list style.
  # We just offer a pre-programmed set of possible matchers, but these
  # cover the most common usages for matchers in a general context.
  # More specific use of matchers is usually covered by completion functions.

local mlist m_ci m_pw m_sub c_list C_list p_list s_list pw_seps key key2 elt
  local pw_dstar a_or_r i
  integer eltcnt lastnz

__ci_get_this_style matcher-list mlist
  # $mlist is the once and future list of matchers.  We don't quote it
  # until the end; the eval effectively does de-quoting.
  eval "mlist=($mlist)"
  # ?_list say whether the four possible matchers are set for passes 1,
  # 2, 3, 4, in an easy-to-read manner, i.e. the Nth part of the string
  # is one of N (on) or space (off).
  a_or_r="    "                 # replace by default
  n_list="    "			# null completion, i.e. standard
  c_list="    "			# case match one way
  C_list="    "			# case match both ways
  p_list="    "			# partial word completion
  s_list="    "			# substring completion
  # $pw_seps gives the separators used for partial-word completion
  # by element of the matcher list; these can be edited separately.
  pw_seps=('._-' '._-' '._-' '._-')
  pw_dstar=('' '' '' '')

# See what's in the matcher initially.  If these have been edited,
  # we're in trouble, but that's pretty much true of everything.
  for (( eltcnt = 1; eltcnt <= $#mlist; eltcnt++ )); do
    [[ $mlist[eltcnt] == "+"* ]] && a_or_r[$eltcnt]='+'
    [[ -z $mlist[$eltcnt] ]] && n_list[$eltcnt]=$eltcnt
    # Accept the old form of lower/upper correspondence, but we'll
    # output the new one instead.
    [[ $mlist[$eltcnt] = *"m:{a-z}={A-Z}"* ]] && c_list[$eltcnt]=$eltcnt
    [[ $mlist[$eltcnt] = *"m:{[:lower:]}={[:upper:]}"* ]] &&
      c_list[$eltcnt]=$eltcnt
    [[ $mlist[$eltcnt] = *"m:{a-zA-Z}={A-Za-z}"* ]] && C_list[$eltcnt]=$eltcnt
    [[ $mlist[$eltcnt] = *"m:{[:lower:][:upper:]}={[:upper:][:lower:]}"* ]] &&
      C_list[$eltcnt]=$eltcnt
    # For partial word stuff, we use backreferences to find out what
    # the set of separators was.
    if [[ $mlist[$eltcnt] = (#b)*"r:|["([^\]]#)"]=*"#" r:|=*"* ]]; then
      p_list[$eltcnt]=$eltcnt
      pw_seps[$eltcnt]=${match[1]}
      [[ $mlist[$eltcnt] = *"=**"* ]] && pw_dstar[$eltcnt]='*'
    fi
    # Just look for the left matcher for substring, since the right matcher
    # might have been handled as part of a partial-word spec.
    [[ $mlist[$eltcnt] = *"l:|=*"* ]] && s_list[$eltcnt]=$eltcnt
  done

while true; do
    clear
    print "\
              *** compinstall: matcher menu ***

\`Matchers' compare the completion code with the possible matches in some
special way.  Numbers in parentheses show matchers to be tried and the order.
The same number can be assigned to different matchers, meaning apply at the
same time.  Omit a sequence number to try normal matching at that point.
A \`+' in the first line indicates the element is added to preceding matchers
instead of replacing them; toggle this with \`t'.  You don't need to set
all four, or indeed any matchers --- then the style will not be set.

($a_or_r)\
   \`+' indicates add to previous matchers, else replace
n. ($n_list)\
 No matchers; you may want to try this as the first choice.
c. ($c_list)\
 Case-insensitive completion (lowercase matches uppercase)
C. ($C_list)\
 Case-insensitive completion (lower/uppercase match each other)
p. ($p_list)\
 Partial-word completion:  expand 'f.b' to 'foo.bar', etc., in one go.
          You can choose the separators (here \`.') used each time.
s. ($s_list)\
 Substring completion:  complete on substrings, not just initial
          strings.  Warning: it is recommended this not be used for element 1.

t.        Toggle replacing previous matchers (\` ' at top) or add (\`+')
q.        Return without saving.
0.        Done setting matchers.
"

read -k key'?--- Hit selection --- '
    print

if [[ $key = [nNcCpPsS] ]]; then
      while true; do
	read -k key2'?Set/unset for element number (1234)? '
	print
	[[ $key2 = [1234] ]] && break
	print "Only 1, 2, 3 and 4 are handled."
      done
    fi

case $key in
      [nN]) __ci_toggle_matcher n_list $key2
         if [[ $n_list[$key2] != ' ' ]]; then
	 fi
         ;;
      c) __ci_toggle_matcher c_list $key2
	 ;;
      C) __ci_toggle_matcher C_list $key2
	 ;;
      [pP]) if __ci_toggle_matcher p_list $key2; then
	      print "\
Edit the set of characters which terminate partial words.  Typically
these are punctuation characters, such as \`.', \`_' and \`-'.
The expression will automatically be quoted.
"
              vared -eh -p 'characters> ' -c 'pw_seps['$key2']'
	      # Paranoia: we don't know if there's a ']' in that string,
	      # which will wreck the spec unless it's at the start.  Other
	      # quotes are OK, since they are picked up at the ${(qq)...}
	      # step.
	      if [[ $pw_seps[$key2] = *']'* ]]; then
		pw_seps[$key2]="]${pw_seps[$key2]//\\\]}"
	      fi
	      print -n "
You can allow the partial-word terminators to be matched in the pattern,
too:  then  for example \`c.u' would expand to \`comp.source.unix', whereas
usually you would need to type an extra intervening dot.  Do you wish the
terminators to be matched in this way? (y/n) [n] "
              pw_dstar[$key2]=
	      read -q key && pw_dstar[$key2]='*'
	    fi
	    ;;
      [tT])
	    read -k key2'?Toggle augment/replace for elements number (1234)? '
	    if [[ $key2 == [1234] ]]; then
	      if [[ $a_or_r[$key2] == ' ' ]]; then
	        a_or_r[$key2]='+'
	      else
	        a_or_r[$key2]=' '
	      fi
	    else
	      print "Only 1, 2, 3 and 4 are handled."
	    fi
	    ;;
      [sS]) __ci_toggle_matcher s_list $key2
	    ;;
      [qQ]) return 1
	 ;;
    esac

[[ $key = 0 ]] && break
  done

# Keep track of the last element which was non-empty; all the rest
  # are junked.
  lastnz=0

# Now we just reverse the first for-loop, looking for set matchers
  # and reconstructing the elements of the matcher array.
  for (( eltcnt = 1; eltcnt <= 4; eltcnt++ )); do
    elt=
    [[ $c_list[$eltcnt] != ' ' ]] &&
      elt="${elt:+$elt }m:{[:lower:]}={[:upper:]}"
    [[ $C_list[$eltcnt] != ' ' ]] &&
      elt="${elt:+$elt }m:{[:lower:][:upper:]}={[:upper:][:lower:]}"
    [[ $p_list[$eltcnt] != ' ' ]] &&
      elt="${elt:+$elt }r:|[${pw_seps[$eltcnt]}]=*${pw_dstar[$eltcnt]}\
 r:|=*${pw_dstar[$eltcnt]}"
    if [[ $s_list[$eltcnt] != ' ' ]]; then
      if [[ $elt = *"r:|=*"* ]]; then
	elt="${elt:+$elt }l:|=*"
      else
	elt="${elt:+$elt }l:|=* r:|=*"
      fi
    fi
    [[ $a_or_r[$eltcnt] != ' ' ]] && elt="+$elt"
    [[ -n $elt || $n_list[$eltcnt] != ' ' ]] && lastnz=$eltcnt
    mlist[$eltcnt]=$elt
  done

if (( ! $lastnz )); then
    # No matchers set, so just make the style empty: __ci_set_this_style
    # will omit it completely.
    mlist=
  else
    # Quote the entire list: this correctly quotes element by element,
    # praise be to Sven.
    mlist=(${(qq)mlist[1,$lastnz]})
    # Make it a scalar just for safety's sake.
    mlist="$mlist"
  fi
  __ci_set_this_style matcher-list mlist

return 0
}

__ci_do_list_format() {
  local key format groupn verbose listp autod haslistp
  __ci_get_this_style format format
  [[ -n $format ]] && format=${(Q)format}
  __ci_get_this_style group-name groupn
  __ci_get_this_style verbose verbose
  __ci_get_this_style list-prompt listp
  [[ -n $listp ]] && haslistp=1
  listp=${(Q)listp}
  __ci_get_this_style auto-description autod
  [[ -n $autod ]] && autod=${(Q)autod}

while true; do
    clear
    print "\
       *** compinstall: order and descriptions in completion lists ***
Type the appropriate number for more information on how this would affect
listings.

1.  Print a message above completion lists describing what is being
    completed.

2.  Make different types of completion appear in separate lists.

3.  Make completion verbose, using option descriptions etc. (on by default).

4.  Make single-valued options display the value's description as
    part of the option's description.

q.  Return without saving.
0.  Done setting options for formatting of completion lists.
"

read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) print "\
You can set a string which is displayed on a line above the list of matches
for completions.  A \`%d' in this string will be replaced by a brief
description of the type of completion.  For example, if you set the
string to \`Completing %d', and type ^D to show a list of files, the line
\`Completing files' will appear above that list.  Enter an empty line to
turn this feature off.  If you enter something which doesn't include \`%d',
then \`%d' will be appended.  Quotation will be added automatically.
"
         vared -eh -p 'description> ' -c format
	 if [[ -n $format && $format != *%d* ]]; then
	   [[ $format = *[[:blank:]] ]] || format="$format "
	   format="$format%d"
	 fi
	 ;;
      2) print "\
Normally, all possible completions are listed together in a single list, and
if you have set a description with 1) above, the descriptions are listed
together above that.  However, you can specify that different types of
completion appear in separate lists; any description appears above its
own list.  For example, external commands and shell functions would appear
in separate lists when you are completing a command name.  Do you
want to turn this on?
"
         while true; do
           read -k key'?[y]es, [n]o, [k]eep old setting? '
	   print
	   [[ $key = [yYnNkK] ]] && break
	 done
	 case $key in
	   [yY]) groupn="''"
		 ;;
	   [nN]) groupn=
		 ;;
	 esac
	 ;;
      3) print "By default, completion uses a \`verbose' setting.  This
affects different completions in different ways.  For example,  many
well-known commands have short, uninformative option names; in some cases,
completion will indicate what the options do when offering to complete them.
If you prefer shorter listings you can turn this off.  What setting to
you want?
"
          while true; do
            read -k key'?[v]erbose, [n]ot verbose, [k]eep old setting? '
            print
            [[ $key = [vVnNkK] ]] && break
          done
          case $key in
	    # might as well be explicit, particularly since it's
	    # the only way to override an existing `false' value.
	    [vV]) verbose=true
		  ;;
	    [nN]) verbose=false
		  ;;
          esac
	 ;;
      4) print "\
Many commands have options which take a single argument.  In some cases,
completion is not set up to describe the option even though it has a
description for the argument.  You can enter a string containing \`%d',
which will be replaced by the description for the option.  For
example, if you enter the string \`specify: %d', and an option -ifile
exists which has an argument whose description is \`input file', then the
description \`specify: input file' will appear when the option itself
is listed.  As this long explanation suggests, this is only occasionally
useful.  Enter an empty line to turn this feature off.  If you enter
something which doesn't include \`%d', then \`%d' will be appended.
Quotation will be added automatically.
"
         vared -eh -p 'auto-description> ' -c autod
         if [[ -n $autod && $autod != *%d* ]]; then
	   [[ $autod = *[[:blank:]] ]] || autod="$autod "
	   autod="$autod%d"
         fi
	 ;;
      q) return 1
	 ;;
    esac
  done

[[ -n $format ]] && format=${(qq)format}
  __ci_set_this_style format format
  __ci_set_this_style group-name groupn
  __ci_set_this_style verbose verbose
  [[ -n $autod ]] && autod=${(qq)autod}
  __ci_set_this_style auto-description autod
}

__ci_do_insertion() {
  local key insertu original # sort

__ci_get_this_style insert-unambiguous insertu
  __ci_get_this_style original original

while true; do
    clear
    print "\
          *** compinstall: options for inserting completions ***

1.   In completers that change what you have already typed, insert any
     unambiguous prefix rather than go straight to menu completion.

2.   In completers which correct what you have typed, keep what you
     originally typed as one of the list of possible completions.

q.   Return with saving.
0.   Done setting options for insertion.
"
    read -k key'?-- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) print "\
The completers which do pattern matching and correction often alter the
string which is already on the line, in the first case because it was a
pattern and in the second case because what you typed was wrong.
Since the possible completions can bear little or no resemblance to one
another in those cases, so that typing extra characters to resolve the
completion doesn't make much sense, menu completion is usually turned on
straight away to allow you to pick the completion you want.  This style
tells completion that if there is a common, unambiguous prefix in this
case, you would prefer that to be inserted rather than going straight
to menu completion.  Do you want this?
"
         while true; do
           read -k key'?[y]es, [n]o, [k]eep old setting? '
	   print
	   [[ $key = [yYnNkK] ]] && break
	 done
	 case $key in
	   [yY]) insertu=true
	         ;;
	   [nN]) insertu=false
		 ;;
	 esac
	 ;;
      2) print "\
For completers which correct what you have typed, you sometimes want
to keep the original string instead, so if the correction was ambiguous
the original string is always listed as a possible completion.  However,
if there was just one completion it is usually accepted.  You can
force completion to offer the original string as a possibility even in
this case.  Do you want this?
"
         while true; do
	   read -k key'?[y]es, [n]o, [k]eep old setting? '
	   print
	   [[ $key = [yYnNkK] ]] && break
	 done
	 case $key in
	   [yY]) original=true
	         ;;
           [nN]) original=false
	         ;;
	 esac
	 ;;
      [qQ]) return 1
	      ;;
    esac

done

__ci_set_this_style insert-unambiguous insertu
  __ci_set_this_style original original
  # __ci_set_this_style sort sort

return 0;
}

__ci_do_selection() {
  local key listc menu select amenu elt listp selectp haslistp hasselectp
  integer num

__ci_get_this_style list-colors listc
  __ci_get_this_style menu menu
  __ci_get_this_style list-prompt listp
  [[ -n $listp ]] && haslistp=1
  listp=${(Q)listp}
  __ci_get_this_style select-prompt selectp
  [[ -n $selectp ]] && hasselectp=1
  selectp=${(Q)selectp}

while true; do
    clear
    print "\
     *** compinstall: options for colouring and selecting in lists ***

1.   Use coloured lists for listing completions.

2.   Use cursor keys to select completions from completion lists.

3.   Allow scrolling of long selection lists and set the prompt.

q.   Return without saving.
0.   Done setting options for insertion.
"
    read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) print "\
Zsh can produce coloured completion listings where different file types
etc. appear in different colours.  If you want to tailor that to your
own needs, you will have to edit ~/.zshrc.  Here you have the choice of:

1.  Using the default colours.
2.  Using the colours already set up for GNU ls via the \$LS_COLORS
    environment variable.  Note this must be set before the completion
    configuration code is executed.
3.  Turn colouring off.
0.  Leave the setting the way it is.  Choose this if you have a custom
    setting and you don't want to lose it.
"
         while true; do
	   read -k key'?Enter 1, 2, 3, 0: '
	   print
	   [[ $key = [1230] ]] && break
	 done
	 case $key in
	   1) listc="''"
	      ;;
	   2) listc='${(s.:.)LS_COLORS}'
	      ;;
	   3) listc=
	      ;;
	 esac
	 ;;
      2) print "\
If you use zsh's menu completion and the feature that all short completion
lists appear below the line on which you are editing, you can enable
\`menu selection', which lets you pick a completion with the cursor keys:
the choice is highlighted, and hitting return accepts it.  Note that
this only happens when you are already using menu completion.  This
feature can be set so that it is only enabled when there are a certain
number of completions.  Please enter:

- 0 or 1, to turn this feature on unconditionally
- a higher number to turn this feature on when there are that many
  completions
- an \`l' for \`long' to turn it on for listings which don't fit on the
  screen.
- an \`ll' for \`long list' to turn it on for completions which don't fit
  on the screen, even for commands which only do listing of completions.
  This may be combined with a number which will be used in ordinary selection.
- a negative number to turn this feature off
- an empty line to leave the setting the way it is.
"
	 # Better to parse and display the current setting.
         while true; do
           vared -eh -p 'value> ' select
	   [[ -z $select || $select = ((-|)<->|l|<->#ll<->#) ]] && break;
	   print "Type a number, l, ll, ll<num>, or an empty line." >&2
	 done
	 amenu=(${=menu})
	 elt=${amenu[(i)*select*]}
	 [[ $elt -eq 0 || $elt -gt $#amenu ]] && elt=
	 case $select in
	   <->) if [[ -n $elt ]]; then
		  amenu[$elt]="select=$select"
		else
		  amenu=($amenu "select=$select")
	        fi
		menu="$amenu"
		;;
	   *ll*) num=${(RS)select##ll}
	         select="select=long-list"
		 [[ -n $num ]] && select="$select select=$num"
		 if [[ -n $elt ]]; then
		   amenu[$elt]=$select
		 else
		   amenu=($amenu $select)
		 fi
		 menu="$amenu"
		 ;;
	   l#) if [[ -n $elt ]]; then
                 amenu[$elt]="select=long"
               else
                 amenu=($amenu "select=long")
               fi
	       menu="$amenu"
               ;;
	   -<->) if [[ -n $elt ]]; then
		    # i never liked the way indexing was done anyway
		    if [[ $elt -eq 1 ]]; then
		      amenu=($amenu[$elt+1,-1])
		    else
		      amenu=($amenu[1,$elt-1] $amenu[$elt+1,-1])
		    fi
		 fi
		 menu="$amenu"
		 ;;
	 esac
	 if [[ $menu = *select* ]]; then
	   print "\
You can also set a prompt to use for menu selection when it would scroll
off the screen.  Unless this is set, you won't see a prompt, but the feature
is still enabled.

Edit a prompt below.  It can contain \`%l' to show the number of matches
as \`current_number/total_number', \`%p' to show the fraction of
the way down the list, or font-control sequences such as %B, %U, %S and
the corresponding %b, %u, %s; quotes will be added automatically.  Delete
the whole line to turn it off.  Hit return to keep the current value.
"
	   [[ -z $hasselectp ]] &&
	     selectp='%SScrolling active: current selection at %p%s'
	   vared -eh -p 'prompt> ' -c selectp
	   [[ -z $selectp ]] && hasselectp=
	 fi
         ;;
      3) print "\
You can make completion lists scroll when they don't fit on the screen.
Note this is different from scrolling in menu selection --- a more basic
pager is used which should work even with fairly stupid terminals.

To enable this, edit a prompt to show when scrolling is active; an empty 
string turns this feature off.  It can contain \`%l' to show the number of
matches as \`current_number/total_number', \`%p' to show the fraction of
the way down the list, or font-control sequences such as %B, %U, %S and the
corresponding %b, %u, %s; quotes will be added automatically.  Delete the
whole line to turn this behaviour off, in which case the display of
completions which don't fit on the screen is controlled by the LISTMAX
parameter (currently ${LISTMAX:-unset}), which specifies the maximum number
to show without asking.  Hit return to keep the current value.
"
         [[ -z $haslistp ]] &&
	   listp='%SAt %p: Hit TAB for more, or the character to insert%s'
	 vared -eh -p 'prompt> ' -c listp
	 [[ -z $listp ]] && haslistp=
	 ;;
      q) return 1
         ;;
    esac
  done

__ci_set_this_style list-colors listc
  __ci_set_this_style menu menu
  [[ -n $haslistp ]] && listp=${(qq)listp}
  __ci_set_this_style list-prompt listp
  [[ -n $hasselectp ]] && selectp=${(qq)selectp}
  __ci_set_this_style select-prompt selectp

return 0
}

__ci_do_display() {
  local key usec

__ci_get_this_style use-compctl usec

while true; do
    clear
    print "\
         *** compinstall: display and insertion options ***

1.  Change appearance of completion lists:  allows descriptions of
    completions to appear and sorting of different types of completions.

2.  Change how completions are inserted: includes options for sorting,
    and keeping the original or an unambiguous prefix with correction etc.

3.  Configure coloured/highlighted completion lists, selection of items
    and scrolling.

4.  Change whether old-style \`compctl' completions will be used.

q.  Return without saving.
0.  Done setting display and insertion options.
"

read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) __ci_do_list_format
	 ;;
      2) __ci_do_insertion
	 ;;
      3)  __ci_do_selection
	 ;;
      4) print "\
Completions defined by the new completion system (the one you are
configuring) always take precedence over the old sort defined with compctl.
You can choose whether or not you want to search for a compctl-defined
completion if no new completion was found for a command.  The default
behaviour is only to check for compctl-defined completions if the required
library, zsh/compctl, is already loaded.  (If not, this implies that
compctl has not been called.)  Do you want to test for compctl-defined
completions?
"
         while true; do
	   read -k key'?[y]es, [n]o, if [l]oaded, [k]eep old setting? '
	   print
	   [[ $key = [yYnNlLkK] ]] && break
	 done
	 case $key in
	   [yY]) usec=true
	         ;;
	   [nN]) usec=false
	         ;;
	   [lL]) usec=
	         ;;
	 esac
	 ;;
      q) return 1
	 ;;
    esac

done

__ci_set_this_style use-compctl usec

return 0
}

#       file-sort, special-dirs, ignore-parents,
#       squeeze-slashes,
__ci_do_file_styles() {
  local key files cursor expand speciald ignorep squeezes select
  local prefon suffon lssuffixes preserve

__ci_get_this_style file-sort files
  __ci_get_this_style ignore-parents ignorep
  __ci_get_this_style special-dirs speciald
  __ci_get_this_style squeeze-slashes squeezes
  __ci_get_this_style expand expand
  __ci_get_this_style list-suffixes lssuffixes
  __ci_get_this_style preserve-prefix preserve
  [[ -n $preserve ]] && preserve=${(Q)preserve}

while true; do
    clear
    print "\
      *** compinstall: options for filename completion ***

1.  Choose how to sort the displayed list of filename matches.

2.  In expressions with .., don't include directories already implied.

3.  Allow completion of . and .. for the bone idle.

4.  When expanding paths, \`foo//bar' is treated as \`foo/bar'.

5.  Configure how multiple paths are expanded and displayed, 
    e.g. /f/b -> /foo/bar

6.  Keep certain prefixes unchanged, such as \`//resource/'.

q.  Return without saving.
0.  Done setting options for filename completion.
"
    read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      (1) print "\
Filenames listed as possible completions are usually displayed in
alphabetical order.  You can alternatively choose:
  s  File size
  l  Number of (hard) links
  m  Modification time
  a  Access time
  i  Inode change time
  n  File name
  k  Keep the current setting
You can also specify the reverse of any of the above orders (except \`k'):  to
do this, type the appropriate letter in upper case.
"
         while true; do
           read -k key'?--- Hit selection --- '
	   print
	   [[ $key = [sSlLmMaAiInNkK] ]] && break
	 done
	 case $key in
	   ([sS]) files=size;;
	   ([lL]) files=links;;
	   ([mM]) files=modification;;
	   ([aA]) files=access;;
	   ([iI]) files=inode;;
	   ([nN]) files=name;;
	 esac
	 if [[ $key = [SLAMIN] ]]; then
	   # slam it into reverse
	   files="$files reverse"
	 fi
	 ;;
      (2) print "\
When you type an expression containing \`..', you may usually not want to
be offered certain directories for completion.
  p   Don't offer parents:  in \`foo/bar/../', don't make \`bar' a completion.
  c   Don't offer the current directory, e.g. after \`../'.
  o   Only perform the two tests if there is a real \`..' in the word so far.
  d   Only perform the two tests when completing directory names.
  0   None of the above; use normal completion.
  k   Keep the current settings.
You may specify any combination of p, c, o, d including at least one of p
and c, or you may specify either 0 or k.  Note that the _ignored completer
functions in the normal way, i.e. you would be able to complete the
directories in question if nothing else matched.
"
          while true; do
	    vared -eh -p 'selection> ' select
	    [[ ( $select = [pPcCoOdD]# && $select = *[pPcC]* )
		    || $select = [0kK] ]] && break
	    print "Type any combination of p, c, o, d, or type 0 or k"
	  done
	  case $select in
	    (0) ignorep=
		;;
	    ([pPcCoOdD]#)
		ignorep=()
		[[ $select = *[pP]* ]] && ignorep=($ignorep parent)
		[[ $select = *[cC]* ]] && ignorep=($ignorep pwd)
		[[ $select = *[oO]* ]] && ignorep=($ignorep ..)
		[[ $select = *[dD]* ]] && ignorep=($ignorep directory)
		;;
	  esac
	  ;;
      (3) print "\
Filename completion does not usually offer the directory names \`.' and
\`..' as choices.  However, some immensely lazy people can't even be
bothered to type these.  Do you wish to be offered \`.' and \`..' as
choices ([y]es, [n]o, [k]eep current setting)?
"
          while true; do
            read -k key'?--- Hit selection --- '
	    [[ $key = [yYnNkK] ]] && break
	    print "Type y, n or k."
	  done
	  case $key in
	    ([yY]) speciald=true;;
	    ([nN]) speciald=;;
	  esac
	  ;;
      (4) print "\
Filename completion can complete sets of path segments at once, for example
\`/u/X/l/X' to \`/usr/X11R6/lib/X11'.  Normally this means that multiple
slashes in filenames are treated as matching multiple directories.  For
example, \`foo//bar' could expand to \`foo/datthe/bar'.  You can, however,
stick to the usual UNIX convention that multiple slashes are treated as
a single slash.  Do you wish to treat multiple slashes the same as just
one ([y]es, [n]o, [k]eep current setting)?
"
          while true; do
	    read -k key'?--- Hit selection --- '
	    [[ $key = [yYnNkK] ]] && break
	    print "Type one of y, n or k."
	  done
	  case $key in
	    ([yY]) squeezes=true;;
	    ([nN]) squeezes=;;
	  esac
          ;;
      (5) if [[ $expand = *prefix* ]]; then
             prefon=prefix
	  else
	     prefon=
	  fi
	  if [[ $expand = *suffix* ]]; then
	     suffon=suffix
	  else
	     suffon=
	  fi
          print "
When expanding /f/b, the shell will attempt to match /f*/b* (e.g. /foo/bar), 
and so on to any depth.  If the first part of the expansion fails, by default
the shell will not expand the remainder.  However, you can force it always
to expand the first part.  Currently this feature is ${${prefon:+on}:-off}.
Do you want it on ([y]es, [n]o, [k]eep current setting)?
"
	  while true; do
	    read -k key'?--- Hit selection --- '
	    [[ $key = [yYnNkK] ]] && break
	    print "Type one of y, n or k."
	  done
	  case $key in
	    ([yY]) prefon=prefix;;
	    ([nN]) prefon=prefix;;
	  esac
	  print "
Further, if /f*/b* is ambiguous, the shell will usually only expand
as far as the part that is unambiguous; for example, if /foo/bar and
/food/basket exist, it will wait for you to choose either /foo or /food,
and not attempt to expand the rest of the match.  However, you can force
it to add all possible completions for you to resolve conflicts in the
normal way.  Currently this feature is ${${suffon:+on}:-off}.
Do you want it on ([y]es, [n]o, [k]eep current setting)?
"
	  while true; do
	    read -k key'?--- Hit selection --- '
	    [[ $key = [yYnNkK] ]] && break
	    print "Type one of y, n or k."
	  done
	  case $key in
	    ([yY]) suffon=suffix;;
	    ([nN]) suffon=suffix;;
	  esac
	  expand=${prefon:+$prefon${suffon:+ }}${suffon}

if [[ $lssuffixes = (1|[tT]|[yY]|[oO])* ]]; then
	     lssuffixes=true
	  else
	     lssuffixes=
	  fi
	  print "
When listing expansions of /f/b such as /foo/bar, /foo/bad, /failed/bag,
the shell will usually only show the first part of the path if it is
ambiguous, hence /foo will appear twice.  It is possible to show the
full path in this case.  Currently this feature is ${${lssuffixes:+on}:-off}.
Do you want this behaviour ([y]es, [n]o, [k]eep current setting)?
"
	  while true; do
	    read -k key'?--- Hit selection --- '
	    [[ $key = [yYnNkK] ]] && break
	    print "Type one of y, n or k."
	  done
	  case $key in
	    ([yY]) lssuffixes=true;;
	    ([nN]) lssuffixes=;;
	  esac
	  ;;
      (6) print "\
On some systems, there are special forms for the start of a filename
which should be left alone by the completion system.  For example, Cygwin
uses a double slash to indicate a network resource, hence a prefix of
the form \`//resource/' should be left alone.  This style gives a pattern
to match any such prefixes; alternatives separated by \`|' are therefore
possible.  Edit the pattern as you like.  If this is empty, the shell will not
handle any prefixes specially."
          if [[ -z $preserve ]]; then
	      preserve="//[^/]##/"
	      print "
Accept the default to handle network resources as just described."
	  fi
	  vared -eh -p "pattern> " preserve
	  ;;
      (q) return 1
	 ;;
    esac

done

__ci_set_this_style file-sort files
  __ci_set_this_style ignore-parents ignorep
  __ci_set_this_style special-dirs speciald
  __ci_set_this_style squeeze-slashes squeezes
  __ci_set_this_style expand expand
  __ci_set_this_style list-suffixes lssuffixes
  # pattern, always quote
  [[ -n $preserve ]] && preserve=${(qq)preserve}
  __ci_set_this_style preserve-prefix preserve

return 0
}

# TODO: history completion, jobs, prefix-needed 'n' stuff.
__ci_do_misc() {
  local key

while true; do
    clear
    print "\
      *** compinstall: options for particular types of completion ***

1.  Options for file completion.

q.  Return without saving.
0.  Done setting options for particular completions.
"
    read -k key'?--- Hit selection --- '
    print

[[ $key = 0 ]] && break

case $key in
      1) __ci_do_file_styles
	 ;;
      q) return 1
	 ;;
    esac

done

return 0;
}

# TODO: it should probably be possible to set completion options via
#         compinstall, even though they've been around for years.

while true; do
  clear
  print "\
               *** compinstall: main menu ***
Note that hitting \`q' in menus does not abort the set of changes from
lower level menus.  However, quitting at top level will ensure that nothing
at all is actually written out.

1.  Completers:  choose completion behaviour for tasks such as
    approximation, spell-checking, expansion.

2.  Matching control: set behaviour for case-insensitive matching,
    extended (partial-word) matching and substring matching.

3.  Styles for changing the way completions are displayed and inserted.

4.  Styles for particular completions.

c.  Change context (plus more information on contexts).

q.  Return without saving.
0.  Save and exit.
"

__ci_newline \
    "--- Hit choice --- " || return 1

# note this is a string test:  we require the `0' to have been typed.
  [[ $key = 0 ]] && break

case $key in
    1) __ci_do_completers
       ;;
    2) __ci_do_matchers
       ;;
    3) __ci_do_display
       ;;
    4) __ci_do_misc
       ;;
    c) __ci_change_context
       ;;
  esac
done

if (( $#styles )); then
  typeset style stylevals context values
  for style in ${(ko)styles}; do
    stylevals=(${(f)styles[$style]})
    while (( $#stylevals )); do
      output="$output
zstyle ${(qq)stylevals[1]} $style ${stylevals[2]}"
      shift 2 stylevals
    done
  done
fi

if [[ -z $ifile || -d $ifile ]] ||
  ! read -q key"?Save new settings to $ifile ([y]es, [n]o)? "; then
   print "Enter file to save in (~ will be expanded), or return to abort:"
   ifile=
   vared -ch -p 'file> ' ifile
   if [[ $ifile != [/~]* ]]; then
     ifile=$PWD/$ifile
     print "[Not absolute path; updating to $ifile]"
   fi
   ifile=${~ifile}
fi

local tmpout=${TMPPREFIX:-/tmp/zsh}compinstall$$
#
# Assemble the complete set of lines to
# insert.
#
__ci_output >$tmpout

if [[ -n $ifile ]]; then
  if [[ $ifile != *(zshrc|zlogin|zshenv) ]]; then 
    print "\
If you want this file to be run automatically, you should add
  . $ifile
to your .zshrc.  compinstall will remember the name of this file for
future use."
    __ci_newline || return 1
  fi
  #
  # Now use sed to update the file.
  #
  if [[ -f $ifile ]]; then
    cp $ifile ${ifile}\~ &&
    print "Copied old file to ${ifile}~."
  else
    touch $ifile
  fi
  if { { grep "$endline" $ifile >/dev/null 2>&1 &&
         sed -e "/^[ 	]*$endline/r $tmpout
/^[ 	]*$startline/,/^[ 	]*$endline/d" $ifile >${tmpout}2 } || 
        { cp $ifile ${tmpout}2 && cat $tmpout >>${tmpout}2 } } &&
  cp ${tmpout}2 $ifile && rm -f ${tmpout}2; then
    print "\nSuccessfully added compinstall lines to $ifile."
    rm -f $tmpout
  else
    print "\nFailure adding lines to $ifile.  Lines left in \`$tmpout'"
  fi
  rm -f ${tmpout}2
elif read -q key'?Print them to stdout instead ([y]es, [n]o)? '; then
  cat $tmpout
  rm -f $tmpout
fi

if read -q key'?Set new styles for immediate use ([y]es, [n]o)? '; then
  eval $output
  print "The new settings are now in effect.  Note this will not remove old
styles you have deleted until you restart the shell."
fi

__ci_tidyup
return 0

cmd: