diff options
| author | Chong Yidong | 2011-12-16 23:55:00 +0800 |
|---|---|---|
| committer | Chong Yidong | 2011-12-16 23:55:00 +0800 |
| commit | 99a289d98d688501ff5a89dc946c7d92fdb675d8 (patch) | |
| tree | efff4407a6a3cc20b3e0743d29a4832301e9982e | |
| parent | f16c898aa38a64c75fad0973f4dc2b003f1f4b60 (diff) | |
| download | emacs-99a289d98d688501ff5a89dc946c7d92fdb675d8.tar.gz emacs-99a289d98d688501ff5a89dc946c7d92fdb675d8.zip | |
* lisp/vc/vc.el (vc-next-action): Doc fix; remove CVS-isms.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/vc/vc.el | 49 |
2 files changed, 25 insertions, 28 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0ac21bac65..eb7be329d84 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-12-16 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * vc/vc.el (vc-next-action): Doc fix; remove CVS-isms. | ||
| 4 | |||
| 1 | 2011-12-16 Andreas Schwab <schwab@linux-m68k.org> | 5 | 2011-12-16 Andreas Schwab <schwab@linux-m68k.org> |
| 2 | 6 | ||
| 3 | * calc/calc-misc.el (calc-help): Avoid wrapping help message. | 7 | * calc/calc-misc.el (calc-help): Avoid wrapping help message. |
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index eea1a992094..85fbd93e9c6 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el | |||
| @@ -1048,34 +1048,27 @@ current buffer." | |||
| 1048 | ;;;###autoload | 1048 | ;;;###autoload |
| 1049 | (defun vc-next-action (verbose) | 1049 | (defun vc-next-action (verbose) |
| 1050 | "Do the next logical version control operation on the current fileset. | 1050 | "Do the next logical version control operation on the current fileset. |
| 1051 | This requires that all files in the fileset be in the same state. | 1051 | This requires that all files in the current VC fileset be in the |
| 1052 | 1052 | same state. If not, signal an error. | |
| 1053 | For locking systems: | 1053 | |
| 1054 | If every file is not already registered, this registers each for version | 1054 | For merging-based version control systems: |
| 1055 | control. | 1055 | If every file in the VC fileset is not registered for version |
| 1056 | If every file is registered and not locked by anyone, this checks out | 1056 | control, register the fileset (but don't commit). |
| 1057 | a writable and locked file of each ready for editing. | 1057 | If every work file in the VC fileset is added or changed, pop |
| 1058 | If every file is checked out and locked by the calling user, this | 1058 | up a *vc-log* buffer to commit the fileset. |
| 1059 | first checks to see if each file has changed since checkout. If not, | 1059 | For a centralized version control system, if any work file in |
| 1060 | it performs a revert on that file. | 1060 | the VC fileset is out of date, offer to update the fileset. |
| 1061 | If every file has been changed, this pops up a buffer for entry | 1061 | |
| 1062 | of a log message; when the message has been entered, it checks in the | 1062 | For old-style locking-based version control systems, like RCS: |
| 1063 | resulting changes along with the log message as change commentary. If | 1063 | If every file is not registered, register the file(s). |
| 1064 | the variable `vc-keep-workfiles' is non-nil (which is its default), a | 1064 | If every file is registered and unlocked, check out (lock) |
| 1065 | read-only copy of each changed file is left in place afterwards. | 1065 | the file(s) for editing. |
| 1066 | If the affected file is registered and locked by someone else, you are | 1066 | If every file is locked by you and has changes, pop up a |
| 1067 | given the option to steal the lock(s). | 1067 | *vc-log* buffer to check in the changes. If the variable |
| 1068 | 1068 | `vc-keep-workfiles' is non-nil (the default), leave a | |
| 1069 | For merging systems: | 1069 | read-only copy of each changed file after checking in. |
| 1070 | If every file is not already registered, this registers each one for version | 1070 | If every file is locked by you and unchanged, unlock them. |
| 1071 | control. This does an add, but not a commit. | 1071 | If every file is locked by someone else, offer to steal the lock." |
| 1072 | If every file is added but not committed, each one is committed. | ||
| 1073 | If every working file is changed, but the corresponding repository file is | ||
| 1074 | unchanged, this pops up a buffer for entry of a log message; when the | ||
| 1075 | message has been entered, it checks in the resulting changes along | ||
| 1076 | with the logmessage as change commentary. A writable file is retained. | ||
| 1077 | If the repository file is changed, you are asked if you want to | ||
| 1078 | merge in the changes into your working copy." | ||
| 1079 | (interactive "P") | 1072 | (interactive "P") |
| 1080 | (let* ((vc-fileset (vc-deduce-fileset nil t 'state-model-only-files)) | 1073 | (let* ((vc-fileset (vc-deduce-fileset nil t 'state-model-only-files)) |
| 1081 | (backend (car vc-fileset)) | 1074 | (backend (car vc-fileset)) |