Changeset 74 for lang/elisp/pdicv-mode/trunk/pdicv-search.el

Timestamp:

01/31/09 00:20:29 (16 years ago)

Author:

naoya_t

Message:

modified around entry word tabsep

Files:

• lang/elisp/pdicv-mode/trunk/pdicv-search.el (modified) (9 diffs)

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

@@ -60 +60 @@
                 (message "Loading index-table for %s (\"%s\")..." dicname path)
                 (setq index-table (pdicv-get-index-list path word-encoding))
-                (push (cons dicname index-table) pdicv-index-table-list))
-            );fi
-          );let*
-        (setq diclist (cdr diclist))
-        );wend
+                (push (cons dicname index-table) pdicv-index-table-list)) ))
+        (setq diclist (cdr diclist)))
       (setq pdicv-inited-p t)
-      (message "Done.")
-      ); let
-    );caught
-  )
+      (message "Done.") )))
 
 (defun pdicv-search-regexp (dicname regexp-to-search &optional field-to-search)
@@ -137 +131 @@
 ;                                               (string-match needle1 word)))
 ;                               )
-                                `(lambda (e p j x) (string-match ,needle1 ,field-to-search))
+                                `(lambda (e_ e p j x) (string-match ,needle1 ,field-to-search))
                                 );list
                     (list
@@ -144 +138 @@
                                        ;                                        (string< word needle2))))
                      (if just-p
-                         `(lambda (e p j x) (zerop (nt:strcmp ,field-to-search ,needle1)))
-                       `(lambda (e p j x) (and (not (string< ,field-to-search ,needle1))
-                                               (string< ,field-to-search ,needle2))) ; �ǡ����֥��������
-                       );just-p
-                     );list
-                    ));fi,criteria
-
-                 );let*
+                         `(lambda (e_ e p j x) (zerop (nt:strcmp ,field-to-search ,needle1)))
+                       `(lambda (e_ e p j x) (and (not (string< ,field-to-search ,needle1))
+                                                                                                  (string< ,field-to-search ,needle2))) ; �ǡ����֥��������
+                       )))))
                                         ;         (insert (format "%s" criteria))
             (pdicv-core-search dicinfo criteria simple-mode-p (not first-round-p)) ; clear only at the first time
-            );let*
-          );fi
-        (setq first-round-p nil)
-        );wend
-      );let
-    );caught
-  )
- ;;debug
+            ))
+        (setq first-round-p nil)))))
 
 (defun pdicv-search-interactive ()
@@ -174 +158 @@
             (read-from-minibuffer "Word to search: "))
       (if (> (length word-to-search) 0)
-          (pdicv-search (intern dicname) word-to-search))
-      );let
-    );caught
-  )
-
+          (pdicv-search (intern dicname) word-to-search)) )))
 
 (defun pdicv-search-region (from to)
@@ -184 +164 @@
   (interactive "r")
   (let ((dicname (completing-read "Target dictionary: " pdicv-dictionary-list nil t "")))
-    (if dicname (pdicv-search (intern dicname) (buffer-substring from to)))
-    );let
-  )
+    (if dicname (pdicv-search (intern dicname) (buffer-substring from to))) ))
 
 (defun pdicv-set-target-dictionary ()
@@ -192 +170 @@
   (interactive)
   (let ((dicname (completing-read "Target dictionary: " pdicv-dictionary-list nil t "")))
-    (if dicname (setq pdicv-target-dictionary (intern dicname)))
-    );let
-  )
+    (if dicname (setq pdicv-target-dictionary (intern dicname))) ))
 
 (defun pdicv-search-current-word ()
@@ -204 +180 @@
     (if word;(and word (not (nt:skipit-p word-to-search)))
         (pdicv-search-just pdicv-target-dictionary word)
-      (message "no word at cursor"))
-    );let
-  )
+      (message "no word at cursor")) ))
 
 (defun pdicv-search-next-word ()
@@ -224 +198 @@
         (if (and word (not (nt:skipit-p word)))
             (pdicv-search-just pdicv-target-dictionary word)
-          (message "no word at cursor"));fi
-        );progn
-      );fi
-    );let
-  )
+          (message "no word at cursor")) ))))
 
 (defun pdicv-search-previous-word ()
@@ -234 +204 @@
   (interactive)
   (forward-word -1) ; (backward-word 1)
-  (pdicv-search-current-word)
-  )
+  (pdicv-search-current-word))
 
 ;;; pdicv-search.el ends here