Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
Also, if FILE is a list, return non-nil if any of its
elements should stay local.  Update docstring.
This commit is contained in:
Thien-Thi Nguyen 2007-07-23 19:46:00 +00:00
parent f5e087f898
commit 33e0847dbb
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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.

10
lisp/vc-hooks.el
View file

@ -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 ()