Browse CVS Repository
Diff of /kogiku/kogiku/kogiku.el
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 237 |
(t |
(t |
| 238 |
(kogiku-migemo-get-pattern (file-name-nondirectory string)))) |
(kogiku-migemo-get-pattern (file-name-nondirectory string)))) |
| 239 |
"\\)"))) |
"\\)"))) |
| 240 |
|
(ignore-pattern (format "\\(%s\\)$" |
| 241 |
|
(mapconcat 'regexp-quote completion-ignored-extensions "\\|"))) |
| 242 |
(candidates (delete nil |
(candidates (delete nil |
| 243 |
(mapcar |
(mapcar |
| 244 |
(lambda (f) |
(lambda (f) |
| 245 |
(if (string-match pattern f) |
(when (string-match pattern f) |
| 246 |
(if (file-directory-p (expand-file-name f dir)) |
(when (file-directory-p (expand-file-name f dir)) |
| 247 |
;; ディレクトリは / で終わるように |
;; ディレクトリは / で終わるように |
| 248 |
(file-name-as-directory f) |
(setq f (file-name-as-directory f))) |
| 249 |
f))) |
(and (not (string-match ignore-pattern f)) f))) |
| 250 |
files))) |
files))) |
| 251 |
(count (length candidates)) |
count common) |
|
common) |
|
| 252 |
(if all |
(if all |
| 253 |
candidates |
candidates |
| 254 |
|
(when (and (string= string "") |
| 255 |
|
(= (length files) 3)) |
| 256 |
|
(setq candidates |
| 257 |
|
(delete-if (lambda (f) (string-match "\\.\\.?/" f)) |
| 258 |
|
candidates))) |
| 259 |
|
(setq count (length candidates)) |
| 260 |
(cond |
(cond |
| 261 |
((eq count 0) nil) |
((eq count 0) nil) |
| 262 |
((eq count 1) (let ((candidate (car candidates))) |
((eq count 1) (let ((candidate (car candidates))) |
|
|
Legend:
| Removed from v.1.29 |
|
| changed lines |
| |
Added in v.1.30 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch