From d5194bc537d3e643acbcb67664be108ac627cb5b Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Mon, 30 Jan 2012 18:59:28 +0900
Subject: [PATCH] fix bug

---
 emacs.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index d8d636c..d15339a 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1131,14 +1131,15 @@ if arg is omitted use value of `buffer-list'."
 
 (defun my-dired-echo-file-head (&optional arg)
   ""
-  (interactive)
+  (interactive "P")
   (let ((f (dired-get-filename)))
     (message "%s"
              (with-temp-buffer
                (insert-file-contents f)
                (buffer-substring-no-properties (point-min)
-                                               (progn (goto-line (or arg
-                                                                     10))
+                                               (progn (goto-line (if arg
+                                                                     (prefix-numeric-value arg)
+                                                                   10))
                                                       (point-at-eol)))))))
 
 (defun my-dired-diff ()