[from now] 2013/03/22 16:08:58

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index dfb9d37..4463f13 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -184,6 +184,7 @@
 (add-hook 'after-save-hook
           'executable-make-buffer-file-executable-if-script-p)

+(when (executable-find "git-now"))
 ;;関数名を表示する
 (which-function-mode 1)
[from now] 2013/03/22 16:15:47

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4463f13..b92bcac 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -184,7 +184,11 @@
 (add-hook 'after-save-hook
           'executable-make-buffer-file-executable-if-script-p)

-(when (executable-find "git-now"))
+(when (executable-find "git-now")
+  (defun 'git-now-after-save-hook()
+    (shell-command "git now"
+     (buffer-name (current-buffer)))
+)
 ;;関数名を表示する
 (which-function-mode 1)
[from now] 2013/03/22 16:30:44

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index b92bcac..6b02241 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -185,10 +185,13 @@
           'executable-make-buffer-file-executable-if-script-p)

 (when (executable-find "git-now")
-  (defun 'git-now-after-save-hook()
-    (shell-command "git now"
-     (buffer-name (current-buffer)))
-)
+  (defun git-now-after-save-hook()
+    (shell-command "git now")))
+
+(add-hook 'after-save-hook
+          'git-now-after-save-hook)
+
+
 ;;関数名を表示する
 (which-function-mode 1)
[from now] 2013/03/22 16:31:12

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 6b02241..4ed5b73 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -184,6 +184,7 @@
 (add-hook 'after-save-hook
           'executable-make-buffer-file-executable-if-script-p)

+;;保存時に git-now を実行する
 (when (executable-find "git-now")
   (defun git-now-after-save-hook()
     (shell-command "git now")))
@@ -191,7 +192,6 @@
 (add-hook 'after-save-hook
           'git-now-after-save-hook)

-
 ;;関数名を表示する
 (which-function-mode 1)
右側が消えるやつ
[from now] 2013/03/22 16:43:02

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4ed5b73..c56532c 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -185,12 +185,12 @@
           'executable-make-buffer-file-executable-if-script-p)

 ;;保存時に git-now を実行する
-(when (executable-find "git-now")
-  (defun git-now-after-save-hook()
-    (shell-command "git now")))
+;; (when (executable-find "git-now")
+;;   (defun git-now-after-save-hook()
+;;     (shell-command "git now")))

-(add-hook 'after-save-hook
-          'git-now-after-save-hook)
+;; (add-hook 'after-save-hook
+;;           'git-now-after-save-hook)

 ;;関数名を表示する
 (which-function-mode 1)
Disable truncate line