--- a/src/ov-usr-fcn.h	Fri Feb 16 21:48:21 2007 +0000
+++ b/src/ov-usr-fcn.h	Sat Feb 17 02:51:03 2007 +0000
@@ -108,6 +108,8 @@
 
   void stash_fcn_file_name (const std::string& nm);
 
+  void stash_parent_fcn_name (const std::string& p) { parent_name = p; }
+
   void stash_leading_comment (octave_comment_list *lc) { lead_comm = lc; }
 
   void stash_trailing_comment (octave_comment_list *tc) { trail_comm = tc; }
@@ -124,6 +126,8 @@
 
   std::string fcn_file_name (void) const { return file_name; }
 
+  std::string parent_fcn_name (void) const { return parent_name; }
+
   octave_time time_parsed (void) const { return t_parsed; }
 
   octave_time time_checked (void) const { return t_checked; }
@@ -220,9 +224,12 @@
   // The comments preceding the ENDFUNCTION token.
   octave_comment_list *trail_comm;
 
-  // The name of the file we parsed
+  // The name of the file we parsed.
   std::string file_name;
 
+  // The name of the parent function, if any.
+  std::string parent_name;
+
   // The time the file was parsed.
   octave_time t_parsed;