* lisp/emacs-lisp/cl.el (letf): Add missing indent rules.

Fixes: debbugs:12759
This commit is contained in:
Stefan Monnier 2012-10-29 09:50:05 -04:00
parent e07fcbdc32
commit c606253cb5
2 changed files with 3 additions and 0 deletions

View file

@ -512,6 +512,7 @@ rather than relying on `lexical-binding'."
(defmacro letf (bindings &rest body)
"Dynamically scoped let-style bindings for places.
Like `cl-letf', but with some extra backward compatibility."
(declare (indent 1) (debug cl-letf))
;; Like cl-letf, but with special handling of symbol-function.
`(cl-letf ,(mapcar (lambda (x) (if (eq (car-safe (car x)) 'symbol-function)
`((cl--symbol-function ,@(cdar x)) ,@(cdr x))