[PATCH] Add option --no-tags

From

NCNicolas Cornu <ncornu@aldebaran-robotics.com>

Date

Oct 29, 2013, 10:44 UTC

Message-ID

<CAMXp-VP9DDJ-L=e=7=-bO+ZFVRMVz-PAs0gGv8Q7RrZ-OWof9Q@mail.gmail.com>

>From 1cbc2c49454581a67cce09ada1386dac4ffa2828 Mon Sep 17 00:00:00 2001

From: Nicolas Cornu <ncornu@aldebaran-robotics.com>
Date: Tue, 29 Oct 2013 11:31:10 +0100
Subject: [PATCH] Add option --no-tags

---
 gitk-git/gitk | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/gitk-git/gitk b/gitk-git/gitk
index 5cd00d8..d6f5e07 100755
--- a/gitk-git/gitk
+++ b/gitk-git/gitk
@@ -156,7 +156,7 @@ proc unmerged_files {files} {

 proc parseviewargs {n arglist} {
     global vdatemode vmergeonly vflags vdflags vrevs vfiltered vorigargs env
-    global worddiff git_version
+    global worddiff git_version no_tags

     set vdatemode($n) 0
     set vmergeonly($n) 0
@@ -167,6 +167,7 @@ proc parseviewargs {n arglist} {
     set origargs $arglist
     set allknown 1
     set filtered 0
+    set no_tags 0
     set i -1
     foreach arg $arglist {
     incr i
@@ -183,6 +184,9 @@ proc parseviewargs {n arglist} {
         set origargs [lreplace $origargs $i $i]
         incr i -1
         }
+      "--no-tags" {
+        set no_tags 1
+      }
         "-[puabwcrRBMC]" -
         "--no-renames" - "--full-index" - "--binary" - "--abbrev=*" -
         "--find-copies-harder" - "-l*" - "--ext-diff" - "--no-ext-diff" -
@@ -6394,13 +6398,16 @@ proc drawtags {id x xt y1} {
     global headbgcolor headfgcolor headoutlinecolor remotebgcolor
     global tagbgcolor tagfgcolor tagoutlinecolor
     global reflinecolor
+    global no_tags

     set marks {}
     set ntags 0
     set nheads 0
     if {[info exists idtags($id)]} {
-    set marks $idtags($id)
-    set ntags [llength $marks]
+      if {$no_tags < 1} {
+        set marks $idtags($id)
+        set ntags [llength $marks]
+      }
     }
     if {[info exists idheads($id)]} {
     set marks [concat $marks $idheads($id)]
--
1.8.4.2