Changeset 75 for lang

Show
Ignore:
Timestamp:
01/31/09 00:31:43 (16 years ago)
Author:
naoya_t
Message:

case doesn't work well when byte-compiled... so replaced by cond

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/elisp/pdicv-mode/trunk/pdicv-core.el

    r74 r75  
    9696      (when (> (logand dictype 1) 0) (setq dictype* (cons 'ar-compressed dictype*))) 
    9797 
    98           (case major-version 
    99                 (6 "Ver 6.xx" 
     98          ;;(case major-version 
     99          (cond 
     100           ((= major-version 6) 
     101                ;;(6 "Ver 6.xx" 
    100102                   (setq os (nt:read-char header-buf 167)) 
    101103                   (setq os (cond ((= os 0) 'sjis-crlf) 
    … …  
    123125                   (setq index-size (* index-block block-size)) ;overwrite 
    124126                   );6 
    125                 (5 "HyperDIC, Ver 5.00" 
     127           ((= major-version 5) 
     128                ;;(5 "HyperDIC, Ver 5.00" 
    126129                   (setq os (nt:read-char header-buf 167)) 
    127130                   (setq os (cond ((= os 0) 'sjis-crlf) 
    … …  
    148151                   (setq index-size (* index-block block-size)) ;overwrite 
    149152                   );5 
    150                 (t "< 5.0" 
     153           (t "< 5.0" 
    151154                   (when (>= major-version 3) 
    152155                         "NEWDIC2-"