# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1250535228 14400
# Node ID 936734e15a4de7d514ebc037dacd81e631b6d5fc
# Parent  baeecd69fd44c6706bedc8423df8e71dfad2b5d3
print_usage: make it work again if an argument is given

diff -r baeecd69fd44 -r 936734e15a4d scripts/ChangeLog
--- a/scripts/ChangeLog	Mon Aug 17 12:45:02 2009 -0400
+++ b/scripts/ChangeLog	Mon Aug 17 14:53:48 2009 -0400
@@ -1,3 +1,7 @@
+2009-08-17  John W. Eaton  <jwe@octave.org>
+
+	* help/print_usage.m: Make it work again if an argument is given.
+
 2009-08-17  Jaroslav Hajek  <highegg@gmail.com>
 
 	* help/print_usage: Allow calling from methods.
diff -r baeecd69fd44 -r 936734e15a4d scripts/help/print_usage.m
--- a/scripts/help/print_usage.m	Mon Aug 17 12:45:02 2009 -0400
+++ b/scripts/help/print_usage.m	Mon Aug 17 14:53:48 2009 -0400
@@ -33,18 +33,18 @@
     else
       error ("print_usage: invalid function\n");
     endif
-    path = evalin ("caller", "mfilename (""fullpath"")");
-    if (strcmp (path(end-length(name)+1:end), name))
-      path = [path, ".m"];
-    else
-      path = name;
+    fullpath = evalin ("caller", "mfilename (""fullpath"")");
+    if (strcmp (fullpath(end-length(name)+1:end), name))
+      fullname = [fullpath, ".m"];
     endif
   elseif (!ischar (name))
     error ("print_usage: input argument must be a string");
+  else
+    fullname = name;
   endif
   
   ## Do the actual work
-  [text, format] = get_help_text (path);
+  [text, format] = get_help_text (fullname);
   max_len = 80;
   switch (lower (format))
     case "plain text"