CVS update by scop packages/xemacs-packages/vc ...

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 07/09/26 18:28:25

  Modified:    packages/xemacs-packages/vc ChangeLog vc-sccs.el
Log:
Use concat instead of replace-match <17940.1190433856 at athyra>

Revision  Changes    Path
1.49      +5 -0      XEmacs/packages/xemacs-packages/vc/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vc/ChangeLog,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -p -r1.48 -r1.49
--- ChangeLog	2007/08/28 12:11:06	1.48
+++ ChangeLog	2007/09/26 16:28:23	1.49
@@ -1,3 +1,8 @@
+2007-09-26  Ville Skyttä  <scop at xemacs.org>
+
+	* vc-sccs.el (vc-sccs-lock-file): Use simple concatenation
+	rather than `replace-match'; our r-m API differs from GNU.
+
 2007-08-28  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.42 released.



1.2       +2 -1      XEmacs/packages/xemacs-packages/vc/vc-sccs.el

Index: vc-sccs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vc/vc-sccs.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- vc-sccs.el	2007/08/23 21:27:54	1.1
+++ vc-sccs.el	2007/09/26 16:28:23	1.2
@@ -362,7 +362,8 @@ find any project directory."
     (and
      master
      (string-match "\\(.*/\\)\\(s\\.\\)\\(.*\\)" master)
-     (replace-match "p." t t master 2))))
+     ;; XEmacs change: don't use replace-match here; our API differs from GNU
+     (concat (match-string 1 master) "p." (match-string 3 master)))))
 
 (defun vc-sccs-parse-locks ()
   "Parse SCCS locks in current buffer.