unset prefix argument in prefix-alternatives
This commit is contained in:
parent
570bfbf645
commit
d4b566e63e
@ -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 ()
|
||||||
|
Loading…
Reference in New Issue
Block a user