init.el

;; Helpful macro function
(defun my-macro-query (arg)
  "Prompt for input using minibuffer during kbd macro execution.
    With prefix argument, allows you to select what prompt string to use.
    If the input is non-empty, it is inserted at point."
  (interactive "P")
  (let* ((query (lambda () (kbd-macro-query t)))
	 (prompt (if arg (read-from-minibuffer "PROMPT: ") "Input: "))
	 (input (unwind-protect
		    (progn
		      (add-hook 'minibuffer-setup-hook query)
		      (read-from-minibuffer prompt))
		  (remove-hook 'minibuffer-setup-hook query))))
    (unless (string= "" input) (insert input))))
(global-set-key "\C-xQ" 'my-macro-query)