unset prefix argument in prefix-alternatives

This commit is contained in:
Ivan Malison 2015-11-05 02:05:29 -08:00
parent 570bfbf645
commit d4b566e63e

View File

@ -177,7 +177,8 @@
(cl-loop for alternative in alternatives (cl-loop for alternative in alternatives
collect `((eq prefix-value ,last-multiple) (quote ,alternative)) collect `((eq prefix-value ,last-multiple) (quote ,alternative))
do (setq last-multiple (* last-multiple 4)))))) do (setq last-multiple (* last-multiple 4))))))
(setq function (or function (car alternatives))) ; Set a defautl value for function (setq function (or function (car alternatives))) ; Set a default value for function
(setq current-prefix-arg nil)
(call-interactively function))) (call-interactively function)))
(defun imalison:uuid () (defun imalison:uuid ()