colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove duplicate prefix-alternatives

Browse Source
This commit is contained in:
Ivan Malison 2016-06-07 10:19:44 -07:00
parent 23d93f3d2a
commit 997be72bde
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dotfiles/emacs.d/README.org
View File

@ -97,20 +97,6 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
(interactive "p") (interactive "p")
(message "%s" arg)) (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) (defmacro imalison:let-advise-around (name &rest forms)
`(defun ,name (orig-func &rest args) `(defun ,name (orig-func &rest args)
(let ,forms (let ,forms