Commit c606253c authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

Fixes: debbugs:12759
parent e07fcbdc
2012-10-29 Stefan Monnier <monnier@iro.umontreal.ca> 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). * files.el (find-alternate-file): Only ask one question (bug#12487).
   
2012-10-29 Chong Yidong <cyd@gnu.org> 2012-10-29 Chong Yidong <cyd@gnu.org>
......
...@@ -512,6 +512,7 @@ rather than relying on `lexical-binding'." ...@@ -512,6 +512,7 @@ rather than relying on `lexical-binding'."
(defmacro letf (bindings &rest body) (defmacro letf (bindings &rest body)
"Dynamically scoped let-style bindings for places. "Dynamically scoped let-style bindings for places.
Like `cl-letf', but with some extra backward compatibility." 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. ;; Like cl-letf, but with special handling of symbol-function.
`(cl-letf ,(mapcar (lambda (x) (if (eq (car-safe (car x)) 'symbol-function) `(cl-letf ,(mapcar (lambda (x) (if (eq (car-safe (car x)) 'symbol-function)
`((cl--symbol-function ,@(cdar x)) ,@(cdr x)) `((cl--symbol-function ,@(cdar x)) ,@(cdr x))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment