Changeset 25287 for lang/gauche/oldtype

Show
Ignore:
Timestamp:
11/29/08 00:27:35 (6 weeks ago)
Author:
kiyoka
Message:

Bugfix.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el

    r23056 r25287  
    658658      (list high low micro))) 
    659659 
    660   (let ((bufname  
     660  (let ((wikiname  
    661661         (concat (getenv "USER") 
    662662                 "." 
    663                  (format-time-string "%Y_%m_%d" (oldtype-today)) 
    664                  ".ot"))) 
    665     (find-file-other-window bufname))) 
     663                 (format-time-string "%Y_%m_%d" (oldtype-today))))) 
     664    (oldtype-openfile wikiname))) 
    666665 
    667666