anyting で入力してる文字を header-line に出してみる。

Emacs

ビミョー

(defun anything-add-header-line ()
  (with-current-buffer anything-buffer
    (setq header-line-format
	  '(:eval
	    (save-window-excursion
	      (select-window (minibuffer-window) t)
	      (concat
	       (propertize (minibuffer-prompt) 'face 'minibuffer-prompt)
	       (minibuffer-contents)
	       (propertize " " 'face 'cursor)))))))

(add-hook 'anything-after-initialize-hook 'anything-add-header-line)