mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

vc-ignore fixes.

Browse source 
* vc/vc-svn.el (vc-svn-ignore): Remove `interactive'.  Use `*vc*'
buffer for output.

* vc/vc-hg.el (vc-hg-ignore): Remove `interactive'; do not assume
point-min==1; fix search string; fix parentheses missing.

* vc/vc-git.el (vc-git-ignore): Remove `interactive'; do not
assume point-min==1; fix search string; fix parentheses missing.

* vc/vc-cvs.el (vc-cvs-ignore): Remove `interactive'.

* vc/vc-bzr.el (vc-bzr-ignore): Remove `interactive'.  Use `*vc*'
buffer for output.
This commit is contained in:
Xue Fuqiao 2013-07-30 11:46:06 +08:00
parent d206733324
commit 5c09de04ca
6 changed files with 26 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/vc/vc-hg.el
View file

@ -461,15 +461,14 @@ REV is ignored."
(defun vc-hg-ignore (file)
"Ignore FILE under Mercurial."
(interactive)
(with-temp-buffer
(insert-file-contents
(let (hgignore (concat (file-name-as-directory (vc-hg-root
default-directory)) ".hgignore"))
(unless (search-forward file nil t)
(let ((hgignore (concat (file-name-as-directory (vc-hg-root
default-directory)) ".hgignore")))
(unless (search-forward (concat "\n" file "\n") nil t)
(goto-char (point-max))
(insert (concat "\n" file "\n"))
(write-region 1 (point-max) hgignore))))))
(write-region (point-min) (point-max) hgignore))))))
;; Modeled after the similar function in vc-bzr.el
(defun vc-hg-checkout (file &optional _editable rev)