--- a/src/ov-usr-fcn.h	Mon May 01 19:35:22 2000 +0000
+++ b/src/ov-usr-fcn.h	Thu May 11 19:10:09 2000 +0000
@@ -31,6 +31,7 @@
 
 #include <string>
 
+#include "comment-list.h"
 #include "oct-obj.h"
 #include "ov-fcn.h"
 #include "ov-typeinfo.h"
@@ -67,6 +68,10 @@
 
   void stash_fcn_file_name (void);
 
+  void stash_leading_comment (octave_comment_list *lc) { lead_comm = lc; }
+
+  void stash_trailing_comment (octave_comment_list *tc) { trail_comm = tc; }
+
   void mark_fcn_file_up_to_date (const octave_time& t) { t_checked = t; }
 
   void stash_fcn_file_time (const octave_time& t)
@@ -124,6 +129,10 @@
 
   tree_statement_list *body (void) { return cmd_list; }
 
+  octave_comment_list *leading_comment (void) { return lead_comm; }
+
+  octave_comment_list *trailing_comment (void) { return trail_comm; }
+
   void accept (tree_walker& tw);
 
 private:
@@ -145,6 +154,12 @@
   // The local symbol table for this function.
   symbol_table *sym_tab;
 
+  // The comments preceding the FUNCTION token.
+  octave_comment_list *lead_comm;
+
+  // The comments preceding the ENDFUNCTION token.
+  octave_comment_list *trail_comm;
+
   // The name of the file we parsed
   std::string file_name;