From 5a2a544350bd39c9d9f6e861ada48d2826c3be29 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Fri, 18 Oct 2013 15:23:51 +0900
Subject: [PATCH] add advice to competing-read

---
 emacs.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/emacs.el b/emacs.el
index d020bc9..78b4b16 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2082,3 +2082,8 @@ this is test, does not rename files"
   (ad-set-arg 0
               (concat my-system-info
                       (ad-get-arg 0))))
+
+(defadvice completing-read (before info-in-prompt activate)
+  (ad-set-arg 0
+              (concat my-system-info
+                      (ad-get-arg 0))))