summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRyan C. Thompson <rct@thompsonclan.org>2014-08-20 17:16:02 -0700
committerRyan C. Thompson <rct@thompsonclan.org>2014-08-20 17:24:44 -0700
commit21ccc089ddf78ebe1710a3e10ca70f9627ebd12b (patch)
tree5207a6e17f2fbffa6dd4815ebf19a29f98caee78
parentf6a8c7af44d8faab58b892b0dcdec6778da18f85 (diff)
Enable cl style arglists in noflet
-rw-r--r--noflet.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/noflet.el b/noflet.el
index 49986d9..26e9399 100644
--- a/noflet.el
+++ b/noflet.el
@@ -65,9 +65,10 @@ name."
(intern (format "saved-func-%s"
(symbol-name name)))))
`(fset (quote ,name)
- (lambda ,args
- (let ((this-fn ,saved-func-namev))
- ,@body))))))))
+ (cl-function
+ (lambda ,args
+ (let ((this-fn ,saved-func-namev))
+ ,@body)))))))))
(fresets
(cl-loop
for i in bindings