Browse Source

fix code

pull/1/head
10sr 11 years ago
parent
commit
f858866510
1 changed files with 9 additions and 6 deletions
  1. +9
    -6
      emacs.el

+ 9
- 6
emacs.el View File

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

Loading…
Cancel
Save