Mercurial > emacs
comparison lisp/vc-arch.el @ 106840:5df8e547a422
Fix typos in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 14 Jan 2010 19:59:31 +0100 |
| parents | 1d1d5d9bd884 |
| children | 1918e70c8b37 8027e412df98 |
comparison
equal
deleted
inserted
replaced
| 106839:7d4dcdf87b91 | 106840:5df8e547a422 |
|---|---|
| 211 "^[ \t]*\\(tagline\\|implicit\\|names\\|explicit\\)" nil t) | 211 "^[ \t]*\\(tagline\\|implicit\\|names\\|explicit\\)" nil t) |
| 212 (intern (match-string 1)) | 212 (intern (match-string 1)) |
| 213 'names)))) | 213 'names)))) |
| 214 | 214 |
| 215 (defun vc-arch-root (file) | 215 (defun vc-arch-root (file) |
| 216 "Return the root directory of a Arch project, if any." | 216 "Return the root directory of an Arch project, if any." |
| 217 (or (vc-file-getprop file 'arch-root) | 217 (or (vc-file-getprop file 'arch-root) |
| 218 ;; Check the =tagging-method, in case someone naively manually | 218 ;; Check the =tagging-method, in case someone naively manually |
| 219 ;; creates a {arch} directory somewhere. | 219 ;; creates a {arch} directory somewhere. |
| 220 (let ((root (vc-find-root file "{arch}/=tagging-method"))) | 220 (let ((root (vc-find-root file "{arch}/=tagging-method"))) |
| 221 (when root | 221 (when root |