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

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 07/07/07 21:56:00

  Modified:    packages/unsupported/scop/vc ChangeLog vc-arch.el
Log:
Call comment-normalize-vars only if it's available.

Revision  Changes    Path
1.80      +2 -0      XEmacs/packages/unsupported/scop/vc/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -p -r1.79 -r1.80
--- ChangeLog	2007/07/07 16:37:46	1.79
+++ ChangeLog	2007/07/07 19:55:58	1.80
@@ -10,6 +10,8 @@
 
 	* Makefile (REQUIRES): Add elib and edebug (pulled in by ediff).
 
+	* vc-arch.el (vc-arch-add-tagline): Call `comment-normalize-vars'
+	only if it's available.
 
 2007-06-24  Ville Skyttä  <scop at xemacs.org>
 



1.22      +2 -2      XEmacs/packages/unsupported/scop/vc/vc-arch.el

Index: vc-arch.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc-arch.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- vc-arch.el	2007/07/07 16:37:46	1.21
+++ vc-arch.el	2007/07/07 19:55:58	1.22
@@ -83,8 +83,8 @@
 (defun vc-arch-add-tagline ()
   "Add an `arch-tag' to the end of the current file."
   (interactive)
-  ;; XEmacs TODO: comment-normalize-vars is in newcomment.el (XEmacs >= 21.5)
-  (comment-normalize-vars)
+  ;; XEmacs change: comment-normalize-vars (newcomment.el) only in >= 21.5
+  (if (fboundp 'comment-normalize-vars) (comment-normalize-vars))
   (goto-char (point-max))
   (forward-comment -1)
   (unless (bolp) (insert "\n"))