Diff of /kogiku/kogiku/kogiku.el

OSDN > Find Software > 小菊

 Browse CVS Repository



/[OSDN]/kogiku/kogiku/kogiku.el




Diff of /kogiku/kogiku/kogiku.el



 Parent Directory

|  Revision Log


|  Revision Graph


|  Patch














revision 1.30 by shirai,
Fri Feb 25 09:24:15 2005 UTC




revision 1.31 by jet,
Sun Apr 17 05:00:09 2005 UTC






#

Line 1 



Line 1 











1


 ;;; kogiku.el - reading file and directory names with migemo service


 ;;; kogiku.el --- reading file and directory names with migemo service















2
 
 















3


 ;; Copyright (C) 2004 Masatake YAMATO and Hideyuki SHIRAI


 ;; Copyright (C) 2004, 2005 Masatake YAMATO and Hideyuki SHIRAI















4
 
 

















5
 ;; Author: Masatake YAMATO <jet@gyve.org> and
 ;; Author: Masatake YAMATO <jet@gyve.org> and

















6
 ;;         Hideyuki SHIRAI <shirai@meadowy.org>
 ;;         Hideyuki SHIRAI <shirai@meadowy.org>











#

Line 48 



Line 48 













48
 ;; http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=kogiku
 ;; http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=kogiku

















49
 ;; (MeadowMemo maintained by Akihisa Matsushita <akihisa@mail.ne.jp>).
 ;; (MeadowMemo maintained by Akihisa Matsushita <akihisa@mail.ne.jp>).

















50
 
 















51


 ;; `kogiku-read-file-name-internal' are


 ;; `kogiku-read-file-name-internal' is















52
 ;; translated from emacs/src/fileio.c::read-file-name-internal
 ;; translated from emacs/src/fileio.c::read-file-name-internal

















53
 ;; in elisp.
 ;; in elisp.

















54
 
 














 ;;; Version:
 










 ;; 2.0.2.
 










 
 













55
 ;;; History:
 ;;; History:

















56
 ;; 2.0.2
 ;; 2.0.2

















57
 ;; -- inlucde shirai's patch
 ;; -- inlucde shirai's patch











#

Line 66 



Line 63 













63
 
 

















64
 ;;; Code:
 ;;; Code:

















65
 
 












66
 
 (defun kogiku-version ()







67
 
   (interactive)







68
 
   (message "小菊 %s" "2.0.2"))







69
 
 












