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 |