From: j8takagi <j8takagi@nifty.com>
Date: Wed, 20 Feb 2013 14:27:34 +0000 (+0900)
Subject: コメントの修正、プログラムの推敲
X-Git-Url: https://www.j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=HEAD;p=exopen-mode.git

コメントの修正、プログラムの推敲
---

diff --git a/exopen-mode.el b/exopen-mode.el
index 46aa2f1..3b74f8b 100644
--- a/exopen-mode.el
+++ b/exopen-mode.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013  j8takagi
 
 ;; Author: j8takagi <j8takagi@nifty.com>
-;; Keywords: Emacs 外部プログラム
+;; Keywords: Emacs external program 外部プログラム
 
 ;; This file is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -22,7 +22,7 @@
 
 ;;; Commentary:
 
-;; Emacsからの外部プログラム呼び出しを支援するマイナーモードです。
+;; Emacsからの外部プログラム呼び出しを支援するマイナーモード。
 
 ;; ■動作環境
 ;; Linux、Mac OS X、WindowsのいずれかのWindowシステム上
@@ -37,18 +37,23 @@
 ;; Windowシステム上でEmacsが動作している場合、exopen-mode は自動的に有効になります。
 ;;
 ;; ■使い方
-
+;; exopen-modeが有効な場合、次の関数を使うことができます。
+;;
+;;   exopen-file (file) 外部ファイルを呼び出す
+;;   標準で、C-x C-M-fにバインド
 ;; ■hook
 
 ;; マイナーモードの定義
- (easy-mmode-define-minor-mode exopen-mode
-   "minor mode for opening fle in external program."
- ;; 初期値
-(display-graphic-p)
- ;; モード行の表示
- ""
- ;; マイナーモード用キーマップの初期値
- '(("\C-x\C-\M-f" . exopen-find-file)))
+(define-minor-mode exopen-mode
+"Toggle exopen-mode.
+With a prefix argument ARG, enable Auto Composition mode if ARG
+is positive, and disable it otherwise.  If called from Lisp,
+enable the mode if ARG is omitted or nil.
+
+open file in external program."
+(display-graphic-p)                     ; Windowシステムかどうかの判定
+nil                                     ; モード行に何も表示しない
+'(("\C-x\C-\M-f" . exopen-find-file)))  ; キーバインド
 
 ;; exopen-std-cmd: OSやWindowで設定された関連付けをもとに
 ;; ファイルを開くプログラムコマンド
@@ -71,10 +76,12 @@
   (let ((process-connection-type nil) (cmd))
     (if exopen-suffix-cmd
         (setq cmd (cdr(assoc (file-name-extension file 1) exopen-suffix-cmd))))
-    (if (null cmd)
+    (unless cmd
         (setq cmd exopen-std-cmd))
     (start-process "exopen" nil cmd file)
-    (message (concat "exopen: " cmd " " file " at " (format-time-string "%Y/%m/%d %H:%M:%S" (current-time))))))
+    (message
+     (concat "exopen: " cmd " " file " at "
+             (format-time-string "%Y/%m/%d %H:%M:%S" (current-time))))))
 
 ;;; バッファで開いているファイルを外部プログラムでオープン
 (defun exopen-buffer-file ()
@@ -88,7 +95,7 @@
 (defun exopen-buffer-file-suffix (suffix)
   "open buffer file of other extension in external program"
   (let (afile)
-    (if (not buffer-file-name)
+    (unless buffer-file-name
         (error "This buffer is not visiting a file"))
     (setq afile (concat (file-name-sans-extension (buffer-file-name)) suffix))
     (if (file-exists-p afile)
@@ -119,7 +126,7 @@
   "open buffer file or find-file in external program"
   (interactive "P")
   (let ((afile))
-    (if (null find-or-buffer)
+    (unless find-or-buffer
         (progn
           (setq afile (expand-file-name
                        (read-file-name "Find external open file: " buffer-file-name)))