Browse Source

show user@host in minibuffer

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

+ 11
- 1
emacs.el View File

@@ -2056,5 +2056,15 @@ this is test, does not rename files"
;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)
;; (setq arg
;; (concat arg
;; (if (eq nil (string-match "\\. *$" arg)) ".")
;; (if (eq nil
;; (string-match "\\. *$"
;; arg))
;; ".")
;; " 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)))

Loading…
Cancel
Save