Browse Source

slight performance improvement

pull/1/head
10sr 11 years ago
parent
commit
06ca5129c4
1 changed files with 13 additions and 2 deletions
  1. +13
    -2
      emacs.el

+ 13
- 2
emacs.el View File

@@ -2062,12 +2062,23 @@ this is test, does not rename files"
;; ".")
;; " Stupid!")))

(defvar my-system-info
nil
"System info in the form of \"[user@host] \".")
(setq my-system-info
(concat "["
user-login-name
"@"
(car (split-string system-name
"\\."))
"] "))

(defadvice read-from-minibuffer (before info-in-prompt activate)
(ad-set-arg 0
(concat "[" user-login-name "@" system-name "] "
(concat my-system-info
(ad-get-arg 0))))

(defadvice read-string (before info-in-prompt activate)
(ad-set-arg 0
(concat "[" user-login-name "@" system-name "] "
(concat my-system-info
(ad-get-arg 0))))

Loading…
Cancel
Save