Develop and Download Open Source Software

Browse CVS Repository

Diff of /kogiku/kogiku/kogiku.el

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by shirai, Mon Feb 9 10:14:25 2004 UTC revision 1.9 by shirai, Mon Feb 9 10:41:18 2004 UTC
# Line 167  Line 167 
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-after-conv-function nil)  
170          (migemo-white-space-regexp " *"))          (migemo-white-space-regexp " *"))
171      (let ((case-fold-search nil))      (let ((case-fold-search nil))
172        (while (string-match "[^a-zA-Z]\\([a-z]+\\)" string)        (while (string-match "[^a-zA-Z]\\([a-z]+\\)" string)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26