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