diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4f5efd371e..66051898dd3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2013-11-04 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * emacs-lisp/byte-run.el (defmacro, defun): Set their `indent' property. | ||
| 4 | |||
| 3 | * electric.el (electric-indent-post-self-insert-function): | 5 | * electric.el (electric-indent-post-self-insert-function): |
| 4 | Only delete trailing whitepsace if it is indeed trailing (bug#15767). | 6 | Only delete trailing whitepsace if it is indeed trailing (bug#15767). |
| 5 | 7 | ||
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 0bb04950dfd..7ec24cc2aad 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -118,6 +118,7 @@ the FUN corresponding to PROP is called with the function name | |||
| 118 | and the VALUES and should return the code to use to set this property.") | 118 | and the VALUES and should return the code to use to set this property.") |
| 119 | 119 | ||
| 120 | (put 'defmacro 'doc-string-elt 3) | 120 | (put 'defmacro 'doc-string-elt 3) |
| 121 | (put 'defmacro 'lisp-indent-function 2) | ||
| 121 | (defalias 'defmacro | 122 | (defalias 'defmacro |
| 122 | (cons | 123 | (cons |
| 123 | 'macro | 124 | 'macro |
| @@ -179,7 +180,7 @@ The return value is undefined. | |||
| 179 | ;; (defun foo (arg) (toto) nil) | 180 | ;; (defun foo (arg) (toto) nil) |
| 180 | ;; from | 181 | ;; from |
| 181 | ;; (defun foo (arg) (toto)). | 182 | ;; (defun foo (arg) (toto)). |
| 182 | (declare (doc-string 3)) | 183 | (declare (doc-string 3) (indent 2)) |
| 183 | (let ((decls (cond | 184 | (let ((decls (cond |
| 184 | ((eq (car-safe docstring) 'declare) | 185 | ((eq (car-safe docstring) 'declare) |
| 185 | (prog1 (cdr docstring) (setq docstring nil))) | 186 | (prog1 (cdr docstring) (setq docstring nil))) |