[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el
From: |
Andre Spiegel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el |
Date: |
Wed, 23 Apr 2003 09:14:16 -0400 |
Index: emacs/lisp/vc-cvs.el
diff -c emacs/lisp/vc-cvs.el:1.55 emacs/lisp/vc-cvs.el:1.56
*** emacs/lisp/vc-cvs.el:1.55 Wed Apr 23 08:49:25 2003
--- emacs/lisp/vc-cvs.el Wed Apr 23 09:14:16 2003
***************
*** 5,11 ****
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <address@hidden>
! ;; $Id: vc-cvs.el,v 1.55 2003/04/23 12:49:25 spiegel Exp $
;; This file is part of GNU Emacs.
--- 5,11 ----
;; Author: FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <address@hidden>
! ;; $Id: vc-cvs.el,v 1.56 2003/04/23 13:14:16 spiegel Exp $
;; This file is part of GNU Emacs.
***************
*** 81,98 ****
:version "21.1"
:group 'vc)
! (defcustom vc-cvs-stay-local '(except "^\\(localhost\\)$")
"*Non-nil means use local operations when possible for remote repositories.
This avoids slow queries over the network and instead uses heuristics
and past information to determine the current status of a file.
The value can also be a regular expression or list of regular
expressions to match against the host name of a repository; then VC
! only stays local for hosts that match it.
! This is useful in a setup, where most CVS servers should be contacted
! directly, and only a few CVS servers cannot be reached easily.
! For the opposite scenario, when only a few CVS servers are to be
! queried directly, a list of regular expressions can be specified,
! whose first element is the symbol `except'."
:type '(choice (const :tag "Always stay local" t)
(const :tag "Don't stay local" nil)
(list :format "\nExamine hostname and %v" :tag "Examine
hostname ..."
--- 81,97 ----
:version "21.1"
:group 'vc)
! (defcustom vc-cvs-stay-local t
"*Non-nil means use local operations when possible for remote repositories.
This avoids slow queries over the network and instead uses heuristics
and past information to determine the current status of a file.
+
The value can also be a regular expression or list of regular
expressions to match against the host name of a repository; then VC
! only stays local for hosts that match it. Alternatively, the value
! can be a list of regular expressions where the first element is the
! symbol `except'; then VC always stays local except for hosts matched
! by these regular expressions."
:type '(choice (const :tag "Always stay local" t)
(const :tag "Don't stay local" nil)
(list :format "\nExamine hostname and %v" :tag "Examine
hostname ..."
***************
*** 736,744 ****
(vc-file-setprop
dirname 'vc-cvs-stay-local-p
(when (file-readable-p rootname)
! (with-temp-buffer
! (vc-insert-file rootname)
! (goto-char (point-min))
(looking-at "\\([^\n]*\\)")
(let* ((cvs-root-members
(vc-cvs-parse-root (match-string 1)))
--- 735,743 ----
(vc-file-setprop
dirname 'vc-cvs-stay-local-p
(when (file-readable-p rootname)
! (with-temp-buffer
! (vc-insert-file rootname)
! (goto-char (point-min))
(looking-at "\\([^\n]*\\)")
(let* ((cvs-root-members
(vc-cvs-parse-root (match-string 1)))
***************
*** 763,775 ****
(cdr vc-cvs-stay-local))
"\\|"))))
(if (not rx)
! 'yes
(if (not (string-match rx hostname))
(setq stay-local (not stay-local)))
(if stay-local
! 'yes
'no))))))))))))
! (if (eq prop 'yes) t nil))))
(defun vc-cvs-parse-root ( root )
"Split CVS ROOT specification string into a list of fields.
--- 762,774 ----
(cdr vc-cvs-stay-local))
"\\|"))))
(if (not rx)
! 'yes
(if (not (string-match rx hostname))
(setq stay-local (not stay-local)))
(if stay-local
! 'yes
'no))))))))))))
! (if (eq prop 'yes) t nil))))
(defun vc-cvs-parse-root ( root )
"Split CVS ROOT specification string into a list of fields.