Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest Sep 20th, 2018 67 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. (defun pp-macroexpand ()
  2.   (interactive)
  3.   (save-excursion
  4.     (pp-macroexpand-expression (read (current-buffer)))))
  5.  
  6. (dolist (map (list lisp-interaction-mode-map emacs-lisp-mode-map))
  7.   (define-key map (kbd "C-c RET") 'pp-macroexpand))
  8.  
  9. (when (featurep 'popwin)
  10.   (push '("*Pp Macroexpand Output*" :noselect t) popwin:special-display-config))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top