gitk: Show detached HEAD if --all is specified

diff --git a/gitk b/gitk
index bfc5cfabd312ff6efe43bb84fe9e8d0f0d970ab1..84f1405d4dec264369aa0e5727ad2f122c277c12 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -294,6 +294,8 @@ proc parseviewrevs {view revs} {
 
     if {$revs eq {}} {
        set revs HEAD
+    } elseif {[lsearch -exact $revs --all] >= 0} {
+       lappend revs HEAD
     }
     if {[catch {set ids [eval exec git rev-parse $revs]} err]} {
        # we get stdout followed by stderr in $err