projects
/
exopen-mode.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bffa9a7
)
exopen-suffix-cmdがnilのときにエラーになる不具合を回避
author
j8takagi
<j8takagi@nifty.com>
Wed, 30 Jan 2013 23:02:22 +0000
(08:02 +0900)
committer
j8takagi
<j8takagi@nifty.com>
Wed, 30 Jan 2013 23:02:22 +0000
(08:02 +0900)
exopen-mode.el
patch
|
blob
|
history
diff --git
a/exopen-mode.el
b/exopen-mode.el
index
0e0ffec
..
46aa2f1
100644
(file)
--- a/
exopen-mode.el
+++ b/
exopen-mode.el
@@
-62,14
+62,15
@@
((eq window-system 'w32) "cmd.exe /c start")))
;; exopen-modeでの拡張子とプログラムの関連付けリスト
((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))
;;; ファイルを外部プログラムでオープン
;;; 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)
(if (null cmd)
(setq cmd exopen-std-cmd))
(start-process "exopen" nil cmd file)