more prefix-alternatives fixes

This commit is contained in:
Ivan Malison 2015-11-22 02:52:30 -08:00
parent 348d2d1fa6
commit d849f8fc5f

View File

@ -208,8 +208,6 @@
(interactive "p")
(message "%s" arg))
(imalison:prefix-alternatives multi-line multi-line multi-line)
(defmacro imalison:prefix-alternatives (name &rest alternatives)
`(defun ,name (arg)
(interactive "p")
@ -218,7 +216,7 @@
,@(progn
(let ((last-power 1))
(cl-loop for alternative in alternatives
collect `((eq prefix-value ,last-power) (quote ,alternative))
collect `((eq arg ,last-power) (quote ,alternative))
do (setq last-power (* last-power 4)))))))
(setq function (or function (car alternatives))) ; Set a default value for function
(setq current-prefix-arg nil)