From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 21 Feb 2014 17:45:26 +0000 (-0500)
Subject: * lisp/emacs-lisp/cl-macs.el (cl-define-compiler-macro): Add indent rule.
X-Git-Tag: emacs-24.3.90~173^2^2~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d136b1b7246eae2a86b4444904f02b77dc8951d;p=emacs.git

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

Fixes: debbugs:16829
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 082bcd12f98..58bdb6534d5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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>
 
 	* whitespace.el (whitespace-space, whitespace-hspace, whitespace-tab)
@@ -25,10 +30,10 @@
 2014-02-21  Martin Rudalics  <rudalics@gmx.at>
 
 	Fix handling of window-min-height/-width (Bug#16738).
-	* window.el (window--dump-window, window--dump-frame): New
-	functions.
-	(window--min-size-1): Account for window dividers.  When
-	window-resize-pixelwise is nil, delay rounding till after the
+	* window.el (window--dump-window, window--dump-frame):
+	New functions.
+	(window--min-size-1): Account for window dividers.
+	When window-resize-pixelwise is nil, delay rounding till after the
 	sum of the window components has been calculated.
 	(window--min-delta-1, window--max-delta-1): When PIXELWISE is
 	nil make sure at least one text line and two text columns remain
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 45448ecf5dc..b1861cf7dfa 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -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
 original function call alone by declaring an initial `&whole foo' parameter
 and then returning foo."
-  (declare (debug cl-defmacro))
+  (declare (debug cl-defmacro) (indent 2))
   (let ((p args) (res nil))
     (while (consp p) (push (pop p) res))
     (setq args (nconc (nreverse res) (and p (list '&rest p)))))