(defun pp-macroexpand ()
  (interactive)
  (save-excursion
    (pp-macroexpand-expression (read (current-buffer)))))

(dolist (map (list lisp-interaction-mode-map emacs-lisp-mode-map))
  (define-key map (kbd "C-c RET") 'pp-macroexpand))

(when (featurep 'popwin)
  (push '("*Pp Macroexpand Output*" :noselect t) popwin:special-display-config))