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

Fixes: debbugs:12759

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e81a6146a22f9d15102ab722223653161b618f29..387a8b0e619778ce02d56cbdc0558fe4daa3423e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-10-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/cl.el (letf): Add missing indent rules (bug#12759).
+
        * files.el (find-alternate-file): Only ask one question (bug#12487).
 
 2012-10-29  Chong Yidong  <cyd@gnu.org>

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index a558e505e66edde9f68cb62f00f5488f3dc38914..108ad03756950e435e5c24379039b92a6f525bf6 100644 (file)
--- a/lisp/emacs-lisp/cl.el
+++ b/lisp/emacs-lisp/cl.el
@@ -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))