X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=exopen-mode.el;fp=exopen-mode.el;h=46aa2f1d387f404f6c69cf96ae2314fc040e1dd2;hb=b2144ed93abf626f83677edbd436133dffda3894;hp=0e0ffec0bd9e8aa0f0122dfdf4b3bc4d46f80860;hpb=bffa9a7e46fd21081478fe62882c8b4cddbae82a;p=exopen-mode.git

diff --git a/exopen-mode.el b/exopen-mode.el
index 0e0ffec..46aa2f1 100644
--- a/exopen-mode.el
+++ b/exopen-mode.el
@@ -62,14 +62,15 @@
        ((eq window-system 'w32) "cmd.exe /c start")))
 
 ;; exopen-modeでの拡張子とプログラムの関連付けリスト
-(defvar exopen-suffix-cmd)
+(defvar exopen-suffix-cmd nil)
 
 ;;; ファイルを外部プログラムでオープン
 ;;; exopen-std-cmdで指定されたプログラムを使用
 (defun exopen-file (file)
   "open file in external program"
   (let ((process-connection-type nil) (cmd))
-    (setq cmd (cdr(assoc (file-name-extension file 1) exopen-suffix-cmd)))
+    (if exopen-suffix-cmd
+        (setq cmd (cdr(assoc (file-name-extension file 1) exopen-suffix-cmd))))
     (if (null cmd)
         (setq cmd exopen-std-cmd))
     (start-process "exopen" nil cmd file)