Mercurial > emacs
comparison lisp/vc-rcs.el @ 106671:1b4df859a104
* vc-rcs.el (vc-rcs-register): Fix registering a specific version.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 28 Dec 2009 11:20:02 -0800 |
| parents | 6e0f1038bc44 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 106670:8437678ea169 | 106671:1b4df859a104 |
|---|---|
| 275 to the RCS command. | 275 to the RCS command. |
| 276 | 276 |
| 277 Automatically retrieve a read-only version of the file with keywords | 277 Automatically retrieve a read-only version of the file with keywords |
| 278 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." | 278 expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." |
| 279 (let (subdir name) | 279 (let (subdir name) |
| 280 ;; When REV is specified, we need to force using "-t-". | |
| 281 (when rev (unless comment (setq comment ""))) | |
| 280 (dolist (file files) | 282 (dolist (file files) |
| 281 (and (not (file-exists-p | 283 (and (not (file-exists-p |
| 282 (setq subdir (expand-file-name "RCS" | 284 (setq subdir (expand-file-name "RCS" |
| 283 (file-name-directory file))))) | 285 (file-name-directory file))))) |
| 284 (not (directory-files (file-name-directory file) | 286 (not (directory-files (file-name-directory file) |