mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

Rename vc-stay-local back to vc-cvs-stay-local

Browse Source 
* lisp/vc/vc-cvs.el (vc-cvs-stay-local): Rename back from
vc-stay-local (bug#19548).  Improve the docstring.
(vc-cvs-stay-local-p): Update accordingly.
This commit is contained in:
Dmitry Gutov 2016-05-25 03:49:35 +03:00
parent 4efb3e8169
commit 825ca2542e
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/vc/vc-cvs.el
View File

@ -121,7 +121,7 @@ This is only meaningful if you don't use the implicit checkout model
:version "21.1" :version "21.1"
:group 'vc-cvs) :group 'vc-cvs)
(defcustom vc-stay-local 'only-file (defcustom vc-cvs-stay-local 'only-file
"Non-nil means use local operations when possible for remote repositories. "Non-nil means use local operations when possible for remote repositories.
This avoids slow queries over the network and instead uses heuristics This avoids slow queries over the network and instead uses heuristics
and past information to determine the current status of a file. and past information to determine the current status of a file.
@ -131,11 +131,11 @@ server, but heuristics will be used to determine the status for
all other VC operations. all other VC operations.
The value can also be a regular expression or list of regular The value can also be a regular expression or list of regular
expressions to match against the host name of a repository; then VC expressions to match against the host name of a repository; then
only stays local for hosts that match it. Alternatively, the value vc-cvs only stays local for hosts that match it. Alternatively,
can be a list of regular expressions where the first element is the the value can be a list of regular expressions where the first
symbol `except'; then VC always stays local except for hosts matched element is the symbol `except'; then vc-cvs always stays local
by these regular expressions." except for hosts matched by these regular expressions."
:type '(choice (const :tag "Always stay local" t) :type '(choice (const :tag "Always stay local" t)
(const :tag "Only for file operations" only-file) (const :tag "Only for file operations" only-file)
(const :tag "Don't stay local" nil) (const :tag "Don't stay local" nil)
@ -789,8 +789,7 @@ If FILE is a list of files, return non-nil if any of them
individually should stay local." individually should stay local."
(if (listp file) (if (listp file)
(delq nil (mapcar (lambda (arg) (vc-cvs-stay-local-p arg)) file)) (delq nil (mapcar (lambda (arg) (vc-cvs-stay-local-p arg)) file))
(let* ((sym (vc-make-backend-sym 'CVS 'stay-local)) (let ((stay-local vc-cvs-stay-local))
(stay-local (if (boundp sym) (symbol-value sym) vc-stay-local)))
(if (symbolp stay-local) stay-local (if (symbolp stay-local) stay-local
(let ((dirname (if (file-directory-p file) (let ((dirname (if (file-directory-p file)
(directory-file-name file) (directory-file-name file)

4
lisp/vc/vc.el
View File

@ -577,8 +577,8 @@
;; only affected back ends were SCCS and RCS. ;; only affected back ends were SCCS and RCS.
;; ;;
;; - vc-stay-local-p and repository-hostname are no longer part ;; - vc-stay-local-p and repository-hostname are no longer part
;; of the public API. The vc-stay-local configuration variable ;; of the public API. The vc-cvs-stay-local configuration variable
;; remains but only affects the CVS back end. ;; remains and only affects the CVS back end.
;; ;;
;; - The init-revision function and the default-initial-revision ;; - The init-revision function and the default-initial-revision
;; variable are gone. These have't made sense on anything shipped ;; variable are gone. These have't made sense on anything shipped