summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNic Ferrier <nferrier@ferrier.me.uk>2013-09-01 17:22:42 +0100
committerNic Ferrier <nferrier@ferrier.me.uk>2013-09-01 17:22:42 +0100
commit43c853f75456168290fb24584999fee6a4a63169 (patch)
tree43e4ea7e00895f01858efe31ea5fcd8eac96a711
parente82f8cd43e5ccaa2105f0c258ce5ddcdc3f70b53 (diff)
add nolexflet
-rw-r--r--noflet.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/noflet.el b/noflet.el
index 2f2c1e9..a283479 100644
--- a/noflet.el
+++ b/noflet.el
@@ -132,6 +132,15 @@ points to `noflet|base' for all new bindings."
(indent ((&whole 4 &rest (&whole 1 &lambda &body)) &body)))
(apply 'noflet|expand bindings body))
+(defmacro nolexflet (bindings &rest body)
+ "Lexical version.
+
+This only exists as an alias for `cl-flet' because Emacs
+maintainers refuse to add the correct indentation spec to
+`cl-flet'."
+ (declare (debug ((&rest (cl-defun)) cl-declarations body))
+ (indent ((&whole 4 &rest (&whole 1 &lambda &body)) &body)))
+ `(cl-flet ,bindings ,@body))
(provide 'noflet)