Browse CVS Repository
Diff of /kogiku/kogiku/kogiku.el
 Parent Directory
|  Revision Log
|  Revision Graph
|  Patch
| 199 |
(defun kogiku-try-completion-regexp (regexp all-list) |
(defun kogiku-try-completion-regexp (regexp all-list) |
| 200 |
(if (= (length regexp) 0) |
(if (= (length regexp) 0) |
| 201 |
"" |
"" |
| 202 |
(let (common) |
(substring |
|
(setq common |
|
|
(substring |
|
| 203 |
(car all-list) |
(car all-list) |
| 204 |
0 |
0 |
| 205 |
(apply 'min |
(apply 'min |
| 213 |
b 0 nil)) |
b 0 nil)) |
| 214 |
1)) |
1)) |
| 215 |
(delete a all-list)))) |
(delete a all-list)))) |
| 216 |
all-list)))) |
all-list))))) |
|
common))) |
|
| 217 |
|
|
| 218 |
(defun kogiku-migemo-get-pattern (string) |
(defun kogiku-migemo-get-pattern (string) |
| 219 |
(let ((migemo-pattern-alist migemo-pattern-alist) |
(let ((migemo-pattern-alist migemo-pattern-alist) |
|
|
Legend:
| Removed from v.1.21 |
|
| changed lines |
| |
Added in v.1.22 |
|
|
| 
Parent Directory
Revision Log
Revision Graph
Patch