fixed several bugs in erc furigana

 

File modified: lisp/emacs.d/ivan-erc.el lisp/emacs.d/ivan-japanese.el

Change365 at Sun Aug 29 18:31:56 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 436c86fce945 -r 9997703c7cad lisp/emacs.d/ivan-japanese.el
--- a/lisp/emacs.d/ivan-japanese.el	Sat Aug 28 19:22:41 2010 +0200
+++ b/lisp/emacs.d/ivan-japanese.el	Sun Aug 29 18:31:56 2010 +0200
@@ -14,24 +14,28 @@
   (defvar quail-japanese-transliteration-rules)
   (defvar quail-japanese-use-double-n))
 
+(defvar ivan-japanese-kakasi-buffer "*kakasi*"
+  "Define temporary buffer for kakasi conversion")
+
 (defun ivan-japanese-input ()
   (interactive)
   (activate-input-method 'japanese))
 
 (defun ivan-japanese-kakasi (input)
   "Take a Japanese string and return INPUT in hiragana"
-  (get-buffer-create kakasi-buffer)
+  (get-buffer-create ivan-japanese-kakasi-buffer)
   (with-temp-buffer
     (insert input)
     (let ((coding-system-for-read 'euc-jp)
           (coding-system-for-write 'euc-jp))
-      (call-process-region (point-min) (point-max)
-                           "kakasi" nil kakasi-buffer nil "-JH" "-s")))
+      (call-process-region
+       (point-min) (point-max)
+       "kakasi" nil ivan-japanese-kakasi-buffer nil "-JH" "-s")))
   (prog1
-      (with-current-buffer kakasi-buffer
+      (with-current-buffer ivan-japanese-kakasi-buffer
         (setq kakasi-ret
               (buffer-substring-no-properties (point-min) (point-max))))
-    (kill-buffer kakasi-buffer)))
+    (kill-buffer ivan-japanese-kakasi-buffer)))
 
 (defun ivan-japanese-kanji (string)
   "Return t if string contains Japanese kanji"

back