[Emacs-diffs] /srv/bzr/emacs/trunk r110727: * lisp/emacs-lisp/cl.el (letf): Add missing indent rules.

[Stefan Monnier]

------------------------------------------------------------
revno: 110727
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12759
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-10-29 09:50:05 -0400
message:
  * lisp/emacs-lisp/cl.el (letf): Add missing indent rules.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-29 13:28:41 +0000
+++ b/lisp/ChangeLog    2012-10-29 13:50:05 +0000
@@ -1,5 +1,7 @@
 2012-10-29  Stefan Monnier  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/emacs-lisp/cl.el'
--- a/lisp/emacs-lisp/cl.el     2012-10-29 01:12:53 +0000
+++ b/lisp/emacs-lisp/cl.el     2012-10-29 13:50:05 +0000
@@ -512,6 +512,7 @@
 (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))