emacs/sekka.el in sekka-1.5.3 vs emacs/sekka.el in sekka-1.5.4

@@ -25,10 +25,11 @@
 ;;; Code:
 (require 'cl)
 (require 'http-get)
 (require 'popup)
 (require 'url-parse)
+(require 'concurrent)
 
 ;;; 
 ;;;
 ;;; customize variables
 ;;;
@@ -511,24 +512,24 @@
   (sekka-register-userdict-internal))
 
   
 ;;
 ;; ユーザー語彙をサーバーに登録する。
-;;   only-first が t の時は、1ブロック目だけを登録する
 (defun sekka-register-userdict-internal (&optional only-first)
-  (let* ((str      (sekka-get-jisyo-str sekka-jisyo-filename))
-	 (str-lst  (sekka-divide-into-few-line str)))
-    (mapcar
-     (lambda (x)
-       ;;(message "Requesting to sekka server...")
-       (sekka-debug-print (format "register [%s]\n" x))
-       (let ((result (sekka-rest-request "register" `((dict . ,x)))))
-	 (sekka-debug-print (format "register-result:%S\n" result))
-	 (message result)))
-     (if only-first
-	 (list (car str-lst))
-       str-lst))
+  (lexical-let ((str      (sekka-get-jisyo-str sekka-jisyo-filename)))
+    (lexical-let ((str-lst  (if only-first
+				(list (car (sekka-divide-into-few-line str)))
+			      (sekka-divide-into-few-line str)))
+		  (x '()))
+      (cc:thread 100
+	(while (< 0 (length str-lst))
+	  (setq x (pop str-lst))
+	  ;;(message "Requesting to sekka server...")
+	  (sekka-debug-print (format "register [%s]\n" x))
+	  (lexical-let ((result (sekka-rest-request "register" `((dict . ,x)))))
+	    (sekka-debug-print (format "register-result:%S\n" result))
+	    (message result)))))
     t))
 
 
 ;;
 ;; ユーザー語彙をサーバーから全て削除する
@@ -559,25 +560,11 @@
       (let ((str-lst (split-string str "\n"))
 	    (result '()))
 	(while (< 0 (length str-lst))
 	  (push 
 	   (concat
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" 
-	    )
+	    (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" (pop str-lst) "\n" )
 	   result))
 	(reverse result))
     '()))
 
 
@@ -1648,10 +1635,10 @@
 ;; input-method として登録する。
 (set-language-info "Japanese" 'input-method "japanese-sekka")
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "1.5.3" ;;SEKKA-VERSION
+  "1.5.4" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"
   (interactive "P")
   (message sekka-version))