| 修訂 | 314 (tree) |
|---|---|
| 時間 | 2014-09-21 22:51:36 |
| 作者 | mhayashi1120 |
fix problem
trunk/ChangeLog (diff) trunk/fsvn-deps.el (diff)| @@ -1,3 +1,7 @@ | ||
| 1 | +2014-09-12 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com> | |
| 2 | + | |
| 3 | + * Fix: before 1.7, handle meta directory. | |
| 4 | + | |
| 1 | 5 | 2014-06-09 Masahiro Hayashi (林 雅博) <mhayashi1120@gmail.com> |
| 2 | 6 | |
| 3 | 7 | * Fix: guard if local working copy is not under a svn. |
| @@ -786,7 +786,10 @@ | ||
| 786 | 786 | (defun fsvn-file-control-directory (file) |
| 787 | 787 | (cond |
| 788 | 788 | ((version< fsvn-svn-version "1.7.0") |
| 789 | - (let ((control (fsvn-expand-file (fsvn-meta-dir-name) file))) | |
| 789 | + (let* ((dir (if (fsvn-file-exact-directory-p file) | |
| 790 | + file | |
| 791 | + (fsvn-file-name-directory file))) | |
| 792 | + (control (fsvn-expand-file (fsvn-meta-dir-name) dir))) | |
| 790 | 793 | (and (fsvn-file-exact-directory-p control) |
| 791 | 794 | control))) |
| 792 | 795 | ((string-match (format "/%s\\($\\|/\\)" (regexp-quote (fsvn-meta-dir-name))) file) |
