From: j8takagi <j8takagi@nifty.com>
Date: Wed, 30 Jan 2013 23:02:22 +0000 (+0900)
Subject: exopen-suffix-cmdがnilのときにエラーになる不具合を回避
X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b2144ed93abf626f83677edbd436133dffda3894;p=exopen-mode.git

exopen-suffix-cmdがnilのときにエラーになる不具合を回避
---

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)