[Emacs-diffs] trunk r114952: * lisp/emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.

[Stefan Monnier]

------------------------------------------------------------
revno: 114952
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-04 15:06:02 -0500
message:
  * lisp/emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/byte-run.el    byterun.el-20091113204419-o5vbwnq5f7feedwu-2586

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-04 20:04:25 +0000
+++ b/lisp/ChangeLog    2013-11-04 20:06:02 +0000
@@ -1,5 +1,7 @@
 2013-11-04  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property.
+
        * electric.el (electric-indent-post-self-insert-function):
        Only delete trailing whitepsace if it is indeed trailing (bug#15767).
 

=== modified file 'lisp/emacs-lisp/byte-run.el'
--- a/lisp/emacs-lisp/byte-run.el       2013-08-07 17:33:30 +0000
+++ b/lisp/emacs-lisp/byte-run.el       2013-11-04 20:06:02 +0000
@@ -118,6 +118,7 @@
 and the VALUES and should return the code to use to set this property.")
 
 (put 'defmacro 'doc-string-elt 3)
+(put 'defmacro 'lisp-indent-function 2)
 (defalias 'defmacro
   (cons
    'macro
@@ -179,7 +180,7 @@
   ;;    (defun foo (arg) (toto) nil)
   ;; from
   ;;    (defun foo (arg) (toto)).
-  (declare (doc-string 3))
+  (declare (doc-string 3) (indent 2))
   (let ((decls (cond
                 ((eq (car-safe docstring) 'declare)
                  (prog1 (cdr docstring) (setq docstring nil)))