}
}
-proc update_status {{final Ready.}} {
+proc rescan {{final Ready.}} {
global HEAD PARENT commit_type
global ui_index ui_other ui_status_value ui_comm
global status_active file_states
}
if {$repo_config(gui.trustmtime) eq {true}} {
- update_status_stage2 {} $final
+ rescan_stage2 {} $final
} else {
set status_active 1
set ui_status_value {Refreshing file status...}
set fd_rf [open "| $cmd" r]
fconfigure $fd_rf -blocking 0 -translation binary
fileevent $fd_rf readable \
- [list update_status_stage2 $fd_rf $final]
+ [list rescan_stage2 $fd_rf $final]
}
}
-proc update_status_stage2 {fd final} {
+proc rescan_stage2 {fd final} {
global gitdir PARENT commit_type
global ui_index ui_other ui_status_value ui_comm
global status_active
set commit_type amend
set HEAD {}
set PARENT {}
- update_status
+ rescan
} elseif {$parent_count == 1} {
set commit_type amend
set PARENT $parent
$ui_comm insert end $msg
$ui_comm edit modified false
$ui_comm edit reset
- update_status
+ rescan
} else {
error_popup {You can't amend a merge commit.}
return
before committing.
}
unlock_index
- update_status
+ rescan
return
}
before a pull can be started.
}
unlock_index
- update_status
+ rescan
return
}
set PARENT $HEAD
set $ui_status_value {Ready.}
} else {
- update_status \
+ rescan \
"Conflicts detected while pulling $branch from $remote."
}
}
}
proc do_rescan {} {
- update_status
+ rescan
}
proc do_include_all {} {
populate_remote_menu .mbar.push To push_to
populate_pull_menu .mbar.pull
}
-after 1 update_status
+after 1 rescan