diff --git a/emacs.el b/emacs.el
index 486af72..5e3a1bc 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1212,15 +1212,9 @@ ARG is num to show, or defaults to 7."
   (interactive "P")
   (let ((f (dired-get-filename)))
     (message "%s"
-             (with-temp-buffer
-               (insert-file-contents f)
-               (buffer-substring-no-properties
-                (point-min)
-                (progn (goto-char (point-min))
-                       (forward-line (1- (if arg
-                                             (prefix-numeric-value arg)
-                                           7)))
-                       (point-at-eol)))))))
+             (apply 'concat
+                    (my-file-head f
+                                  7)))))
 
 (defun my-dired-diff ()
   "Show diff of marked file and file of current line."
@@ -1605,6 +1599,7 @@ This mode is a simplified version of `adoc-mode'."
 
 (defun my-file-head (filename &optional n)
   "Return list of first N lines of file FILENAME."
+  ;; Work with japanese text?
   (let ((num (or n 10))
         (size 100)
         (beg 0)