CVS update by scop packages/unsupported/scop/vc ...

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 07/08/21 10:35:49

  Modified:    packages/unsupported/scop/vc ChangeLog vc-rcs.el
Log:
Use substring if substring-no-properties is not available.

Revision  Changes    Path
1.87      +5 -0      XEmacs/packages/unsupported/scop/vc/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -p -r1.86 -r1.87
--- ChangeLog	2007/08/18 15:33:30	1.86
+++ ChangeLog	2007/08/21 08:35:47	1.87
@@ -1,3 +1,8 @@
+2007-08-21  Ville Skyttä  <scop at xemacs.org>
+
+	* vc-rcs.el (vc-rcs-annotate-command): Use `substring' if
+	`substring-no-properties' is not available, thanks to Adrian Aichner.
+
 2007-08-18  Ville Skyttä  <scop at xemacs.org>
 
 	* Makefile (VERSION): 0.94.



1.12      +4 -1      XEmacs/packages/unsupported/scop/vc/vc-rcs.el

Index: vc-rcs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc-rcs.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- vc-rcs.el	2007/05/14 19:07:13	1.11
+++ vc-rcs.el	2007/08/21 08:35:47	1.12
@@ -662,7 +662,10 @@ Optional arg REVISION is a revision to a
                  ht)
         (setq maxw (max w maxw))))
     (let ((padding (make-string maxw 32)))
-      (flet ((pad (w) (substring-no-properties padding w))
+      ;; XEmacs change: FIXME: we don't have `substring-no-properties'
+      (flet ((pad (w) (if (fboundp 'substring-no-properties)
+                          (substring-no-properties padding w)
+                        (substring padding w)))
              (render (rda &rest ls)
                      (propertize
                       (apply 'concat