From 411d45e4a33aff23eaf57117df80d87193345423 Mon Sep 17 00:00:00 2001
From: Chen Kedem <niki@synel.co.il>
Date: Sun, 20 Feb 2000 10:21:19 +0000
Subject: [PATCH] 20000220-12:22 GMT+2 Chen Kedem <niki@actcom.co.il>

---
 harbour/ChangeLog               |  9 +++++++++
 harbour/doc/cvs_ssh.txt         |  4 ++++
 harbour/doc/gnulice.txt         |  2 +-
 harbour/source/rtl/setfunc.prg  | 19 ++++++++++++++++---
 harbour/source/rtl/tgetlist.prg | 12 +++++++++++-
 5 files changed, 41 insertions(+), 5 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4bd7c45d9b..45de44afda 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,12 @@
+20000220-12:22 GMT+2 Chen Kedem <niki@actcom.co.il>
+   * doc/cvs_ssh.txt
+     + Add CVS ID
+   * doc/gnulice.txt
+     ! Fixed CVS ID
+   * source/rtl/setfunc.prg
+   * source/rtl/tgetlist.prg
+     + Add missing copyrigth for the docs
+
 20000219 11:10 Brian Hays
     * doc\gnulice.txt
        * Formatted to NG specs
diff --git a/harbour/doc/cvs_ssh.txt b/harbour/doc/cvs_ssh.txt
index 08a6b38aed..42088c9a11 100644
--- a/harbour/doc/cvs_ssh.txt
+++ b/harbour/doc/cvs_ssh.txt
@@ -1,3 +1,7 @@
+/*
+ * $Id$
+ */
+
 This is how I got SSH and CVS to work together!
 The trick was in how to set up the CVSROOT variable.
 I did this on NT4, but it should be similar for 95/98 and OS/2.
diff --git a/harbour/doc/gnulice.txt b/harbour/doc/gnulice.txt
index c438c5f769..842e930f01 100644
--- a/harbour/doc/gnulice.txt
+++ b/harbour/doc/gnulice.txt
@@ -1,5 +1,5 @@
 /*
- * $Id:
+ * $Id$
  */
 
 /*  $DOC$
diff --git a/harbour/source/rtl/setfunc.prg b/harbour/source/rtl/setfunc.prg
index 52bfd4e26c..8ba9aa3f63 100644
--- a/harbour/source/rtl/setfunc.prg
+++ b/harbour/source/rtl/setfunc.prg
@@ -33,11 +33,23 @@
  *
  */
 
+/*
+ * The following parts are Copyright of the individual authors.
+ * www - http://www.harbour-project.org
+ *
+ * Copyright 1999 Chen Kedem <niki@actcom.co.il>
+ *    __SetFunction() documentation
+ *
+ * See doc/license.txt for licensing terms.
+ *
+ */
+
 #include "inkey.ch"
 #include "common.ch"
+
 /*  $DOC$
  *  $FUNCNAME$
- *      __SetFunction() 
+ *      __SetFunction()
  *  $CATEGORY$
  *      Environment
  *  $ONELINER$
@@ -106,9 +118,10 @@ PROCEDURE __SetFunction( nFunctionKey, cString )
    ENDIF
 
    RETURN
+
 /*  $DOC$
  *  $FUNCNAME$
- *     SET FUNCTION 
+ *     SET FUNCTION
  *  $CATEGORY$
  *     Command
  *  $ONELINER$
@@ -141,7 +154,7 @@ PROCEDURE __SetFunction( nFunctionKey, cString )
  *  $EXAMPLES$
  *      // Set F1 with a string
  *      CLS
- *      Set Function  1 to  "I Am Lazy" + CHR( 13 ) 
+ *      Set Function  1 to  "I Am Lazy" + CHR( 13 )
  *      cTest := SPACE( 20 )
  *      @ 10, 0 SAY "type something or F1 for lazy mode " GET cTest
  *      READ
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index ed35616dac..ff60f61835 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -33,6 +33,17 @@
  *
  */
 
+/*
+ * The following parts are Copyright of the individual authors.
+ * www - http://www.harbour-project.org
+ *
+ * Copyright 1999 Chen Kedem <niki@actcom.co.il>
+ *    READVAR() documentation
+ *
+ * See doc/license.txt for licensing terms.
+ *
+ */
+
 #include "hbclass.ch"
 #include "common.ch"
 #include "getexit.ch"
@@ -714,4 +725,3 @@ function GetApplyKey( oGet, nKey )
   endif
 
 return nil
-