sekka.el in sekka-0.9.5

- old
+ new

@@ -24,10 +24,11 @@
 
 ;;; Code:
 (require 'cl)
 (require 'http-get)
 (require 'popup)
+(require 'url-parse)
 
 ;;; 
 ;;;
 ;;; customize variables
 ;;;
@@ -112,28 +113,23 @@
   "変換結果に、漢字のエントリ type=j が含まれていなかったら、自動的にGoogleIMEを APIを使って変換候補を取得する。
 non-nil で明示的に呼びだすまでGoogleIMEは起動しない。"
   :type  'boolean
   :group 'sekka)
 
-(defcustom sekka-kakutei-with-spacekey t
+(defcustom sekka-kakutei-with-spacekey nil
   "*Non-nil であれば、リアルタイムガイド表示中のSPACEキーでの確定動作を有効にする"
   :type  'boolean
   :group 'sekka)
 
-(defcustom sekka-muhenkan-key "q"
-  "*Non-nil であれば、リアルタイムガイド表示中はqキーで無変換のままスペースを挿入する。q以外のキーも設定可能。
-但し、アルファベットのようにバッファにinsert可能な文字のみ設定可能。"
-  :type  'string
-  :group 'sekka)
 
-
 (defface sekka-guide-face
   '((((class color) (background light)) (:background "#E0E0E0" :foreground "#F03030")))
   "リアルタイムガイドのフェイス(装飾、色などの指定)"
   :group 'sekka)
 
 
+(defvar sekka-muhenkan-key nil     "*Non-nil であれば、リアルタイムガイド表示中は指定したキーで無変換のままスペースを挿入する。アルファベット文字１文字を指定すること")
 (defvar sekka-sticky-shift nil     "*Non-nil であれば、Sticky-Shiftを有効にする")
 (defvar sekka-mode nil             "漢字変換トグル変数")
 (defun sekka-modeline-string ()
   ;; 接続先sekka-serverのホスト名を表示する。
   (format " Sekka[%s]" (if current-sekka-server-url
@@ -1622,10 +1618,10 @@
 ;; input-method として登録する。
 (set-language-info "Japanese" 'input-method "japanese-sekka")
 (setq default-input-method "japanese-sekka")
 
 (defconst sekka-version
-  "0.9.4" ;;SEKKA-VERSION
+  "0.9.5" ;;SEKKA-VERSION
   )
 (defun sekka-version (&optional arg)
   "入力モード変更"
   (interactive "P")
   (message sekka-version))