[Pkg-jed-commit] [SCM] Debian packaging of JED branch, upstream-fixes, updated. 231492d81036768d4b77c9dc2e657234f4ec5acf

[Jörg Sommer]

The following commit has been merged in the upstream-fixes branch:
commit 231492d81036768d4b77c9dc2e657234f4ec5acf
Author: Jörg Sommer <joerg at alea.gnuu.de>
Date:   Sun Nov 22 19:10:35 2009 +0100

    Update to rcs.sl 1.0.1 from Guido Gonzato
    
    The file http://guido.gonzato.googlepages.com/rcs.sl contains some
    changes that might be worth merging upstream.

diff --git a/lib/rcs.sl b/lib/rcs.sl
index c32b512..d5de2c0 100644
--- a/lib/rcs.sl
+++ b/lib/rcs.sl
@@ -31,17 +31,17 @@
 % Last updated:	23 February 2001
 
 %_debug_info = 1;
-private variable Last_Comment = "";
+static variable Last_Comment = "";
 
 % Build a file name like "/home/guido/RCS/file.txt,v"
-private define build_rcs_filename (file)
+static define build_rcs_filename (file)
 {
   variable dir;
   (dir, file) = parse_filename (file);
   return dircat (dircat (dir, "RCS"), strcat (file, ",v"));
 }
 
-private define checkout (file)
+static define checkout (file)
 {
   variable cmd, dir, name;
   
@@ -56,7 +56,7 @@ private define checkout (file)
   flush (sprintf ("Checking out %s...done.", file));
 }
 
-private define checkin (file, msg)
+static define checkin (file, msg)
 {
   variable dir, name, cmd;
 
@@ -79,9 +79,9 @@ define rcs_open_file ()         % Emacs uses ^X-v-f
 
   file = read_file_from_mini ("RCS open file:");
   
-  file = file [[0:strlen(file)-3]]; % remove ",v"
+  file = file [[:-3]]; % remove ",v"
   (dir, file) = parse_filename (file);
-  file = dircat (dir [[0:strlen(dir)-5]], file); % remove "RCS/"
+  file = dircat (dir [[:-5]], file); % remove "RCS/"
   checkout (file);
   () = find_file (file);
 }
@@ -117,7 +117,7 @@ define rcs_check_in_and_out ()  % Emacs uses ^X-v-v
   checkin (file, "Enter a change comment:");
 }
 
-private variable rlog_buf = "*rlog*";
+static variable rlog_buf = "*rlog*";
 
 define close_rlog_buffer ()
 {
@@ -134,9 +134,9 @@ define rcs_read_log ()
   variable rlog_map= "rlog_map";
 
   file = read_file_from_mini ("rlog of RCS file:");
-  file = file [[0:strlen(file)-3]]; % remove ",v"
+  file = file [[:-3]]; % remove ",v"
   (dir, file) = parse_filename (file);
-  file = dircat (dir [[0:strlen(dir)-5]], file); % remove "RCS/"
+  file = dircat (dir [[:-5]], file); % remove "RCS/"
   
   tmp_file = make_tmp_file ("/tmp/jedrlog");
   cmd = sprintf ("rlog %s > %s", file, tmp_file); % exec rlog
@@ -155,5 +155,4 @@ define rcs_read_log ()
   set_readonly (1);
 }
 
-provide ("rcs");
 % --- End of file rcs.sl ---

-- 
Debian packaging of JED