From 2e534bc70d1d38ac41d91e5b3f44e94eee66e219 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 19 Jan 2014 00:52:25 +0900
Subject: [PATCH] fix bug

---
 emacs.el | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/emacs.el b/emacs.el
index 03005db..715afd1 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2430,6 +2430,7 @@ result for that word.")
                    (shell-command-to-string
                     (format "dict_app '%s'"
                             word))))
+        ;; letters broken
         ("ms" .
          (lambda (word)
            (let ((url (concat "http://api.microsofttranslator.com/V2/Ajax.svc/"
@@ -2442,11 +2443,21 @@ result for that word.")
                                            apikey
                                            eword
                                            target))
-               (search-forward-regexp "^$")
-               (buffer-substring-no-properties (point)
-                                               (point-max))))))
+               (message "")
+               (goto-char (point-min))
+               (search-forward-regexp "^$"
+                                      nil
+                                      t)
+               (url-unhex-string (buffer-substring-no-properties (point)
+                                                                 (point-max)))))))
         ))
 
+;; (funcall (cdr (assoc "ms"
+;;                      ilookup-alist))
+;;          "dictionary")
+
+;; (switch-to-buffer (url-retrieve-synchronously "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?appId=3C9778666C5BA4B406FFCBEE64EF478963039C51&text=dictionary&to=ja"))
+
 ;; (switch-to-buffer (url-retrieve-synchronously "http://google.com"))
 
 (setq ilookup-default "ja")
@@ -2497,8 +2508,8 @@ This function insert newline if required."
         (outpoint (ilookup--get-output-start)))
     (and input
          ;; do not query same word twice
-         (not (eq ilookup--last-input
-                  input))
+         (not (equal ilookup--last-input
+                     input))
          outpoint
          (let* (
                 ;; colon sepatated list of input