Changeset 75 for lang/elisp

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:

• lang/elisp/pdicv-mode/trunk/pdicv-core.el (modified) (3 diffs)

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

@@ -96 +96 @@
       (when (> (logand dictype 1) 0) (setq dictype* (cons 'ar-compressed dictype*)))
 
-          (case major-version
-                (6 "Ver 6.xx"
+          ;;(case major-version
+          (cond
+           ((= major-version 6)
+                ;;(6 "Ver 6.xx"
                    (setq os (nt:read-char header-buf 167))
                    (setq os (cond ((= os 0) 'sjis-crlf)
@@ -123 +125 @@
                    (setq index-size (* index-block block-size)) ;overwrite
                    );6
-                (5 "HyperDIC, Ver 5.00"
+           ((= major-version 5)
+                ;;(5 "HyperDIC, Ver 5.00"
                    (setq os (nt:read-char header-buf 167))
                    (setq os (cond ((= os 0) 'sjis-crlf)
@@ -148 +151 @@
                    (setq index-size (* index-block block-size)) ;overwrite
                    );5
-                (t "< 5.0"
+           (t "< 5.0"
                    (when (>= major-version 3)
                          "NEWDIC2-"