Evgenii Terechkov: 26831: filter out redundant information in _screen

ChangeLog

@@ -1,5 +1,8 @@
 2009-04-16  Peter Stephenson  <pws@csr.com>
 
+	* Evgenii Terechkov: 26831: Completion/Unix/Command/_screen:
+	filter out redundant output.
+
 	* Alexey I. Froloff: 26829: Completion/Unix/Command/_rsync:
 	miscounting fields in output.
 
@@ -11547,5 +11550,5 @@
 
 *****************************************************
 * This is used by the shell to define $ZSH_PATCHLEVEL
-* $Revision: 1.4648 $
+* $Revision: 1.4649 $
 *****************************************************

Completion/Unix/Command/_screen

@@ -98,19 +98,19 @@ if [[ -n $state ]]; then
     attached-sessions)
       sessions=(
         ${${${(M)${(f)"$(_call_program screen-sessions $words[1] \
-            -ls)"}:#*[Aa]ttached*}##[[:blank:]]}%%[[:blank:]]*}
+            -ls 2>/dev/null)"}:#*[Aa]ttached*}##[[:blank:]]}%%[[:blank:]]*}
       )
     ;;
     detached-sessions)
       sessions=(
         ${${${(M)${(f)"$(_call_program screen-sessions $words[1] \
-            -ls)"}:#*[Dd]etached*}##[[:blank:]]}%%[[:blank:]]*}
+            -ls 2>/dev/null)"}:#*[Dd]etached*}##[[:blank:]]}%%[[:blank:]]*}
       )
     ;;
     any-sessions)
       sessions=(
         ${${${(M)${(f)"$(_call_program screen-sessions $words[1] \
-	    -ls)"}:#*tached*}##[[:blank:]]}%%[[:blank:]]*}
+	    -ls 2>/dev/null)"}:#*tached*}##[[:blank:]]}%%[[:blank:]]*}
       )
   esac