Browse Source

Use function system-name

pull/15/head
10sr 8 years ago
parent
commit
9dffccdae1
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      emacs.el

+ 3
- 3
emacs.el View File

@@ -425,7 +425,7 @@ found, otherwise returns nil."
`("em:" `("em:"
,user-login-name ,user-login-name
"@" "@"
,(car (split-string system-name
,(car (split-string (system-name)
"\\.")) "\\."))
":" ":"
default-directory)) default-directory))
@@ -526,7 +526,7 @@ found, otherwise returns nil."
(set-variable 'minibuffer-line-format (set-variable 'minibuffer-line-format
`(,(concat user-login-name `(,(concat user-login-name
"@" "@"
(car (split-string system-name
(car (split-string (system-name)
"\\.")) "\\."))
":") ":")
(:eval (abbreviate-file-name (or buffer-file-name (:eval (abbreviate-file-name (or buffer-file-name
@@ -544,7 +544,7 @@ found, otherwise returns nil."
`(,(concat "" `(,(concat ""
user-login-name user-login-name
"@" "@"
(car (split-string system-name
(car (split-string (system-name)
"\\.")) "\\."))
":") ":")
(:eval (abbreviate-file-name (or buffer-file-name (:eval (abbreviate-file-name (or buffer-file-name


Loading…
Cancel
Save