Remove superfluous trailing white space from TCL files
This commit is contained in:
@@ -45,14 +45,14 @@ proc reldrive {args} {
|
||||
} message ] {
|
||||
if {$::errorCode=="NONE"} {return }
|
||||
return -code error $message
|
||||
}
|
||||
}
|
||||
}
|
||||
publish reldrive user
|
||||
|
||||
##
|
||||
# @brief A convenience command for fetching motor parameter values
|
||||
#
|
||||
# This convenience command is useful for avoiding command
|
||||
# This convenience command is useful for avoiding command
|
||||
# substitution problems when defining hdb node read scripts.
|
||||
proc getmotpar {motor par} {
|
||||
return [SplitReply [$motor $par]]
|
||||
|
||||
Reference in New Issue
Block a user