| 99 |
value |
value |
| 100 |
'kogiku-must-match-complete))) |
'kogiku-must-match-complete))) |
| 101 |
|
|
|
(defcustom kogiku-busetsu-regexp ":" |
|
|
"" |
|
|
:group 'kogiku |
|
|
:type 'regexp) |
|
|
|
|
| 102 |
(defvar kogiku-original-function-for-minibuffer-local-completion-map |
(defvar kogiku-original-function-for-minibuffer-local-completion-map |
| 103 |
nil) |
nil) |
| 104 |
|
|
| 167 |
|
|
| 168 |
(defun kogiku-migemo-get-pattern (string) |
(defun kogiku-migemo-get-pattern (string) |
| 169 |
(let ((migemo-pattern-alist migemo-pattern-alist) |
(let ((migemo-pattern-alist migemo-pattern-alist) |
|
(migemo-pre-conv-function nil) |
|
| 170 |
(migemo-after-conv-function nil) |
(migemo-after-conv-function nil) |
| 171 |
(migemo-white-space-regexp " *")) |
(migemo-white-space-regexp " *")) |
|
(setq string (downcase string)) |
|
| 172 |
(let ((case-fold-search nil)) |
(let ((case-fold-search nil)) |
| 173 |
(while (string-match "[^a-zA-Z]\\([a-z]+\\)" string) |
(while (string-match "[^a-zA-Z]\\([a-z]+\\)" string) |
| 174 |
(setq string |
(setq string |
| 175 |
(replace-match (capitalize (match-string 1 string)) nil nil string 1))) |
(replace-match (capitalize (match-string 1 string)) nil nil string 1)))) |
|
(while (string-match kogiku-busetsu-regexp string) |
|
|
(setq string (replace-match "" nil nil string)))) |
|
| 176 |
(migemo-get-pattern string))) |
(migemo-get-pattern string))) |
| 177 |
|
|
| 178 |
(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