|
@@ -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 |
|
|