Commit 3d136b1b authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro): Add indent rule.

Fixes: debbugs:16829
parent 7ce645e0
2014-02-21 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl-define-compiler-macro): Add indent rule
(bug#16829).
2014-02-21 Juanma Barranquero <lekktu@gmail.com> 2014-02-21 Juanma Barranquero <lekktu@gmail.com>
* whitespace.el (whitespace-space, whitespace-hspace, whitespace-tab) * whitespace.el (whitespace-space, whitespace-hspace, whitespace-tab)
...@@ -25,10 +30,10 @@ ...@@ -25,10 +30,10 @@
2014-02-21 Martin Rudalics <rudalics@gmx.at> 2014-02-21 Martin Rudalics <rudalics@gmx.at>
Fix handling of window-min-height/-width (Bug#16738). Fix handling of window-min-height/-width (Bug#16738).
* window.el (window--dump-window, window--dump-frame): New * window.el (window--dump-window, window--dump-frame):
functions. New functions.
(window--min-size-1): Account for window dividers. When (window--min-size-1): Account for window dividers.
window-resize-pixelwise is nil, delay rounding till after the When window-resize-pixelwise is nil, delay rounding till after the
sum of the window components has been calculated. sum of the window components has been calculated.
(window--min-delta-1, window--max-delta-1): When PIXELWISE is (window--min-delta-1, window--max-delta-1): When PIXELWISE is
nil make sure at least one text line and two text columns remain nil make sure at least one text line and two text columns remain
......
...@@ -2710,7 +2710,7 @@ compiler macros are expanded repeatedly until no further expansions are ...@@ -2710,7 +2710,7 @@ compiler macros are expanded repeatedly until no further expansions are
possible. Unlike regular macros, BODY can decide to \"punt\" and leave the possible. Unlike regular macros, BODY can decide to \"punt\" and leave the
original function call alone by declaring an initial `&whole foo' parameter original function call alone by declaring an initial `&whole foo' parameter
and then returning foo." and then returning foo."
(declare (debug cl-defmacro)) (declare (debug cl-defmacro) (indent 2))
(let ((p args) (res nil)) (let ((p args) (res nil))
(while (consp p) (push (pop p) res)) (while (consp p) (push (pop p) res))
(setq args (nconc (nreverse res) (and p (list '&rest p))))) (setq args (nconc (nreverse res) (and p (list '&rest p)))))
......
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