display-prefix

This commit is contained in:
Ivan Malison 2015-09-26 17:46:17 -07:00
parent ffdb76b6ad
commit c262c37177

View File

@ -161,6 +161,11 @@
;; functions
;; =============================================================================
(defun display-prefix (arg)
"Display the value of the raw prefix arg."
(interactive "P")
(message "%s" arg))
(defmacro imalison:prefix-alternative (name default alternative)
`(defun ,name (arg) (interactive "P")
(if arg (call-interactively (quote ,alternative))