
(defun d-minibuffer-setup-hook ()
  (interactive)
  (setq truncate-lines nil))

(add-hook 'minibuffer-setup-hook 'd-minibuffer-setup-hook)
;;(add-hook 'minibuffer-setup-hook 'd-foo)

;;(setq minibuffer-prompt-properties (remove 'read-only minibuffer-prompt-properties))

;;(plist-put minibuffer-prompt-properties 'point-entered 'minibuffer-avoid-prompt)

;;(setq minibuffer-prompt-properties (cddr minibuffer-prompt-properties))
;;(setq minibuffer-prompt-properties (cdr minibuffer-prompt-properties))
