From b2144ed93abf626f83677edbd436133dffda3894 Mon Sep 17 00:00:00 2001
From: j8takagi <j8takagi@nifty.com>
Date: Thu, 31 Jan 2013 08:02:22 +0900
Subject: [PATCH] =?utf8?q?exopen-suffix-cmd=E3=81=8Cnil=E3=81=AE=E3=81=A8?=
 =?utf8?q?=E3=81=8D=E3=81=AB=E3=82=A8=E3=83=A9=E3=83=BC=E3=81=AB=E3=81=AA?=
 =?utf8?q?=E3=82=8B=E4=B8=8D=E5=85=B7=E5=90=88=E3=82=92=E5=9B=9E=E9=81=BF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 exopen-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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)
-- 
2.18.0