From 997be72bde09f47c3e3e348cb02a959f58932bd2 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Tue, 7 Jun 2016 10:19:44 -0700 Subject: [PATCH] remove duplicate prefix-alternatives --- dotfiles/emacs.d/README.org | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 39d2b4d7..44d21b19 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -97,20 +97,6 @@ Prefix alternatives is a macro that builds a function that selects one of a coll (interactive "p") (message "%s" arg)) - (defmacro imalison:prefix-alternatives (name &rest alternatives) - `(defun ,name (arg) - (interactive "p") - (setq function - (cond - ,@(progn - (let ((last-power 1)) - (cl-loop for alternative in alternatives - collect `((eq arg ,last-power) (quote ,alternative)) - do (setq last-power (* last-power 4))))))) - (setq function (or function)) ; Set a default value for function - (setq current-prefix-arg nil) - (call-interactively function))) - (defmacro imalison:let-advise-around (name &rest forms) `(defun ,name (orig-func &rest args) (let ,forms