70
 (eval-when-compile
 (eval-when-compile

















71
   (require 'cl)
   (require 'cl)

















72
   (require 'migemo))
   (require 'migemo))











#

Line 229 
 minibufferに制御が移ったときに`minibuffe


Line 230 
 minibufferに制御が移ったときに`minibuffe












230
                     (cond
                     (cond

















231
                      ((string-match "\\cj$" string)
                      ((string-match "\\cj$" string)

















232
                       string)
                       string)















233


                      ((string-match "^\\(\\(\\Cj*\\)?\\cj+\\)\\(\\Cj+\\)$" string)


                      ((and (string-match "\\Cj+$" string)













234


                       (concat (match-string 1 string)


                            (< 0 (match-beginning 0)))













235


 


                       (concat (substring string 0 (match-beginning 0))















236
                               "\\("
                               "\\("















237


                               (kogiku-migemo-get-pattern (match-string 3 string))


                               (kogiku-migemo-get-pattern (match-string 0 string))















238
                               "\\)"))
                               "\\)"))

















239
                      (t
                      (t

















240
                       (kogiku-migemo-get-pattern (file-name-nondirectory string))))
                       (kogiku-migemo-get-pattern (file-name-nondirectory string))))











#

Line 372 
 minibufferに制御が移ったときに`minibuffe


Line 374 
 minibufferに制御が移ったときに`minibuffe












374
                              indicator)
                              indicator)

















375
         (add-text-properties 0 (length indicator)
         (add-text-properties 0 (length indicator)

















376
                              `(local-map 
                              `(local-map 















377


                                ,kogiku-minibuffer-prompt-map 


                                ,kogiku-minibuffer-prompt-map















378
                                mouse-face
                                mouse-face















379


                                highlight)


                                highlight













380


 


                                help-echo













381


 


                                "mouse-2: ワンショットモード(Fire)か常時モード(ON)かを切り替えます。")















382
                              indicator))
                              indicator))

















383
       (if kogiku-minibuffer-prompt-overlay
       (if kogiku-minibuffer-prompt-overlay

















384
           (move-overlay kogiku-minibuffer-prompt-overlay
           (move-overlay kogiku-minibuffer-prompt-overlay





























Legend:



Removed from v.1.30
 


changed lines


 
Added in v.1.31













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[OSDN]/kogiku/kogiku/kogiku.el
-revision 1.30 by shirai,
Fri Feb 25 09:24:15 2005 UTC
+revision 1.31 by jet,
Sun Apr 17 05:00:09 2005 UTC
 Line 1
- ;;; kogiku.el - reading file and directory names with migemo service
+ ;;; kogiku.el --- reading file and directory names with migemo service
- ;; Copyright (C) 2004 Masatake YAMATO and Hideyuki SHIRAI
+ ;; Copyright (C) 2004, 2005 Masatake YAMATO and Hideyuki SHIRAI
  ;; Author: Masatake YAMATO <jet@gyve.org> and
  ;;         Hideyuki SHIRAI <shirai@meadowy.org>
 Line 48
  ;; http://www.bookshelf.jp/cgi-bin/goto.cgi?file=meadow&node=kogiku
  ;; (MeadowMemo maintained by Akihisa Matsushita <akihisa@mail.ne.jp>).
- ;; `kogiku-read-file-name-internal' are
+ ;; `kogiku-read-file-name-internal' is
  ;; translated from emacs/src/fileio.c::read-file-name-internal
  ;; in elisp.
- ;;; Version:
- ;; 2.0.2.
  ;;; History:
  ;; 2.0.2
  ;; -- inlucde shirai's patch
-Line 66
+Line 63
  ;;; Code:
+ (defun kogiku-version ()
+   (interactive)
+   (message "小菊 %s" "2.0.2"))
  (eval-when-compile
    (require 'cl)
    (require 'migemo))
-Line 229 
 minibufferに制御が移ったときに`minibuffe
+Line 230 
 minibufferに制御が移ったときに`minibuffe
                      (cond
                       ((string-match "\\cj$" string)
                        string)
-                      ((string-match "^\\(\\(\\Cj*\\)?\\cj+\\)\\(\\Cj+\\)$" string)
+                      ((and (string-match "\\Cj+$" string)
-                       (concat (match-string 1 string)
+                            (< 0 (match-beginning 0)))
+                       (concat (substring string 0 (match-beginning 0))
                                "\\("
-                               (kogiku-migemo-get-pattern (match-string 3 string))
+                               (kogiku-migemo-get-pattern (match-string 0 string))
                                "\\)"))
                       (t
                        (kogiku-migemo-get-pattern (file-name-nondirectory string))))
-Line 372 
 minibufferに制御が移ったときに`minibuffe
+Line 374 
 minibufferに制御が移ったときに`minibuffe
                               indicator)
          (add-text-properties 0 (length indicator)
                               `(local-map
                                 ,kogiku-minibuffer-prompt-map
                                 mouse-face
-                                highlight)
+                                highlight
+                                help-echo
+                                "mouse-2: ワンショットモード(Fire)か常時モード(ON)かを切り替えます。")
                               indicator))
        (if kogiku-minibuffer-prompt-overlay
            (move-overlay kogiku-minibuffer-prompt-overlay
 Legend:



Removed from v.1.30
 


changed lines


 
Added in v.1.31
 Legend:



Removed from v.1.30
 


changed lines


 
Added in v.1.31
-Removed from v.1.30
+Added in v.1.31
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

小菊

Browse CVS Repository