From 85e7a6af99b5c83754949ea3a89b493e7ed95c27 Mon Sep 17 00:00:00 2001
From: Tanaka Akira <akr@users.sourceforge.net>
Date: Wed, 25 Aug 1999 14:38:31 +0000
Subject: zsh-workers/7480

---
 Completion/X/_x_font       | 13 ++++++++++++-
 Completion/X/_xt_arguments |  1 -
 2 files changed, 12 insertions(+), 2 deletions(-)

(limited to 'Completion/X')

diff --git a/Completion/X/_x_font b/Completion/X/_x_font
index e0acb4014..d4f16f33c 100644
--- a/Completion/X/_x_font
+++ b/Completion/X/_x_font
@@ -1,3 +1,14 @@
 #autoload
 
-_message 'font'
+local expl
+
+# This *has* to be improved some day...
+
+if (( ! $+_font_cache )); then
+  typeset -U _font_cache
+
+ _font_cache=( "${(@)^${(@f)$(xlsfonts)}%%--*}--" )
+fi
+
+_description expl font
+compgen -M 'r:|-=* r:|=*' "$expl[@]" "$@" -S '' -k _font_cache
diff --git a/Completion/X/_xt_arguments b/Completion/X/_xt_arguments
index 02f11e226..6324c27e0 100644
--- a/Completion/X/_xt_arguments
+++ b/Completion/X/_xt_arguments
@@ -24,7 +24,6 @@ _arguments \
   '+rv' '-rv' '-reverse' \
   '+synchronous' '-synchronous' \
   '-background:background color:_colors' \
-  '-background:background color:_colors' \
   '-bd:border color:_colors' \
   '-bg:background color:_colors' \
   '-bordercolor:border color:_colors' \
-- 
cgit 1.4.1