diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 0b08dcd6..6fec9aeb 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -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)