Mercurial > emacs
comparison lisp/vc-hooks.el @ 94190:fad57210c7d2
* lisp/vc-sccs.el (vc-sccs-do-command): New fun. Use the "sccs" command.
(vc-sccs-register, vc-sccs-checkin, vc-sccs-find-revision)
(vc-sccs-checkout, vc-sccs-rollback, vc-sccs-revert)
(vc-sccs-steal-lock, vc-sccs-modify-change-comment)
(vc-sccs-print-log): Use it.
* lisp/vc-hooks.el (vc-path): Remove SCCS-specific hack.
* lib-src/vcdiff: Use "sccs get" rather than "get"; leave PATH alone.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 19 Apr 2008 21:53:55 +0000 |
| parents | d03fe9cb1cf4 |
| children | 2aa6d908ffad |
comparison
equal
deleted
inserted
replaced
| 94189:c1b4e330f616 | 94190:fad57210c7d2 |
|---|---|
| 82 "_MTN" "_darcs" "{arch}") | 82 "_MTN" "_darcs" "{arch}") |
| 83 "List of directory names to be ignored when walking directory trees." | 83 "List of directory names to be ignored when walking directory trees." |
| 84 :type '(repeat string) | 84 :type '(repeat string) |
| 85 :group 'vc) | 85 :group 'vc) |
| 86 | 86 |
| 87 (defcustom vc-path | 87 (defcustom vc-path nil |
| 88 (if (file-directory-p "/usr/sccs") | |
| 89 '("/usr/sccs") | |
| 90 nil) | |
| 91 "List of extra directories to search for version control commands." | 88 "List of extra directories to search for version control commands." |
| 92 :type '(repeat directory) | 89 :type '(repeat directory) |
| 93 :group 'vc) | 90 :group 'vc) |
| 94 | 91 |
| 95 (defcustom vc-make-backup-files nil | 92 (defcustom vc-make-backup-files nil |