From 9dffccdae16741b235b8dc913f00b67262050236 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Tue, 3 Jan 2017 01:05:12 +0900
Subject: [PATCH] Use function system-name

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

diff --git a/emacs.el b/emacs.el
index 1ee4f09..e379c16 100644
--- a/emacs.el
+++ b/emacs.el
@@ -425,7 +425,7 @@ found, otherwise returns nil."
                     `("em:"
                       ,user-login-name
                       "@"
-                      ,(car (split-string system-name
+                      ,(car (split-string (system-name)
                                           "\\."))
                       ":"
                       default-directory))
@@ -526,7 +526,7 @@ found, otherwise returns nil."
   (set-variable 'minibuffer-line-format
                 `(,(concat user-login-name
                            "@"
-                           (car (split-string system-name
+                           (car (split-string (system-name)
                                               "\\."))
                            ":")
                   (:eval (abbreviate-file-name (or buffer-file-name
@@ -544,7 +544,7 @@ found, otherwise returns nil."
                 `(,(concat ""
                            user-login-name
                            "@"
-                           (car (split-string system-name
+                           (car (split-string (system-name)
                                               "\\."))
                            ":")
                   (:eval (abbreviate-file-name (or buffer-file-name