fix code

emacs.el

@@ -2062,9 +2062,12 @@ this is test, does not rename files"
 ;;                     ".")
 ;;                 " Stupid!")))
 
-;; show usename and hostname when prompting something in minibuffer
-(defadvice read-from-minibuffer
-  (before message-for-stupid (prompt &rest args) activate)
-  (setq prompt
-        (concat "[" user-login-name "@" system-name "] "
-                prompt)))
+(defadvice read-from-minibuffer (before info-in-prompt activate)
+  (ad-set-arg 0
+              (concat "[" user-login-name "@" system-name "] "
+                      (ad-get-arg 0))))
+
+(defadvice read-string (before info-in-prompt activate)
+  (ad-set-arg 0
+              (concat "[" user-login-name "@" system-name "] "
+                      (ad-get-arg 0))))