undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gitk: Minor cleanups

Browse Source 
Removed some unnecessary quotes and globals, updated copyright notice.

Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Paul Mackerras 2006-07-18 01:52:14 +10:00
parent 8a48571ce5
commit e1a7c81f6a
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gitk
View File

@ -2,7 +2,7 @@
# Tcl ignores the next line -*- tcl -*- \ # Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "$@" exec wish "$0" -- "$@"
# Copyright (C) 2005 Paul Mackerras. All rights reserved. # Copyright (C) 2005-2006 Paul Mackerras. All rights reserved.
# This program is free software; it may be used, copied, modified # This program is free software; it may be used, copied, modified
# and distributed under the terms of the GNU General Public Licence, # and distributed under the terms of the GNU General Public Licence,
# either version 2, or (at your option) any later version. # either version 2, or (at your option) any later version.
@ -341,13 +341,13 @@ proc readrefs {} {
set tag {} set tag {}
catch { catch {
set commit [exec git rev-parse "$id^0"] set commit [exec git rev-parse "$id^0"]
if {"$commit" != "$id"} { if {$commit != $id} {
set tagids($name) $commit set tagids($name) $commit
lappend idtags($commit) $name lappend idtags($commit) $name
} }
} }
catch { catch {
set tagcontents($name) [exec git cat-file tag "$id"] set tagcontents($name) [exec git cat-file tag $id]
} }
} elseif { $type == "heads" } { } elseif { $type == "heads" } {
set headids($name) $id set headids($name) $id
@ -3263,8 +3263,7 @@ proc show_status {msg} {
proc finishcommits {} { proc finishcommits {} {
global commitidx phase curview global commitidx phase curview
global canv mainfont ctext maincursor textcursor global pending_select
global findinprogress pending_select
if {$commitidx($curview) > 0} { if {$commitidx($curview) > 0} {
drawrest drawrest
@ -3307,9 +3306,7 @@ proc notbusy {what} {
} }
proc drawrest {} { proc drawrest {} {
global numcommits
global startmsecs global startmsecs
global canvy0 numcommits linespc
global rowlaidout commitidx curview global rowlaidout commitidx curview
global pending_select global pending_select
@ -3323,6 +3320,7 @@ proc drawrest {} {
} }
set drawmsecs [expr {[clock clicks -milliseconds] - $startmsecs}] set drawmsecs [expr {[clock clicks -milliseconds] - $startmsecs}]
#global numcommits
#puts "overall $drawmsecs ms for $numcommits commits" #puts "overall $drawmsecs ms for $numcommits commits"
} }