| 167 |
common))) |
common))) |
| 168 |
|
|
| 169 |
(defun kogiku-migemo-get-pattern (string) |
(defun kogiku-migemo-get-pattern (string) |
| 170 |
(let ((migemo-pre-conv-function nil) |
(let ((migemo-pattern-alist migemo-pattern-alist) |
| 171 |
(migemo-pattern-alist migemo-pattern-alist) |
(migemo-pre-conv-function nil) |
| 172 |
(migemo-after-conv-function |
(migemo-after-conv-function nil) |
| 173 |
(lambda (word pattern) |
(migemo-white-space-regexp " *")) |
|
(migemo-replace-in-string pattern "\a" " *" t)))) |
|
| 174 |
(setq string (downcase string)) |
(setq string (downcase string)) |
| 175 |
(let ((case-fold-search nil)) |
(let ((case-fold-search nil)) |
| 176 |
(while (string-match "[^a-zA-Z]\\([a-z]+\\)" string) |
(while (string-match "[^a-zA-Z]\\([a-z]+\\)" string) |
| 177 |
(setq string |
(setq string |
| 178 |
(replace-match (capitalize (match-string 1 string)) nil nil string 1))) |
(replace-match (capitalize (match-string 1 string)) nil nil string 1))) |
| 179 |
(setq string (migemo-replace-in-string string kogiku-busetsu-regexp "" t))) |
(while (string-match kogiku-busetsu-regexp string) |
| 180 |
|
(setq string (replace-match "" nil nil string)))) |
| 181 |
(migemo-get-pattern string))) |
(migemo-get-pattern string))) |
| 182 |
|
|
| 183 |
(defun kogiku-file-name-completion (string dir &optional all) |
(defun kogiku-file-name-completion (string dir &optional all) |
Parent Directory
Revision Log
Revision Graph
Patch