procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename cvs-append-to-ignore to vc-cvs-append-to-ignore.

Browse source 
2013-09-20  Xue Fuqiao  <xfq.free@gmail.com>

	* 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.
This commit is contained in:
Xue Fuqiao 2013-09-20 13:39:53 +08:00
parent f5f0132bc9
commit 98ccf24eab
4 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -279,6 +279,9 @@ controlled tree in a window.
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.

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-09-20 Xue Fuqiao <xfq.free@gmail.com>
* 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 <monnier@iro.umontreal.ca>
* eshell/em-ls.el: Use advice. Remove redundant :group keywords.

2
lisp/vc/pcvs.el
View file

@ -1963,7 +1963,7 @@ With a prefix argument, prompt for cvs flags."
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))

5
lisp/vc/vc-cvs.el
View file

@ -1228,10 +1228,9 @@ is non-nil."
(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."