From 76dc71f882d47f057167dff717194687b947aad9 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sat, 3 Jan 2009 18:40:17 +0000
Subject: Frank Terbeck: 26215: VCS_Info disable-patterns style

---
 Functions/VCS_Info/vcs_info | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'Functions')

diff --git a/Functions/VCS_Info/vcs_info b/Functions/VCS_Info/vcs_info
index 7ecd1224a..a821e4d03 100644
--- a/Functions/VCS_Info/vcs_info
+++ b/Functions/VCS_Info/vcs_info
@@ -41,8 +41,9 @@ vcs_info () {
     emulate -L zsh
     setopt extendedglob
 
+    local pat
     local -i found
-    local -a enabled disabled
+    local -a enabled disabled dps
     local -x usercontext vcs rrn
     local -ix maxexports
     local -ax msgs
@@ -64,6 +65,15 @@ vcs_info () {
         zstyle -a ":vcs_info:${vcs}:${usercontext}:${rrn}" "disable" disabled
     fi
 
+    zstyle -a ":vcs_info:${vcs}:${usercontext}:${rrn}" "disable-patterns" dps
+
+    for pat in ${dps} ; do
+        if [[ ${PWD} == ${~pat} ]] ; then
+            [[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
+            return 0
+        fi
+    done
+
     VCS_INFO_maxexports
 
     (( found = 0 ))
-- 
cgit 1.4.1