diff options
author | Xue Fuqiao <xfq.free@gmail.com> | 2013-07-30 08:25:31 +0800 |
---|---|---|
committer | Xue Fuqiao <xfq.free@gmail.com> | 2013-07-30 08:25:31 +0800 |
commit | 7aa7fff0c8860b72a2c7cdc7d4d0845245754d43 (patch) | |
tree | 10c4e901544080581b926622eb35d26ddda65791 /lisp/vc/pcvs.el | |
parent | 8121f08950ca36647a6dfa32d02be574b253d9df (diff) | |
download | emacs-7aa7fff0c8860b72a2c7cdc7d4d0845245754d43.tar.gz |
Add vc-ignore.
* lisp/vc/vc.el (vc-ignore): New function.
* lisp/vc/vc-svn.el (vc-svn-ignore): New function.
* lisp/vc/vc-hg.el (vc-hg-ignore): New function.
* lisp/vc/vc-git.el (vc-git-ignore): New function.
* lisp/vc/vc-dir.el (vc-dir-mode-map): Add key binding for vc-dir-ignore
(vc-dir-ignore): New function.
* lisp/vc/vc-cvs.el (vc-cvs-ignore): New function.
(cvs-append-to-ignore): Moved from pcvs.el.
* lisp/vc/vc-bzr.el (vc-bzr-ignore): New function.
* lisp/vc/pcvs.el (vc-cvs): Require 'vc-cvs.
Diffstat (limited to 'lisp/vc/pcvs.el')
-rw-r--r-- | lisp/vc/pcvs.el | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el index 208b93d9670..fb91185662a 100644 --- a/lisp/vc/pcvs.el +++ b/lisp/vc/pcvs.el @@ -122,6 +122,7 @@ (require 'pcvs-util) (require 'pcvs-parse) (require 'pcvs-info) +(require 'vc-cvs) ;;;; @@ -1970,25 +1971,6 @@ This command ignores files that are not flagged as `Unknown'." (declare-function vc-editable-p "vc" (file)) (declare-function vc-checkout "vc" (file &optional writable rev)) -(defun cvs-append-to-ignore (dir str &optional old-dir) - "Add STR to the .cvsignore file in DIR. -If OLD-DIR is non-nil, then this is a directory that we don't want -to hear about anymore." - (with-current-buffer - (find-file-noselect (expand-file-name ".cvsignore" dir)) - (when (ignore-errors - (and buffer-read-only - (eq 'CVS (vc-backend buffer-file-name)) - (not (vc-editable-p buffer-file-name)))) - ;; CVSREAD=on special case - (vc-checkout buffer-file-name t)) - (goto-char (point-max)) - (unless (bolp) (insert "\n")) - (insert str (if old-dir "/\n" "\n")) - (if cvs-sort-ignore-file (sort-lines nil (point-min) (point-max))) - (save-buffer))) - - (defun cvs-mode-find-file-other-window (e) "Select a buffer containing the file in another window." (interactive (list last-input-event)) |