diff options
| author | Eric S. Raymond | 2010-04-09 13:19:53 -0400 |
|---|---|---|
| committer | Eric S. Raymond | 2010-04-09 13:19:53 -0400 |
| commit | 004f9b3f1bf1fdf09c457cd30ea5e377d653a470 (patch) | |
| tree | 64e663ab2bed79b434a44eb054f70bbc8e03c8c4 | |
| parent | b13aef54997edcdceae7dab09a979f5833e6285d (diff) | |
| download | emacs-004f9b3f1bf1fdf09c457cd30ea5e377d653a470.tar.gz emacs-004f9b3f1bf1fdf09c457cd30ea5e377d653a470.zip | |
Get rid of several uses of the term 'master' in favor of equivalent verbiage
using "repository". No code changes.
| -rw-r--r-- | lisp/dired.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-loaddefs.el | 2 | ||||
| -rw-r--r-- | lisp/vc-arch.el | 3 | ||||
| -rw-r--r-- | lisp/vc-hooks.el | 10 | ||||
| -rw-r--r-- | lisp/vc.el | 27 |
5 files changed, 25 insertions, 19 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index c3d1435401e..0dc53bf32c4 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -3974,7 +3974,7 @@ true then the type of the file linked to by FILE is printed instead. | |||
| 3974 | ;;;*** | 3974 | ;;;*** |
| 3975 | 3975 | ||
| 3976 | ;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el" | 3976 | ;;;### (autoloads (dired-do-relsymlink dired-jump) "dired-x" "dired-x.el" |
| 3977 | ;;;;;; "bb37ec379c0a523368794491b691fd8d") | 3977 | ;;;;;; "2f8d3d5a31b969b181e23c40d6bb16a0") |
| 3978 | ;;; Generated autoloads from dired-x.el | 3978 | ;;; Generated autoloads from dired-x.el |
| 3979 | 3979 | ||
| 3980 | (autoload 'dired-jump "dired-x" "\ | 3980 | (autoload 'dired-jump "dired-x" "\ |
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index bdae05e7774..83247b62135 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el | |||
| @@ -282,7 +282,7 @@ Not documented | |||
| 282 | ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist | 282 | ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist |
| 283 | ;;;;;; do* do loop return-from return block etypecase typecase ecase | 283 | ;;;;;; do* do loop return-from return block etypecase typecase ecase |
| 284 | ;;;;;; case load-time-value eval-when destructuring-bind function* | 284 | ;;;;;; case load-time-value eval-when destructuring-bind function* |
| 285 | ;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "273ba25f4a116c61a464dbe55f1f8c63") | 285 | ;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "7fad7dd60f2f96ba90432f885015d61b") |
| 286 | ;;; Generated autoloads from cl-macs.el | 286 | ;;; Generated autoloads from cl-macs.el |
| 287 | 287 | ||
| 288 | (autoload 'gensym "cl-macs" "\ | 288 | (autoload 'gensym "cl-macs" "\ |
diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 80629ec0b4b..a723f98b8ae 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el | |||
| @@ -254,8 +254,7 @@ Only the value `maybe' can be trusted :-(." | |||
| 254 | (buffer-substring (point-min) (1- (point-max))))))))) | 254 | (buffer-substring (point-min) (1- (point-max))))))))) |
| 255 | 255 | ||
| 256 | (defun vc-arch-workfile-unchanged-p (file) | 256 | (defun vc-arch-workfile-unchanged-p (file) |
| 257 | "Check if FILE is unchanged by diffing against the master version. | 257 | "Stub: arch workfiles are always considered to be in a changed state," |
| 258 | Return non-nil if FILE is unchanged." | ||
| 259 | nil) | 258 | nil) |
| 260 | 259 | ||
| 261 | (defun vc-arch-state (file) | 260 | (defun vc-arch-state (file) |
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index eb8b4e015a7..ab9972a7e44 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -396,7 +396,7 @@ If the argument is a list, the files must all have the same back end." | |||
| 396 | 396 | ||
| 397 | 397 | ||
| 398 | (defun vc-backend-subdirectory-name (file) | 398 | (defun vc-backend-subdirectory-name (file) |
| 399 | "Return where the master and lock FILEs for the current directory are kept." | 399 | "Return where the repository for the current directory is kept." |
| 400 | (symbol-name (vc-backend file))) | 400 | (symbol-name (vc-backend file))) |
| 401 | 401 | ||
| 402 | (defun vc-name (file) | 402 | (defun vc-name (file) |
| @@ -467,13 +467,13 @@ For registered files, the value returned is one of: | |||
| 467 | USER The current version of the working file is locked by | 467 | USER The current version of the working file is locked by |
| 468 | some other USER (a string). | 468 | some other USER (a string). |
| 469 | 469 | ||
| 470 | 'needs-update The file has not been edited by the user, but there is | 470 | 'needs-update The file has not been edited by the user, but there is |
| 471 | a more recent version on the current branch stored | 471 | a more recent version on the current branch stored |
| 472 | in the master file. | 472 | in the repository. |
| 473 | 473 | ||
| 474 | 'needs-merge The file has been edited by the user, and there is also | 474 | 'needs-merge The file has been edited by the user, and there is also |
| 475 | a more recent version on the current branch stored in | 475 | a more recent version on the current branch stored in |
| 476 | the master file. This state can only occur if locking | 476 | the repository. This state can only occur if locking |
| 477 | is not used for the file. | 477 | is not used for the file. |
| 478 | 478 | ||
| 479 | 'unlocked-changes The working version of the file is not locked, | 479 | 'unlocked-changes The working version of the file is not locked, |
| @@ -552,7 +552,7 @@ and does not employ any heuristic at all." | |||
| 552 | unchanged)))) | 552 | unchanged)))) |
| 553 | 553 | ||
| 554 | (defun vc-default-workfile-unchanged-p (backend file) | 554 | (defun vc-default-workfile-unchanged-p (backend file) |
| 555 | "Check if FILE is unchanged by diffing against the master version. | 555 | "Check if FILE is unchanged by diffing against the repository version. |
| 556 | Return non-nil if FILE is unchanged." | 556 | Return non-nil if FILE is unchanged." |
| 557 | (zerop (condition-case err | 557 | (zerop (condition-case err |
| 558 | ;; If the implementation supports it, let the output | 558 | ;; If the implementation supports it, let the output |
diff --git a/lisp/vc.el b/lisp/vc.el index 6833bae7c92..4bf5a92da1b 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -63,11 +63,18 @@ | |||
| 63 | ;; although you might prefer to use C-c C-a (i.e. `log-edit-insert-changelog') | 63 | ;; although you might prefer to use C-c C-a (i.e. `log-edit-insert-changelog') |
| 64 | ;; from the commit buffer instead or to set `log-edit-setup-invert'. | 64 | ;; from the commit buffer instead or to set `log-edit-setup-invert'. |
| 65 | ;; | 65 | ;; |
| 66 | ;; The vc code maintains some internal state in order to reduce expensive | 66 | ;; When using SCCS, RCS, CVS: be careful not to do repo surgery, or |
| 67 | ;; version-control operations to a minimum. Some names are only computed | 67 | ;; operations like registrations and deletions and renames, outside VC |
| 68 | ;; once. If you perform version control operations with the backend while | 68 | ;; while VC is running. The support for these systems was designed |
| 69 | ;; vc's back is turned, or move/rename master files while vc is running, | 69 | ;; when disks were much slower, and the code maintains a lot of |
| 70 | ;; vc may get seriously confused. Don't do these things! | 70 | ;; internal state in order to reduce expensive operations to a |
| 71 | ;; minimum. Thus, if you mess with the repo while VC's back is turned, | ||
| 72 | ;; VC may get seriously confused. | ||
| 73 | ;; | ||
| 74 | ;; When using Subversion or a later system, anything you do outside VC | ||
| 75 | ;; *through the VCS tools* should safely interlock with VC | ||
| 76 | ;; operations. Under these VC does little state caching, because local | ||
| 77 | ;; operations are assumed to be fast. The dividing line is | ||
| 71 | ;; | 78 | ;; |
| 72 | ;; ADDING SUPPORT FOR OTHER BACKENDS | 79 | ;; ADDING SUPPORT FOR OTHER BACKENDS |
| 73 | ;; | 80 | ;; |
| @@ -196,7 +203,7 @@ | |||
| 196 | ;; | 203 | ;; |
| 197 | ;; Return non-nil if FILE is unchanged from the working revision. | 204 | ;; Return non-nil if FILE is unchanged from the working revision. |
| 198 | ;; This function should do a brief comparison of FILE's contents | 205 | ;; This function should do a brief comparison of FILE's contents |
| 199 | ;; with those of the repository master of the working revision. If | 206 | ;; with those of the repository copy of the working revision. If |
| 200 | ;; the backend does not have such a brief-comparison feature, the | 207 | ;; the backend does not have such a brief-comparison feature, the |
| 201 | ;; default implementation of this function can be used, which | 208 | ;; default implementation of this function can be used, which |
| 202 | ;; delegates to a full vc-BACKEND-diff. (Note that vc-BACKEND-diff | 209 | ;; delegates to a full vc-BACKEND-diff. (Note that vc-BACKEND-diff |
| @@ -784,7 +791,7 @@ is sensitive to blank lines." | |||
| 784 | (defcustom vc-checkout-carefully (= (user-uid) 0) | 791 | (defcustom vc-checkout-carefully (= (user-uid) 0) |
| 785 | "Non-nil means be extra-careful in checkout. | 792 | "Non-nil means be extra-careful in checkout. |
| 786 | Verify that the file really is not locked | 793 | Verify that the file really is not locked |
| 787 | and that its contents match what the master file says." | 794 | and that its contents match what the repository version says." |
| 788 | :type 'boolean | 795 | :type 'boolean |
| 789 | :group 'vc) | 796 | :group 'vc) |
| 790 | (make-obsolete-variable 'vc-checkout-carefully | 797 | (make-obsolete-variable 'vc-checkout-carefully |
| @@ -1518,7 +1525,7 @@ returns t if the buffer had changes, nil otherwise." | |||
| 1518 | (not (string= (vc-working-revision file) "0"))) | 1525 | (not (string= (vc-working-revision file) "0"))) |
| 1519 | (push file filtered) | 1526 | (push file filtered) |
| 1520 | ;; This file is added but not yet committed; | 1527 | ;; This file is added but not yet committed; |
| 1521 | ;; there is no master file to diff against. | 1528 | ;; there is no repository version to diff against. |
| 1522 | (if (or rev1 rev2) | 1529 | (if (or rev1 rev2) |
| 1523 | (error "No revisions of %s exist" file) | 1530 | (error "No revisions of %s exist" file) |
| 1524 | ;; We regard this as "changed". | 1531 | ;; We regard this as "changed". |
| @@ -2318,7 +2325,7 @@ backend to NEW-BACKEND, and unregister FILE from the current backend. | |||
| 2318 | (if unmodified-file | 2325 | (if unmodified-file |
| 2319 | (copy-file unmodified-file file | 2326 | (copy-file unmodified-file file |
| 2320 | 'ok-if-already-exists 'keep-date) | 2327 | 'ok-if-already-exists 'keep-date) |
| 2321 | (when (y-or-n-p "Get base revision from master? ") | 2328 | (when (y-or-n-p "Get base revision from repository? ") |
| 2322 | (vc-revert-file file)))) | 2329 | (vc-revert-file file)))) |
| 2323 | (vc-call-backend new-backend 'receive-file file rev)) | 2330 | (vc-call-backend new-backend 'receive-file file rev)) |
| 2324 | (when modified-file | 2331 | (when modified-file |
| @@ -2405,7 +2412,7 @@ backend to NEW-BACKEND, and unregister FILE from the current backend. | |||
| 2405 | 2412 | ||
| 2406 | ;;;###autoload | 2413 | ;;;###autoload |
| 2407 | (defun vc-rename-file (old new) | 2414 | (defun vc-rename-file (old new) |
| 2408 | "Rename file OLD to NEW, and rename its master file likewise." | 2415 | "Rename file OLD to NEW in both work area and repository." |
| 2409 | (interactive "fVC rename file: \nFRename to: ") | 2416 | (interactive "fVC rename file: \nFRename to: ") |
| 2410 | ;; in CL I would have said (setq new (merge-pathnames new old)) | 2417 | ;; in CL I would have said (setq new (merge-pathnames new old)) |
| 2411 | (let ((old-base (file-name-nondirectory old))) | 2418 | (let ((old-base (file-name-nondirectory old))) |