[Emacs-diffs] trunk r114404: Rename cvs-append-to-ignore to vc-cvs-append-to-ignore.

[Xue Fuqiao]

------------------------------------------------------------
revno: 114404
revision-id: address@hidden
parent: address@hidden
committer: Xue Fuqiao <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-20 13:39:53 +0800
message:
  Rename cvs-append-to-ignore to vc-cvs-append-to-ignore.
  
  2013-09-20  Xue Fuqiao  <address@hidden>
  
        * lisp/vc/pcvs.el (cvs-mode-ignore):
        * lisp/vc/vc-cvs.el (vc-cvs-ignore, vc-cvs-append-to-ignore): Rename
        cvs-append-to-ignore to vc-cvs-append-to-ignore.
  
  If/when someone complains about her package calling that function we
  can add an obsolete alias at that point.
modified:
  etc/NEWS                       news-20100311060928-aoit31wvzf25yr1z-1
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/vc/pcvs.el                pcvs.el-20091113204419-o5vbwnq5f7feedwu-1782
  lisp/vc/vc-cvs.el              vccvs.el-20091113204419-o5vbwnq5f7feedwu-1927

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2013-09-17 07:39:54 +0000
+++ b/etc/NEWS  2013-09-20 05:39:53 +0000
@@ -279,6 +279,9 @@
 under current version control system.  When called with a prefix
 argument, you can remove a file from the ignored file list.
 
+*** `cvs-append-to-ignore' has been renamed to `vc-cvs-append-to-ignore'
+because it is moved to vc-cvs.el.
+
 ** cl-lib
 
 *** New macro cl-tagbody.

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-19 20:51:33 +0000
+++ b/lisp/ChangeLog    2013-09-20 05:39:53 +0000
@@ -1,3 +1,9 @@
+2013-09-20  Xue Fuqiao  <address@hidden>
+
+       * vc/pcvs.el (cvs-mode-ignore):
+       * vc/vc-cvs.el (vc-cvs-ignore, vc-cvs-append-to-ignore): Rename
+       cvs-append-to-ignore to vc-cvs-append-to-ignore.
+
 2013-09-19  Stefan Monnier  <address@hidden>
 
        * eshell/em-ls.el: Use advice.  Remove redundant :group keywords.

=== modified file 'lisp/vc/pcvs.el'
--- a/lisp/vc/pcvs.el   2013-09-05 03:30:07 +0000
+++ b/lisp/vc/pcvs.el   2013-09-20 05:39:53 +0000
@@ -1963,7 +1963,7 @@
 This command ignores files that are not flagged as `Unknown'."
   (interactive)
   (dolist (fi (cvs-mode-marked 'ignore))
-    (cvs-append-to-ignore (cvs-fileinfo->dir fi) (cvs-fileinfo->file fi)
+    (vc-cvs-append-to-ignore (cvs-fileinfo->dir fi) (cvs-fileinfo->file fi)
                          (eq (cvs-fileinfo->subtype fi) 'NEW-DIR))
     (setf (cvs-fileinfo->type fi) 'DEAD))
   (cvs-cleanup-collection cvs-cookies nil nil nil))

=== modified file 'lisp/vc/vc-cvs.el'
--- a/lisp/vc/vc-cvs.el 2013-09-11 18:40:06 +0000
+++ b/lisp/vc/vc-cvs.el 2013-09-20 05:39:53 +0000
@@ -1228,10 +1228,9 @@
 
 (defun vc-cvs-ignore (file &optional _directory _remove)
   "Ignore FILE under CVS."
-  (cvs-append-to-ignore (file-name-directory file) file))
+  (vc-cvs-append-to-ignore (file-name-directory file) file))
 
-;; FIXME This should be in the vc-cvs- namespace if it is to live here.
-(defun cvs-append-to-ignore (dir str &optional old-dir)
+(defun vc-cvs-append-to-ignore (dir str &optional old-dir)
   "In DIR, add STR to the .cvsignore file.
 If OLD-DIR is non-nil, then this is a directory that we don't want
 to hear about anymore."