| Revision | 310 (tree) |
|---|---|
| Time | 2014-02-07 22:23:03 |
| Author | mhayashi1120 |
fix priority
trunk/fsvn-deps.el (diff)| @@ -821,14 +821,15 @@ | ||
| 821 | 821 | (let ((ctl (fsvn-file-control-directory file))) |
| 822 | 822 | (cond |
| 823 | 823 | ((null ctl) nil) |
| 824 | + ((file-exists-p (fsvn-expand-file "wc.db" ctl)) ; prior than "entries" | |
| 825 | + (and (require 'esqlite nil t) | |
| 826 | + (esqlite-sqlite-installed-p) | |
| 827 | + (fsvn-meta--get-database-format ctl))) | |
| 824 | 828 | ((file-exists-p (fsvn-expand-file "entries" ctl)) |
| 825 | 829 | (with-temp-buffer |
| 826 | 830 | (insert-file-contents (fsvn-expand-file "entries" ctl) nil 0 16) |
| 827 | 831 | (and (looking-at "^\\([0-9]+\\)$") |
| 828 | 832 | (string-to-number (match-string 1))))) |
| 829 | - ((and (and (require 'esqlite nil t) (esqlite-sqlite-installed-p)) | |
| 830 | - (file-exists-p (fsvn-expand-file "wc.db" ctl))) | |
| 831 | - (fsvn-meta--get-database-format ctl)) | |
| 832 | 833 | (t nil)))) |
| 833 | 834 | |
| 834 | 835 |