File returnval.patch of Package Source-Navigator

--- libgui/src/tclhelp.c
+++ libgui/src/tclhelp.c
@@ -547,6 +547,7 @@
     { Tcl_SetResult (interp, "Help not available", TCL_STATIC);
       return TCL_ERROR;
     }
+  return TCL_OK;
 }
 
 /* Implement the ide_help display command.  */
@@ -560,6 +561,7 @@
     { Tcl_SetResult (interp, "Help not available", TCL_STATIC);
       return TCL_ERROR;
     }
+  return TCL_OK;
 }
 
 /* Initialize the help command structure.  */
@@ -594,6 +596,7 @@
   /* fork failed, error number is why */
   else if (pidProcess == (-1))
     { return 0; }
+  return 1;
 }
 
 #endif /* ! _WIN32 */
openSUSE Build Service is sponsored by