editor addin.sct: Fix untranslated text

diff --git a/Plugins/dlls/editor addin.sct b/Plugins/dlls/editor addin.sct
index 69909a2..c435098 100644 (file)
--- a/Plugins/dlls/editor addin.sct
+++ b/Plugins/dlls/editor addin.sct
@@ -78,7 +78,11 @@ Function ExecFilterCommand(Text)
        Dim exe
        Set exe = wsh.Exec("cmd /c type """ & path & """  | " & cmd & " 2>&1")
        If exe Is Nothing Then
-               MsgBox "\83R\83}\83\93\83h " & cmd & " \82Ì\8eÀ\8ds\82É\8e¸\94s\82µ\82Ü\82µ\82½:" & Err.Description 
+               If IsLangJapanese() Then
+                       MsgBox "\83R\83}\83\93\83h " & cmd & " \82Ì\8eÀ\8ds\82É\8e¸\94s\82µ\82Ü\82µ\82½:" & Err.Description 
+               Else
+                       MsgBox "Failed to execute the command '" & cmd & "':" & Err.Description 
+               End If
                fso.DeleteFile path
                Exit Function
        End If