Lagt till lyskom-clientversion-long

src/Makefile

-# Senast {ndrad Mon May 13 20:50:35 1991
+# $Id$
+# $Log$
+# Revision 35.1  1991/08/21 15:44:47  linus
+# Lagt till lyskom-clientversion-long
+#
 
 RM = /usr/gnu/bin/rm -vf
 EMACS-BATCH = emacs -batch -l /usr/local/lib/elisp/bytecomp

src/async.el

@@ -11,6 +11,10 @@
 ;;;; Entry:  Inge Wallin
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
 
 (defun lyskom-parse-async (tokens buffer)
   "Parse an asynchronous message from the server.

src/cache.el

@@ -9,6 +9,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 
 ;;; ================================================================
 ;;;                     Conf-stat cache.

src/clienttypes.el

@@ -11,6 +11,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                            read-info
 

src/commands1.el

@@ -7,6 +7,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                  F} uppmuntran - Get appreciation 
 

src/commands2.el

@@ -6,6 +6,11 @@
 ;;;; This file contains the code for some high level commands.
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;              Lista medlemsskap - List membership
 

src/completing-read.el

@@ -7,6 +7,11 @@
 ;;;; or a person name with completion and other help.
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; Author: Linus Tolke
 
 

src/edit-text.el

@@ -8,6 +8,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;;; ================================================================
 
 

src/flags.el

@@ -7,6 +7,11 @@
 ;;;; them in the user area.
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; Author: Linus Tolke
 
 

src/internal.el

@@ -11,6 +11,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;;; ================================================================
 ;;;;                          Variables.
 

src/komtypes.el

@@ -8,6 +8,11 @@
 ;;;; Author: ceder
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                            conf-no-list
 

src/macros.el

@@ -7,6 +7,10 @@
 ;;;; be compiled.
 ;;;;
 
+(defconst lyskom-clientversion-long "$Id$\n"
+  "Version for every file in the client.")
+
+
 
 ;;; lyskom-traverse - traverse a sequence.
 

src/parse.el

@@ -8,6 +8,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;        Errors that are handled of use while parsing
 

src/prefetch.el

@@ -10,6 +10,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                          Variables.
 

src/prioritize.el

 ;;; ================================================================
 ;;;              Prioritera medlemsskap - Prioritize membership
 
+
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
+
+
 ;;; Author: Per Cederqvist and Linus Tolke (some code from kom-membership)
 
 

src/review.el

@@ -11,6 +11,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;              ]terse av, till - Review by X to Conference Y.
 

src/services.el

@@ -5,6 +5,11 @@
 ;;;; and parsing the result.
 ;;;;
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                     Requests for services
 

src/startup.el

@@ -9,6 +9,11 @@
 ;;;;
 
 
+(setq lyskom-clientversion-long 
+      (concat lyskom-clientversion-long
+	      "$Id$\n"))
+
+
 ;;; ================================================================
 ;;;                         Start kom.