Mercurial > emacs
comparison lisp/vc-sccs.el @ 91958:8a796568ffce
(vc-sccs-root): New func.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Tue, 19 Feb 2008 12:25:54 +0000 |
| parents | 107ccd98fa12 |
| children | 5e54541c6015 |
comparison
equal
deleted
inserted
replaced
| 91957:42f58d542f55 | 91958:8a796568ffce |
|---|---|
| 360 | 360 |
| 361 ;;; | 361 ;;; |
| 362 ;;; Internal functions | 362 ;;; Internal functions |
| 363 ;;; | 363 ;;; |
| 364 | 364 |
| 365 (defun vc-sccs-root (dir) | |
| 366 (vc-find-root dir "SCCS" t)) | |
| 367 | |
| 365 ;; This function is wrapped with `progn' so that the autoload cookie | 368 ;; This function is wrapped with `progn' so that the autoload cookie |
| 366 ;; copies the whole function itself into loaddefs.el rather than just placing | 369 ;; copies the whole function itself into loaddefs.el rather than just placing |
| 367 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not | 370 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not |
| 368 ;; help us avoid loading vc-sccs. | 371 ;; help us avoid loading vc-sccs. |
| 369 ;;;###autoload | 372 ;;;###autoload |