Commit 33e0847d authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

(vc-stay-local-p): Fix bug: Avoid remove-if-not.

Also, if FILE is a list, return non-nil if any of its
elements should stay local.  Update docstring.
parent f5e087f8
2007-07-23 Thien-Thi Nguyen <ttn@gnuvola.org>
* vc-hooks.el (vc-stay-local-p): Fix bug: Avoid remove-if-not.
Also, if FILE is a list, return non-nil if any of its elements
should stay local. Update docstring.
2007-07-23 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/copyright.el (copyright-update-year): Fix 2007-05-25 change.
......
......@@ -159,9 +159,11 @@ by these regular expressions."
(defun vc-stay-local-p (file)
"Return non-nil if VC should stay local when handling FILE.
This uses the `repository-hostname' backend operation."
This uses the `repository-hostname' backend operation.
If FILE is a list of files, return non-nil if any of them
individually should stay local."
(if (listp file)
(if (remove-if-not (lambda (x) (not (vc-stay-local-p x))) file) 'no 'yes)
(delq nil (mapcar 'vc-stay-local-p file))
(let* ((backend (vc-backend file))
(sym (vc-make-backend-sym backend 'stay-local))
(stay-local (if (boundp sym) (symbol-value sym) t)))
......@@ -732,7 +734,7 @@ visiting FILE."
(propertize
ml-string
'mouse-face 'mode-line-highlight
'help-echo
'help-echo
(concat (if ml-echo
ml-echo
(format "File under the %s version control system"
......@@ -787,7 +789,7 @@ This function assumes that the file is registered."
;; for 'needs-patch and 'needs-merge.
(setq state-echo "Locally modified file")
(concat backend ":" rev)))
'help-echo (concat state-echo " under the " backend
'help-echo (concat state-echo " under the " backend
" version control system"))))
(defun vc-follow-link ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment